9 lines
246 B
Racket
9 lines
246 B
Racket
#lang plai/gc2/mutator
|
|
(allocator-setup "../good-collectors/good-collector.rkt" 40)
|
|
(test/value=? (case 1 [(1) 2])
|
|
2)
|
|
(test/value=? (case 1 [(1) 2] [else 3])
|
|
2)
|
|
(test/value=? (case 2 [(1) 2] [else 3])
|
|
3)
|