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

Potentially useful tests

Browse Source
This commit is contained in:
Jay McCarthy 2013-06-15 08:51:28 -06:00
parent bceae7b5b0
commit a121fcad7a
2 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/tests/plai/gc/good-mutators/setbang.rkt Normal file
View File

@ -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)

16
collects/tests/plai/gc2/good-mutators/setbang.rkt Normal file
View File

@ -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)