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

Fixed type in tests:

Browse Source
This commit is contained in:
Georges Dupéron 2015-11-09 18:44:06 +01:00
parent d3aff063f6
commit 29ced0b198
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
typed-racket-test/unit-tests/typecheck-tests.rkt
View File

@ -2384,7 +2384,7 @@
(lambda: ([s1 : (U Number Symbol String)] [s2 : Symbol])
(= (string-length (format "~a" s1))
(string-length (symbol->string s2)))))
(t:Un (-val #f) (-pair (one-of/c 'a 'b 'c) (-vec -Symbol)))]
(t:Un (-val #f) (-pair (one-of/c 'a 'b 'c) (-vec* -Symbol)))]
;; Reject `member` when needle not included in is-equal?'s argument type:
[tc-err (member (ann 123 Number)
'("bb" "c" "ddd")