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

Fix test phase.

Browse Source 
Suggested by Matthew in the PR discussion.
This commit is contained in:
Vincent St-Amour 2015-10-24 20:33:03 -05:00
parent bf69920570
commit 95c80cf21f
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
pkgs/racket-test/tests/racket/require.rkt
View File

@ -1,9 +1,10 @@
#lang racket
(require (submod racket/require for-testing))
;; Tests for multi.
(module+ test
(require (submod racket/require for-testing))
(begin-for-syntax
(begin-for-syntax
(module+ test
(require tests/eli-tester)
(test (map syntax-e (multi #'("a" "b" "c"))) => '("a/b/c")
(map syntax-e (multi #'("a" ("b" "c") "d"))) => '("a/b/d" "a/c/d")
@ -18,5 +19,5 @@
(map syntax-e (multi #'((a b) c d))) => '(a/c/d b/c/d)
(map syntax-e (multi #'((a b) (c d)))) => '(a/c a/d b/c b/d)
(map syntax-e (multi #'((a b c d)))) => '(a b c d)
(map syntax-e (multi #'((a b (c d))))) =error> ""))
)
(map syntax-e (multi #'((a b (c d))))) =error> "")
))