From 9fb6f1947b3e1046fd5f7fd1e63b6bc5894e74b5 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 15 Apr 2014 20:12:03 -0600 Subject: [PATCH] racket/shared: fix test --- pkgs/racket-pkgs/racket-test/tests/racket/shared.rktl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/shared.rktl b/pkgs/racket-pkgs/racket-test/tests/racket/shared.rktl index d4308cb8f4..e90946e890 100644 --- a/pkgs/racket-pkgs/racket-test/tests/racket/shared.rktl +++ b/pkgs/racket-pkgs/racket-test/tests/racket/shared.rktl @@ -8,8 +8,8 @@ (require (only-in mzscheme define-struct)) (load-relative "shared-tests.rktl") -(stest (letrec ([x x]) x) (shared ([x x]) x)) -(stest (letrec ([x x]) x) (shared ([x y][y x]) x)) +(err/rt-test (shared ([x x]) x) exn:fail:contract:variable?) +(err/rt-test (shared ([x y][y x]) x) exn:fail:contract:variable?) (namespace-require/copy 'scheme/base) (require (only-in mzscheme define-struct))