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

Converting mutators

Browse Source
This commit is contained in:
Jay McCarthy 2012-01-04 15:35:14 -07:00
parent e4755a5ffc
commit f80292b4cf
42 changed files with 44 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/plai/gc2/bad-mutators/mut-1.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../bad-collectors/broken-collector.rkt" 12) (allocator-setup "../bad-collectors/broken-collector.rkt" 12)
50 50

2
collects/tests/plai/gc2/bad-mutators/mutator0.rkt
View File

@ -1 +1 @@
#lang plai/gc2mutator #lang plai/gc2/mutator

2
collects/tests/plai/gc2/bad-mutators/mutator1.rkt
View File

@ -1,2 +1,2 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
1 1

2
collects/tests/plai/gc2/bad-mutators/mutator2.rkt
View File

@ -1,2 +1,2 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../collectors/trivial-collector.rkt" "y") (allocator-setup "../collectors/trivial-collector.rkt" "y")

2
collects/tests/plai/gc2/bad-mutators/mutator3.rkt
View File

@ -1,2 +1,2 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup a 100) (allocator-setup a 100)

2
collects/tests/plai/gc2/bad-mutators/mutator5.rkt
View File

@ -1,2 +1,2 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/trivial-collector.rkt") (allocator-setup "../good-collectors/trivial-collector.rkt")

2
collects/tests/plai/gc2/bad-mutators/void-app.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 100) (allocator-setup "../good-collectors/good-collector.rkt" 100)
(define x (cons 1 2)) (define x (cons 1 2))
((set-first! x 2) 1) ((set-first! x 2) 1)

2
collects/tests/plai/gc2/good-mutators/andor.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 400) (allocator-setup "../good-collectors/good-collector.rkt" 400)
(define (do-one i) (/ (- i 1))) (define (do-one i) (/ (- i 1)))
(define (loop i) (define (loop i)

2
collects/tests/plai/gc2/good-mutators/app.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 28) (allocator-setup "../good-collectors/good-collector.rkt" 28)
(define (app f) (define (app f)

2
collects/tests/plai/gc2/good-mutators/bindings.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 58) (allocator-setup "../good-collectors/good-collector.rkt" 58)
(define x 'intial) (define x 'intial)

2
collects/tests/plai/gc2/good-mutators/by-val.rkt
View File

@ -1,5 +1,5 @@
; Ensure that call by value is correctly implemented. ; Ensure that call by value is correctly implemented.
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 40) (allocator-setup "../good-collectors/good-collector.rkt" 40)
(define global-val 'global) (define global-val 'global)

2
collects/tests/plai/gc2/good-mutators/case.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 40) (allocator-setup "../good-collectors/good-collector.rkt" 40)
(test/value=? (case 1 [(1) 2]) (test/value=? (case 1 [(1) 2])
2) 2)

2
collects/tests/plai/gc2/good-mutators/circular.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 68) (allocator-setup "../good-collectors/good-collector.rkt" 68)
(define (gen-circular) (define (gen-circular)

2
collects/tests/plai/gc2/good-mutators/classic-error.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
; This is `classic' in that it caught many bugs in copying collectors that students wrote for CS173, Fall 2007. ; This is `classic' in that it caught many bugs in copying collectors that students wrote for CS173, Fall 2007.
(allocator-setup "../good-collectors/good-collector.rkt" 28) (allocator-setup "../good-collectors/good-collector.rkt" 28)

2
collects/tests/plai/gc2/good-mutators/closure-1.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 60) (allocator-setup "../good-collectors/good-collector.rkt" 60)
(define lst '(2 -10)) ; (cons 2 (cons -10 empty))) (define lst '(2 -10)) ; (cons 2 (cons -10 empty)))

2
collects/tests/plai/gc2/good-mutators/closure-2.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 40) (allocator-setup "../good-collectors/good-collector.rkt" 40)

2
collects/tests/plai/gc2/good-mutators/cond.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 40) (allocator-setup "../good-collectors/good-collector.rkt" 40)
(cond (cond

2
collects/tests/plai/gc2/good-mutators/danny-bug.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 6) (allocator-setup "../good-collectors/good-collector.rkt" 6)
(define (define

2
collects/tests/plai/gc2/good-mutators/else.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
; Is else defined? ; Is else defined?
(allocator-setup "../good-collectors/good-collector.rkt" 40) (allocator-setup "../good-collectors/good-collector.rkt" 40)

2
collects/tests/plai/gc2/good-mutators/empty-mutator.rkt
View File

@ -1,3 +1,3 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 80) (allocator-setup "../good-collectors/good-collector.rkt" 80)

2
collects/tests/plai/gc2/good-mutators/gc-order.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 58) (allocator-setup "../good-collectors/good-collector.rkt" 58)
(define x 3) (define x 3)

2
collects/tests/plai/gc2/good-mutators/global-roots.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 20) (allocator-setup "../good-collectors/good-collector.rkt" 20)

2
collects/tests/plai/gc2/good-mutators/imports.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 20) (allocator-setup "../good-collectors/good-collector.rkt" 20)
(import-primitives modulo) (import-primitives modulo)

2
collects/tests/plai/gc2/good-mutators/kathi-bug-1.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 84) (allocator-setup "../good-collectors/good-collector.rkt" 84)
(define L (cons 3 empty)) (define L (cons 3 empty))
(test/value=? L '(3)) (test/value=? L '(3))

4
collects/tests/plai/gc2/good-mutators/modpath.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup tests/plai/gc2gc/good-collectors/good-collector 10) (allocator-setup tests/plai/gc2/good-collectors/good-collector 10)
1 1
2 2

2
collects/tests/plai/gc2/good-mutators/mutator4.rkt
View File

@ -1,3 +1,3 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 100) (allocator-setup "../good-collectors/good-collector.rkt" 100)
(cons 4 #t) (cons 4 #t)

2
collects/tests/plai/gc2/good-mutators/mutator6.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 58) (allocator-setup "../good-collectors/good-collector.rkt" 58)
(define x 'intial) (define x 'intial)

2
collects/tests/plai/gc2/good-mutators/mutator7.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 58) (allocator-setup "../good-collectors/good-collector.rkt" 58)
(define x 'initial) (define x 'initial)

2
collects/tests/plai/gc2/good-mutators/names.rkt
View File

@ -1,3 +1,3 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 10) (allocator-setup "../good-collectors/good-collector.rkt" 10)
(let ([f (λ (x) x)]) f) (let ([f (λ (x) x)]) f)

2
collects/tests/plai/gc2/good-mutators/proc-list.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
; Demonstrates garbage collection while a closure is on the stack. A correct collector must ensure that the roots ; Demonstrates garbage collection while a closure is on the stack. A correct collector must ensure that the roots
; reachable from (make-adder 90) and (make-adder 200) -- that is, the values 90 and 200 that k is bound to -- do ; reachable from (make-adder 90) and (make-adder 200) -- that is, the values 90 and 200 that k is bound to -- do
; not get discarded. ; not get discarded.

2
collects/tests/plai/gc2/good-mutators/repeat-test.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 30) (allocator-setup "../good-collectors/good-collector.rkt" 30)

2
collects/tests/plai/gc2/good-mutators/student-1.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
; mark-and-sweep-test.rkt - Ben Childs ; mark-and-sweep-test.rkt - Ben Childs
; Designed to test the mark and sweep collector ; Designed to test the mark and sweep collector

2
collects/tests/plai/gc2/good-mutators/student20111116.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 84) (allocator-setup "../good-collectors/good-collector.rkt" 84)
(halt-on-errors) (halt-on-errors)

2
collects/tests/plai/gc2/good-mutators/tail-calls.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 68) (allocator-setup "../good-collectors/good-collector.rkt" 68)
(define (length-accum lst len) (define (length-accum lst len)

2
collects/tests/plai/gc2/good-mutators/test-framework.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 28) (allocator-setup "../good-collectors/good-collector.rkt" 28)
(halt-on-errors #t) (halt-on-errors #t)

2
collects/tests/plai/gc2/good-mutators/thunks.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 4) (allocator-setup "../good-collectors/good-collector.rkt" 4)
; 2 ; 2

2
collects/tests/plai/gc2/other-mutators/begin.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 6) (allocator-setup "../good-collectors/good-collector.rkt" 6)
(define (go) (define (go)

4
collects/tests/plai/gc2/other-mutators/error.rkt
View File

@ -1,3 +1,3 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 400) (allocator-setup "../good-collectors/good-collector.rkt" 400)
(error 'error "plai/gc2mutator has error") (error 'error "plai/gc2/mutator has error")

2
collects/tests/plai/gc2/other-mutators/morse.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 24) (allocator-setup "../good-collectors/good-collector.rkt" 24)
(define a '(1 2 3 4 5)) (define a '(1 2 3 4 5))

2
collects/tests/plai/gc2/other-mutators/printing.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 400) (allocator-setup "../good-collectors/good-collector.rkt" 400)
(print-only-errors #f) (print-only-errors #f)

2
collects/tests/plai/gc2/other-mutators/quote.rkt
View File

@ -1,4 +1,4 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 28) (allocator-setup "../good-collectors/good-collector.rkt" 28)
1 2 1 2

2
collects/tests/plai/gc2/other-mutators/top.rkt
View File

@ -1,3 +1,3 @@
#lang plai/gc2mutator #lang plai/gc2/mutator
(allocator-setup "../good-collectors/good-collector.rkt" 400) (allocator-setup "../good-collectors/good-collector.rkt" 400)
frozzle frozzle