From c9dcbb9edb30245cf6c2858d24673e80f5b54a50 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Wed, 24 Nov 2010 23:26:29 -0500 Subject: [PATCH] Failing test --- collects/tests/plai/gc/good-mutators/let-star.rkt | 9 +++++++++ collects/tests/plai/test-random-mutator.rkt | 2 ++ 2 files changed, 11 insertions(+) create mode 100644 collects/tests/plai/gc/good-mutators/let-star.rkt diff --git a/collects/tests/plai/gc/good-mutators/let-star.rkt b/collects/tests/plai/gc/good-mutators/let-star.rkt new file mode 100644 index 0000000000..4b76d97492 --- /dev/null +++ b/collects/tests/plai/gc/good-mutators/let-star.rkt @@ -0,0 +1,9 @@ +#lang plai/mutator +(allocator-setup "../good-collectors/good-collector.rkt" 4) + +(define (go) + (let ([obj 'z]) + 2 3 + (symbol? obj))) + +(go) \ No newline at end of file diff --git a/collects/tests/plai/test-random-mutator.rkt b/collects/tests/plai/test-random-mutator.rkt index ec74cfad89..b4f964a1cb 100644 --- a/collects/tests/plai/test-random-mutator.rkt +++ b/collects/tests/plai/test-random-mutator.rkt @@ -15,6 +15,8 @@ ;; returns true if evaluating the example code (as a mutator) ;; returns one result at the top-level, namely the symbol 'passed. (define (test-code exps) + (printf "Test code\n") + (for-each pretty-print exps) (let ([tmpfile (make-temporary-file "plai-random-mutator-test-~a")]) (call-with-output-file tmpfile (λ (port)