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

Added negative tests for assoc and member.

Browse Source
This commit is contained in:
Georges Dupéron 2015-11-09 20:49:15 +01:00
parent 6c12d93261
commit 55e58a3fae
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
typed-racket-test/fail/assoc-with-is-equal-argument.rkt Normal file
View File

@ -0,0 +1,9 @@
#lang typed/racket
(: equal-string-length (→ String String Boolean))
(define (equal-string-length s1 s2)
(= (string-length s1) (string-length s2)))
(assoc 123
'(("bb" . 1) ("c" . 2) ("ddd" . 3))
equal-string-length)

9
typed-racket-test/fail/member-with-is-equal-argument.rkt Normal file
View File

@ -0,0 +1,9 @@
#lang typed/racket
(: equal-string-length (→ String String Boolean))
(define (equal-string-length s1 s2)
(= (string-length s1) (string-length s2)))
(member 123
'("bb" "c" "ddd")
equal-string-length)