From 26187fed8f3d3df4e7edd8bfb435ced0c323d910 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 10 Aug 2010 19:27:17 -0500 Subject: [PATCH] fixed a bug in the mzlib contracts test suite --- collects/meta/props | 2 +- collects/tests/racket/contract-mzlib-test.rktl | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/meta/props b/collects/meta/props index ff09f82d8f..f3082e6787 100755 --- a/collects/meta/props +++ b/collects/meta/props @@ -1678,7 +1678,7 @@ path/s is either such a string or a list of them. "collects/tests/racket/compat.rktl" drdr:command-line (racket "-f" *) "collects/tests/racket/compile.rktl" drdr:command-line #f "collects/tests/racket/contmark.rktl" drdr:command-line #f -"collects/tests/racket/contract-mzlib-test.rktl" drdr:command-line #f +"collects/tests/racket/contract-mzlib-test.rktl" responsible (robby) drdr:command-line (racket "-qr" *) "collects/tests/racket/contract-opt-tests.rkt" drdr:command-line (racket "-f" *) "collects/tests/racket/contract-test.rktl" responsible (robby) drdr:command-line #f "collects/tests/racket/control.rktl" drdr:command-line (racket "-f" *) diff --git a/collects/tests/racket/contract-mzlib-test.rktl b/collects/tests/racket/contract-mzlib-test.rktl index 011562f238..28df566071 100644 --- a/collects/tests/racket/contract-mzlib-test.rktl +++ b/collects/tests/racket/contract-mzlib-test.rktl @@ -1546,8 +1546,8 @@ of the contract library does not change over time. 'pos 'neg) 1) - x) - (reverse '(1 3 4 2))) + (reverse x)) + '(3 1 2 4)) (test/neg-blame 'parameter/c1