suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjust drracket IO test to be more forgiving to IO order

Browse Source
This commit is contained in:
Robby Findler 2014-05-22 09:18:03 -05:00
parent c0dfc135c0
commit f36dc28102
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkgs/drracket-pkgs/drracket-test/tests/drracket/io.rkt
View File

@ -143,10 +143,18 @@ add this test:
(λ () (λ ()
(send interactions-text paragraph-end-position (send interactions-text paragraph-end-position
(- (send interactions-text last-paragraph) 1)))))]) (- (send interactions-text last-paragraph) 1)))))])
(unless (equal? got-value expected-transcript) (unless (got-matches-expected? got-value expected-transcript)
(eprintf "FAILED: expected: ~s\n got: ~s\n program: ~s\n input: ~s\n" (eprintf "FAILED: expected: ~s\n got: ~s\n program: ~s\n input: ~s\n"
expected-transcript got-value program input))))) expected-transcript got-value program input)))))
(define (got-matches-expected? got expected)
(cond
[(list? expected)
(for/or ([expected (in-list expected)])
(equal? expected got))]
[else
(equal? expected got)]))
(clear-definitions drs-frame) (clear-definitions drs-frame)
(do-input-test "(read-char)" "a\n" "a\n#\\a") (do-input-test "(read-char)" "a\n" "a\n#\\a")
@ -161,7 +169,7 @@ add this test:
(do-input-test "(begin (read-char) (sleep 1) (read-char))" "ab\ncd\n" "ab\ncd\n#\\b") (do-input-test "(begin (read-char) (sleep 1) (read-char))" "ab\ncd\n" "ab\ncd\n#\\b")
(do-input-test "(list (read) (sleep 1) (read) (read))" "a b\nc d\n" "a b\nc d\n(a #<void> b c)") (do-input-test "(list (read) (sleep 1) (read) (read))" "a b\nc d\n" "a b\nc d\n(a #<void> b c)")
(do-input-test "(begin (display 1) (read))" "2\n" "12\n2") (do-input-test "(begin (display 1) (read))" "2\n" '("12\n2" "2\n12"))
(do-input-test "(read-line)" "\n" "\n\"\"") (do-input-test "(read-line)" "\n" "\n\"\"")
(do-input-test "(read-char)" "\n" "\n#\\newline") (do-input-test "(read-char)" "\n" "\n#\\newline")