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

fix contract test case

Browse Source
This commit is contained in:
Robby Findler 2014-01-22 21:35:12 -06:00
parent 8a9a592c3c
commit 6484eed468
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkgs/racket-pkgs/racket-test/tests/racket/contract/contract-out.rkt
View File

@ -948,15 +948,16 @@
(define (f x) x)
(provide (contract-out [f (-> any/c any)]))))
(eval '(module provide/contract49-m2 racket/base
(require 'provide/contract48-m1)
(f 1 2)))
(with-handlers ([exn:fail? (λ (x)
(require 'provide/contract49-m1)
(provide go)
(define (go) (f 1 2))))
(with-handlers ([exn:fail? (λ (x)
(define m (regexp-match #rx"([^:]*:)" (exn-message x)))
(if m
(cadr m)
(list "regexp failed to match"
(exn-message x))))])
(eval '(require 'provide/contract49-m2))))
((dynamic-require ''provide/contract49-m2 'go))))
"f:")
(contract-error-test