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

Updated expected results to reflect new trace's new output style.

Browse Source 
svn: r16188
This commit is contained in:
Casey Klein 2009-09-30 16:35:11 +00:00
parent 38ed68b397
commit 50ce45e621
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/redex/private/tl-test.ss
View File

@ -609,13 +609,13 @@
(parameterize ([current-output-port sp]
[current-traced-metafunctions 'all])
(term (f 1)))
(test (get-output-string sp) "|(f 1)\n|0\n"))
(test (get-output-string sp) ">(f 1)\n<0\n"))
(let ([sp (open-output-string)])
(parameterize ([current-output-port sp]
[current-traced-metafunctions '(f)])
(term (f 1)))
(test (get-output-string sp) "|(f 1)\n|0\n")))
(test (get-output-string sp) ">(f 1)\n<0\n")))
(let ()
(define-language var-lang [(x y z w) variable])