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) #,(for/list ([i 100]) 'a)
z)) z))
(define prog (define progss
'((test f1-stx #'(_ e)) '(((test f1-stx #'(_ e))
(test f1-tmpl #'(_ e)) (test f1-tmpl #'(_ e)))
(test f2-stx stx2a) ((test f2-stx stx2a)
(test f2-tmpl stx2a) (test f2-tmpl stx2a))
(test f2-stx stx2) ((test f2-stx stx2)
(test f2-tmpl stx2) (test f2-tmpl stx2))
(test f3-stx stx2a) ((test f3-stx stx2a)
(test f3-tmpl stx2a) (test f3-tmpl stx2a))
(test f3-stx stx2) ((test f3-stx stx2)
(test f3-tmpl stx2))) (test f3-tmpl stx2))))
(define-namespace-anchor nsa) (define-namespace-anchor nsa)
(for ([p prog]) (for ([progs progss])
(printf "> ~s\n" p) (for ([p progs])
(eval p (namespace-anchor->namespace nsa))) (printf "> ~s\n" p)
(eval p (namespace-anchor->namespace nsa)))
(newline))