suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix tests

Browse Source
This commit is contained in:
Robby Findler 2016-01-29 06:14:39 -06:00
parent ec4bd288bf
commit 7a11d09134
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/racket-test/tests/racket/contract/arrow.rkt
View File

@ -366,8 +366,7 @@
'((contract (-> integer? ... any) '((contract (-> integer? ... any)
(λ args args) (λ args args)
'pos 'neg) 'pos 'neg)
1 2 3 4 5 6 7) 1 2 3 4 #f 6 7))
'(1 2 3 4 5 "6" 7))
(test/spec-passed (test/spec-passed
@ -606,6 +605,6 @@
(begin (set! l (cons 5 l)) #f) (begin (set! l (cons 5 l)) #f)
(begin (set! l (cons 6 l)) #f)) (begin (set! l (cons 6 l)) #f))
(reverse l)) (reverse l))
'(1 2 3 4 5)) '(1 2 3 4 5 6))
) )