www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README

commit 8ac38f4a3a2e5a8dedbefe4f48980b953e200016
parent 11fbff19acfdd65a206465af5fc68708dfc7b0c2
Author: Georges Dupéron <georges.duperon@gmail.com>
Date:   Mon, 19 Sep 2016 20:47:01 +0200

Fixed tests and missing dependency

Diffstat:
Minfo.rkt | 3++-
Mtest/test-global.rkt | 8++++----
2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/info.rkt b/info.rkt @@ -3,7 +3,8 @@ (define deps '("base" "rackunit-lib" "phc-toolkit" - "generic-syntax-expanders")) + "generic-syntax-expanders" + "alexis-util")) (define build-deps '("scribble-lib" "racket-doc" "seq-no-order")) diff --git a/test/test-global.rkt b/test/test-global.rkt @@ -61,7 +61,7 @@ (attribute kw-not-number)]) #t) -;; Tests from the documentation: +;; former tests from the documentation: (check-equal? (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}) (attribute g)]) - 'ya) + #t) (check-equal? (syntax-parse #'(1 ya (2 3) 4 yb (5 6) yc 7) @@ -81,4 +81,4 @@ …) {~global-and [g (syntax-e #'w)] w:str}) (attribute g)]) - 6) -\ No newline at end of file + #t) +\ No newline at end of file