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

Tests for multi-in.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-05-26 13:53:31 -04:00
parent 48b5725b2e
commit 2c470ee82a
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/racket/require.rkt
View File

@ -130,3 +130,23 @@
(quasisyntax/loc stx
(combine-in #,@(datum->syntax stx (multi (syntax->datum #'(elem ...)))
stx stx stx)))]))
;; Tests for multi.
;; We don't want to run them every time the file is required, so they are
;; commented out. A proper test suite for racket/require should be written.
;; (require tests/eli-tester)
;; (test (multi '("a" "b" "c")) => '("a/b/c")
;; (multi '("a" ("b" "c") "d")) => '("a/b/d" "a/c/d")
;; (multi '("a" "b" ("c" "d"))) => '("a/b/c" "a/b/d")
;; (multi '(("a" "b") "c" "d")) => '("a/c/d" "b/c/d")
;; (multi '(("a" "b") ("c" "d"))) => '("a/c" "a/d" "b/c" "b/d")
;; (multi '(("a" "b" "c" "d"))) => '("a" "b" "c" "d")
;; (multi '(("a" "b" ("c" "d")))) =error> ""
;; (multi '(a b c)) => '(a/b/c)
;; (multi '(a (b c) d)) => '(a/b/d a/c/d)
;; (multi '(a b (c d))) => '(a/b/c a/b/d)
;; (multi '((a b) c d)) => '(a/c/d b/c/d)
;; (multi '((a b) (c d))) => '(a/c a/d b/c b/d)
;; (multi '((a b c d))) => '(a b c d)
;; (multi '((a b (c d)))) =error> "")