From 0a34d6f098df14e3443c7af8cfdd465738f1ecab Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 9 Aug 2006 14:07:02 +0000
Subject: [PATCH] fixed buggy test suite

svn: r3998

original commit: 97e613ac54ec203d55862b6b784c01f084c1421b
---
 collects/tests/mzscheme/contract-test.ss | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/collects/tests/mzscheme/contract-test.ss b/collects/tests/mzscheme/contract-test.ss
index fe131fa..4f81781 100644
--- a/collects/tests/mzscheme/contract-test.ss
+++ b/collects/tests/mzscheme/contract-test.ss
@@ -580,7 +580,7 @@
   
   (test/neg-blame
    '->r5
-   '((contract (->r ([x number?]) (<=/c x)) (lambda (x) (+ x 1)) 'pos 'neg) #f))
+   '((contract (->r ([x number?]) any) (lambda (x) (+ x 1)) 'pos 'neg) #f))
   
   (test/pos-blame
    '->r6
@@ -620,7 +620,7 @@
   
   (test/neg-blame
    '->r15
-   '((contract (->r ([x number?]) rest any/c (<=/c x)) (lambda (x . y) (+ x 1)) 'pos 'neg) #f))
+   '((contract (->r ([x number?]) rest any/c any) (lambda (x . y) (+ x 1)) 'pos 'neg) #f))
   
   (test/pos-blame
    '->r16
@@ -887,7 +887,7 @@
   
   (test/neg-blame
    '->r5
-   '((contract (->r ([x number?]) (<=/c x)) (lambda (x) (+ x 1)) 'pos 'neg) #f))
+   '((contract (->r ([x number?]) any) (lambda (x) (+ x 1)) 'pos 'neg) #f))
   
   (test/pos-blame
    '->r6
@@ -927,7 +927,7 @@
   
   (test/neg-blame
    '->r15
-   '((contract (->r ([x number?]) rest any/c (<=/c x)) (lambda (x . y) (+ x 1)) 'pos 'neg) #f))
+   '((contract (->r ([x number?]) rest any/c any) (lambda (x . y) (+ x 1)) 'pos 'neg) #f))
   
   (test/pos-blame
    '->r16