blob: 5e1b6cc830a26647e9c90f10e4646a1246519418 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
;; This file contains your project specific step definitions. All
;; files in this directory whose names end with "-steps.el" will be
;; loaded automatically by Ecukes.
(Given "^ics session$"
(lambda ()
(let ((test-fn (expand-file-name (make-temp-name "test-fifo") (or small-temporary-file-directory temporary-file-directory))))
(setq test-fifo (start-process-shell-command "test-fifo" nil (format "mkfifo %s && cat >> %s" test-fn test-fn)))
(process-send-string test-fifo "login:\n")
(process-send-string test-fifo "Logging you in as \"GuestME\"\n")
(process-send-string test-fifo "fics% \n")
(sleep-for 3)
(chess-ics "nowhere.org" 5000 nil nil "sh" "-c" (format "cat %s" test-fn))
)))
(When "^new game$"
(lambda ()
(process-send-string test-fifo (format "{Game 42 (GuestYOU vs. GuestME) Creating unrated blitz match.}\n"))
(process-send-string test-fifo (format "<12> rnbqkbnr pppppppp -------- -------- -------- -------- PPPPPPPP RNBQKBNR W -1 1 1 1 1 0 23 GuestYOU GuestME -1 5 5 39 39 300 300 1 none (0:00) none 1 0 0\n"))
(process-send-string test-fifo (format "<12> rnbqkbnr pppppppp -------- -------- --P----- -------- PP-PPPPP RNBQKBNR B 2 1 1 1 1 0 23 GuestYOU GuestME 1 5 5 39 39 300 300 1 P/c2-c4 (0:00) c4 1 0 0\n"))
(process-send-string test-fifo (format "<12> rnbqkbnr pppp-ppp -------- ----p--- --P----- -------- PP-PPPPP RNBQKBNR W 4 1 1 1 1 0 23 GuestYOU GuestME -1 5 5 39 39 300 300 2 P/e7-e5 (0:00) e5 1 1 0\n"))
(sleep-for 3)
)
)
(When "^opponent forfeits on time$"
(lambda ()
(process-send-string test-fifo (format "{Game 42 (GuestYOU vs. GuestME) GuestYOU forfeits on time} 0-1\n"))
(sleep-for 3)
))
(Given "^game with fen \"\\(.+\\)\"$"
(lambda (fen)
(let ((game (chess-game-create (chess-fen-to-pos fen))) objects)
(setq test-display (car (chess-create-modules (list '(chess-plain))
'chess--create-display
game t t))))))
(Then "^the move \"\\([a-h][1-8]\\)-\\([a-h][1-8]\\)\" is illegal$"
(lambda (source target)
(let ((position (chess-display-position test-display)))
(assert (null (chess-ply-create position nil
(chess-coord-to-index source)
(chess-coord-to-index target)))))))
|
