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

racket/shared: fix test

Browse Source
This commit is contained in:
Matthew Flatt 2014-04-15 20:12:03 -06:00
parent bc47a58e1d
commit 9fb6f1947b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/racket-pkgs/racket-test/tests/racket/shared.rktl
View File

@ -8,8 +8,8 @@
(require (only-in mzscheme define-struct)) (require (only-in mzscheme define-struct))
(load-relative "shared-tests.rktl") (load-relative "shared-tests.rktl")
(stest (letrec ([x x]) x) (shared ([x x]) x)) (err/rt-test (shared ([x x]) x) exn:fail:contract:variable?)
(stest (letrec ([x x]) x) (shared ([x y][y x]) x)) (err/rt-test (shared ([x y][y x]) x) exn:fail:contract:variable?)
(namespace-require/copy 'scheme/base) (namespace-require/copy 'scheme/base)
(require (only-in mzscheme define-struct)) (require (only-in mzscheme define-struct))