From d7fcd2f14951bf4ca78a238a4bb6bebbfb1fdd3c Mon Sep 17 00:00:00 2001 From: Carl Eastlund Date: Sat, 9 Jul 2011 17:28:04 -0400 Subject: [PATCH] Updated unit contract tests to not rely on a specific format for names of blamed modules in contract error messages. (cherry picked from commit d5b852c386ab05a829c07465710ca520c2dbefae) --- collects/tests/units/test-unit-contracts.rktl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/tests/units/test-unit-contracts.rktl b/collects/tests/units/test-unit-contracts.rktl index 3411f14978..6d89cc7f3f 100644 --- a/collects/tests/units/test-unit-contracts.rktl +++ b/collects/tests/units/test-unit-contracts.rktl @@ -626,8 +626,8 @@ (require (prefix-in m2: 'm2)) (m2:z) -(test-contract-error "'m2" "U@" "not a symbol" (m2:w)) -(test-contract-error "'m1" "U@" "not a string" (m2:v)) +(test-contract-error "m2" "U@" "not a symbol" (m2:w)) +(test-contract-error "m1" "U@" "not a string" (m2:v)) (test-syntax-error "no y in sig1" (unit/c (import (sig1 [y number?])) @@ -700,7 +700,7 @@ (require (prefix-in m4: 'm4)) -(test-contract-error "'m4" "f" "not an x" +(test-contract-error "m4" "f" "not an x" (m4:f 3)) (require (prefix-in m3: 'm3))