From 1b47cf58983712d69deaea055c93327724ffbe6f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 18 Nov 2013 21:47:29 -0600 Subject: [PATCH] clean up mistakes in 21807d3 - remove bogus test case - fix bug in collector - fix bug in test --- .../good-collectors/trivial-moving-collector.rkt | 15 +-------------- pkgs/plai/tests/gc2/good-mutators/test-moving.rkt | 5 +++-- 2 files changed, 4 insertions(+), 16 deletions(-) diff --git a/pkgs/plai/tests/gc2/good-collectors/trivial-moving-collector.rkt b/pkgs/plai/tests/gc2/good-collectors/trivial-moving-collector.rkt index 49a0d25cbd..aed6169f3c 100644 --- a/pkgs/plai/tests/gc2/good-collectors/trivial-moving-collector.rkt +++ b/pkgs/plai/tests/gc2/good-collectors/trivial-moving-collector.rkt @@ -32,7 +32,7 @@ allocation [(closure) (define size (heap-ref (+ addr 2))) (for ([i (in-range size)]) - (inc-at-addr (+ addr 2 i))) + (inc-at-addr (+ addr 3 i))) (loop (+ addr size 3))] [(prim) (loop (+ addr 2))] @@ -115,16 +115,3 @@ allocation ; function number -> boolean (define (gc:flat? a) (eq? 'prim (heap-ref a))) - -(module+ test - (require rackunit) - - (check-equal? (let ([h (make-vector 7)]) - (with-heap - h - (init-allocator) - (define one (gc:alloc-flat 1)) - (define clos (gc:closure 'something (list (make-root 'dummy (λ () one) void)))) - (gc:alloc-flat 2)) - h) - (vector 'prim 1 'closure 'something 0 'prim 2))) diff --git a/pkgs/plai/tests/gc2/good-mutators/test-moving.rkt b/pkgs/plai/tests/gc2/good-mutators/test-moving.rkt index 0624405227..bf59cfe476 100644 --- a/pkgs/plai/tests/gc2/good-mutators/test-moving.rkt +++ b/pkgs/plai/tests/gc2/good-mutators/test-moving.rkt @@ -1,5 +1,5 @@ #lang plai/gc2/mutator -(allocator-setup "../good-collectors/trivial-moving-collector.rkt" 40) +(allocator-setup "../good-collectors/trivial-moving-collector.rkt" 100) ;; just some random allocation here ;; this is really about testing @@ -16,4 +16,5 @@ ((let ([x (cons 1 2)]) (λ (y) ((first y) (first x)))) - (λ (z) z))) + (cons (λ (z) z) + 5)))