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

add test case for new behavior (that I think was

Browse Source 
legtimately a bug before the recent change
to metafunction contracts that added #:post)
This commit is contained in:
Robby Findler 2014-07-09 23:15:03 -05:00
parent 83a76027d5
commit a984e828dd
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkgs/redex-pkgs/redex-test/redex/tests/tl-test.rkt
View File

@ -1185,6 +1185,15 @@
'(2 1))) '(2 1)))
(let () (let ()
(define-metafunction empty-language
must-be-identity : natural_1 -> natural_1
[(must-be-identity any) 0])
(test (with-handlers ((exn:fail:redex? exn-message))
(term (must-be-identity 1)))
#rx"codomain test failed")
(define-metafunction empty-language (define-metafunction empty-language
[(same any_1 any_1) #t] [(same any_1 any_1) #t]
[(same any_1 any_2) #f]) [(same any_1 any_2) #f])