Fixed tests and missing dependency

This commit is contained in:
Georges Dupéron 2016-09-19 20:47:01 +02:00
parent 11fbff19ac
commit 8ac38f4a3a
2 changed files with 5 additions and 4 deletions

View File

@ -3,7 +3,8 @@
(define deps '("base" (define deps '("base"
"rackunit-lib" "rackunit-lib"
"phc-toolkit" "phc-toolkit"
"generic-syntax-expanders")) "generic-syntax-expanders"
"alexis-util"))
(define build-deps '("scribble-lib" (define build-deps '("scribble-lib"
"racket-doc" "racket-doc"
"seq-no-order")) "seq-no-order"))

View File

@ -61,7 +61,7 @@
(attribute kw-not-number)]) (attribute kw-not-number)])
#t) #t)
;; Tests from the documentation: ;; former tests from the documentation:
(check-equal? (check-equal?
(syntax-parse #'(1 ya (2 #f 3) 4 yb (5 #f 6) yc 7) (syntax-parse #'(1 ya (2 #f 3) 4 yb (5 #f 6) yc 7)
@ -71,7 +71,7 @@
) )
{~global-or [g (syntax-e #'w)] w:str}) {~global-or [g (syntax-e #'w)] w:str})
(attribute g)]) (attribute g)])
'ya) #t)
(check-equal? (check-equal?
(syntax-parse #'(1 ya (2 3) 4 yb (5 6) yc 7) (syntax-parse #'(1 ya (2 3) 4 yb (5 6) yc 7)
@ -81,4 +81,4 @@
) )
{~global-and [g (syntax-e #'w)] w:str}) {~global-and [g (syntax-e #'w)] w:str})
(attribute g)]) (attribute g)])
6) #t)