www

commit de645308068bf7d8724aeded7eee5746425a524f
parent 66726ba26e7d318478e3c0fa6ac833e60baa9ad8
Author: Georges Dupéron <georges.duperon@gmail.com>
Date:   Wed, 28 Sep 2016 14:08:06 +0200

Fixed test

Diffstat:
M
test/test-maybe-empty.rkt
 | 
16
++++++++--------

1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/test/test-maybe-empty.rkt b/test/test-maybe-empty.rkt
@@ -12,31 +12,31 @@
                      racket/format))
 
 (check-equal? (syntax-parse #'()
-   [{~no-order (~maybe/empty {~seq τᵢ ... {~lift-rest τ-rest}})}
-    (syntax->datum #'(#:rest τ-rest #:τᵢ τᵢ …))])
- '(#:rest () #:τᵢ))
+                [{~no-order (~maybe/empty {~seq τᵢ ... {~lift-rest τ-rest}})}
+                 (syntax->datum #'(#:rest τ-rest #:τᵢ τᵢ …))])
+              '(#:rest () #:τᵢ))
 
 (check-equal? (syntax-parse #'a
                  [{~no-order (~maybe/empty {~seq τᵢ ... {~lift-rest τ-rest}})}
-                  (syntax->datum #'(τ-rest τᵢ …))])
+                  (syntax->datum #'(#:rest τ-rest #:τᵢ τᵢ …))])
               '(#:rest a #:τᵢ))
 
 (check-equal? (syntax-parse #'(a)
                  [{~no-order (~maybe/empty {~seq τᵢ ... {~lift-rest τ-rest}})}
-                  (syntax->datum #'(τ-rest τᵢ …))])
+                  (syntax->datum #'(#:rest τ-rest #:τᵢ τᵢ …))])
               '(#:rest () #:τᵢ a))
 
 (check-equal? (syntax-parse #'(a . b)
                  [{~no-order (~maybe/empty {~seq τᵢ ... {~lift-rest τ-rest}})}
-                  (syntax->datum #'(τ-rest τᵢ …))])
+                  (syntax->datum #'(#:rest τ-rest #:τᵢ τᵢ …))])
               '(#:rest b #:τᵢ a))
 
 (check-equal? (syntax-parse #'(a b)
                  [{~no-order (~maybe/empty {~seq τᵢ ... {~lift-rest τ-rest}})}
-                  (syntax->datum #'(τ-rest τᵢ …))])
+                  (syntax->datum #'(#:rest τ-rest #:τᵢ τᵢ …))])
               '(#:rest () #:τᵢ a b))
 
 (check-equal? (syntax-parse #'(a b . c)
                  [{~no-order (~maybe/empty {~seq τᵢ ... {~lift-rest τ-rest}})}
-                  (syntax->datum #'(τ-rest τᵢ …))])
+                  (syntax->datum #'(#:rest τ-rest #:τᵢ τᵢ …))])
               '(#:rest c #:τᵢ a b))
 \ No newline at end of file