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