From a121fcad7a4378f1a156864c0a473c8d5e9a4c39 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Sat, 15 Jun 2013 08:51:28 -0600 Subject: [PATCH] Potentially useful tests --- collects/tests/plai/gc/good-mutators/setbang.rkt | 16 ++++++++++++++++ .../tests/plai/gc2/good-mutators/setbang.rkt | 16 ++++++++++++++++ 2 files changed, 32 insertions(+) create mode 100644 collects/tests/plai/gc/good-mutators/setbang.rkt create mode 100644 collects/tests/plai/gc2/good-mutators/setbang.rkt diff --git a/collects/tests/plai/gc/good-mutators/setbang.rkt b/collects/tests/plai/gc/good-mutators/setbang.rkt new file mode 100644 index 0000000000..41d4a4c152 --- /dev/null +++ b/collects/tests/plai/gc/good-mutators/setbang.rkt @@ -0,0 +1,16 @@ +#lang plai/mutator +(allocator-setup "../good-collectors/good-collector.rkt" 40) + +(test/value=? + (let ([f 0]) + (let ([g (lambda (n) f)]) + (set! f 1) + (g 11))) + 1) + +(test/value=? + (let ([f (lambda (n) 'wrong-answer)]) + (let ([g (lambda (n) (f n))]) + (set! f (lambda (n) 'right-answer)) + (g 11))) + 'right-answer) diff --git a/collects/tests/plai/gc2/good-mutators/setbang.rkt b/collects/tests/plai/gc2/good-mutators/setbang.rkt new file mode 100644 index 0000000000..6d6159bc30 --- /dev/null +++ b/collects/tests/plai/gc2/good-mutators/setbang.rkt @@ -0,0 +1,16 @@ +#lang plai/gc2/mutator +(allocator-setup "../good-collectors/good-collector.rkt" 1024) + +(test/value=? + (let ([f 0]) + (let ([g (lambda (n) f)]) + (set! f 1) + (g 11))) + 1) + +(test/value=? + (let ([f (lambda (n) 'wrong-answer)]) + (let ([g (lambda (n) (f n))]) + (set! f (lambda (n) 'right-answer)) + (g 11))) + 'right-answer)