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

Fixed test for #5

Browse Source
This commit is contained in:
Georges Dupéron 2017-05-06 03:43:41 +02:00
parent c6783850d1
commit eee77ec3c0
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
test/bug-5.rkt
View File

@ -1,20 +1,22 @@
#lang racket/base
(require subtemplate/override
rackunit)
(check-equal? (let ()
(check-equal?(syntax->datum
(let ()
(define/syntax-parse ({~optional
{~or k:keyword b:boolean i:nat}}
{~and {~or (v …) s:str}} …)
#'(#:a-keyword (1 2 3 4) "foo" (5 6)))
#'(l (?@@ (?? (v …)) …)))
'(l 1 2 3 4 5 6))
(check-equal? (let ()
(define/syntax-parse ({~optional
{~or k:keyword b:boolean i:nat}}
{~and {~or (v …) s:str}} …)
#'(#:a-keyword (1 2 3 4) "foo" (5 6)))
#'(l (?@@ (?? (v …)) …)))
#'(l (?@@ (?? (v …)) …))))
'(l 1 2 3 4 5 6))
(check-equal? (syntax->datum
(let ()
(define/syntax-parse ({~optional
{~or k:keyword b:boolean i:nat}}
{~and {~or (v …) s:str}} …)
#'(#:a-keyword (1 2 3 4) "foo" (5 6)))
#'(l (?@@ (?? (v …)) …))))
'(l 1 2 3 4 5 6))