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

Fixed copy-paste typo in previous commit (Added positive tests for member and assoc with third is-equal? argument)

Browse Source
This commit is contained in:
Georges Dupéron 2015-10-30 13:51:39 +01:00
parent 3208cb6924
commit b1fd426803
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2374,13 +2374,15 @@
;; The result type shouldn't be widened to include that type though.
[tc-e (member 3
'(a b c)
(lambda: ([s1 : (U Number Symbol String)] [s2 : String])
(= (string-length (format "~a" s1)) (string-length s2))))
(lambda: ([s1 : (U Number Symbol String)] [s2 : Symbol])
(= (string-length (format "~a" s1))
(string-length (symbol->string s2)))))
(t:Un (-val #f) (-lst (one-of/c 'a 'b 'c)))]
[tc-e (assoc 3
'((a . #(a)) (b . #(b)) (c . #(c)))
(lambda: ([s1 : (U Number Symbol String)] [s2 : String])
(= (string-length (format "~a" s1)) (string-length s2))))
(= (string-length (format "~a" s1))
(string-length (symbol->string s2)))))
(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)