From 92ffe436d6e5ff19f0a3a6aa10cfc2a1f8683348 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 29 May 2014 09:56:11 +0100 Subject: [PATCH] racket/unit: repair test Should have been part of bcafba989f. --- pkgs/racket-pkgs/racket-test/tests/units/test-exptime.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pkgs/racket-pkgs/racket-test/tests/units/test-exptime.rkt b/pkgs/racket-pkgs/racket-test/tests/units/test-exptime.rkt index d74101ff20..2b01cab362 100644 --- a/pkgs/racket-pkgs/racket-test/tests/units/test-exptime.rkt +++ b/pkgs/racket-pkgs/racket-test/tests/units/test-exptime.rkt @@ -37,9 +37,9 @@ (test '(#f (one-a one-b) () ()) (sig-info one^ quote)) (test '(#f (two-a) (two-v1 two-v2) (m)) (sig-info two^ quote)) (test '(#f () () ()) (sig-info three^ quote)) -(test '(two^ (two-a four-z) (two-v1 two-v2) (m)) (sig-info four^ quote)) +(test '(two^ (two-a four-z) (two-v1 two-v2) (two-a two-v1 two-v2 m m)) (sig-info four^ quote)) (test '(((#f . one^) (#f . three^)) ((#f . two^))) (unit-info one@ quote)) (test '(((Four . four^)) ((One . one^))) (unit-info two@ quote)) -(displayln "tests passed") \ No newline at end of file +(displayln "tests passed")