Use v6.2 contract error messages in the tests

lexi-lambda · Aug 2, 2015 · 6ad9993 · 6ad9993
1 parent 2a34780
commit 6ad9993
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/alexis/collection/private/test/contract.rkt b/alexis/collection/private/test/contract.rkt
@@ -15,18 +15,18 @@
   (thunk (contract (sequenceof integer?) null
                    'pos 'neg)))
  (check-exn
-  #rx"broke its own contract"
+  #rx"broke its contract"
   (thunk (contract (sequenceof integer?)
                    '(1 2 a 3 4 5)
                    'pos 'neg)))
  (check-exn
-  #rx"broke its own contract"
+  #rx"broke its contract"
   (thunk (nth (contract (sequenceof integer?)
                         `(1 2 3 . ,(stream 'a))
                         'pos 'neg)
               3)))
  (check-exn
-  #rx"broke its own contract"
+  #rx"broke its contract"
   (thunk (contract (sequenceof integer?)
                    #(1 2 a 3 4 5)
                    'pos 'neg)))
@@ -46,12 +46,12 @@
                    #"abcd"
                    'pos 'neg)))
  (check-exn
-  #rx"broke its own contract"
+  #rx"broke its contract"
   (thunk (first (contract (sequenceof integer?)
                           (hash 1 2 3 4)
                           'pos 'neg))))
  (check-exn
-  #rx"broke its own contract"
+  #rx"broke its contract"
   (thunk (contract (sequenceof integer?)
                    (set 1 2 'a 3 4 5)
                    'pos 'neg))))
@@ -68,7 +68,7 @@
                           (my-seq)
                           'pos 'neg))))
  (check-exn
-  #rx"broke its own contract"
+  #rx"broke its contract"
   (thunk (first (contract (sequenceof integer?)
                           (my-seq)
                           'pos 'neg)))))