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

syntax/parse template: add newlines in stress-test output

Browse Source
This commit is contained in:
Ryan Culpepper 2017-08-09 09:46:29 -04:00
parent eb65a859cd
commit d8b80d7e1d
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
pkgs/racket-test/tests/stxparse/stress-template.rkt
View File

@ -56,24 +56,26 @@
#,(for/list ([i 100]) 'a)
z))
(define prog
'((test f1-stx #'(_ e))
(test f1-tmpl #'(_ e))
(define progss
'(((test f1-stx #'(_ e))
(test f1-tmpl #'(_ e)))
(test f2-stx stx2a)
(test f2-tmpl stx2a)
((test f2-stx stx2a)
(test f2-tmpl stx2a))
(test f2-stx stx2)
(test f2-tmpl stx2)
((test f2-stx stx2)
(test f2-tmpl stx2))
(test f3-stx stx2a)
(test f3-tmpl stx2a)
((test f3-stx stx2a)
(test f3-tmpl stx2a))
(test f3-stx stx2)
(test f3-tmpl stx2)))
((test f3-stx stx2)
(test f3-tmpl stx2))))
(define-namespace-anchor nsa)
(for ([p prog])
(printf "> ~s\n" p)
(eval p (namespace-anchor->namespace nsa)))
(for ([progs progss])
(for ([p progs])
(printf "> ~s\n" p)
(eval p (namespace-anchor->namespace nsa)))
(newline))