From 50ce45e621132274d3f03471c76325e29a2e706e Mon Sep 17 00:00:00 2001 From: Casey Klein Date: Wed, 30 Sep 2009 16:35:11 +0000 Subject: [PATCH] Updated expected results to reflect new trace's new output style. svn: r16188 --- collects/redex/private/tl-test.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/redex/private/tl-test.ss b/collects/redex/private/tl-test.ss index d88724b887..91d237de61 100644 --- a/collects/redex/private/tl-test.ss +++ b/collects/redex/private/tl-test.ss @@ -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])