From eef5d7b712a1949f8f419ee2e69a9017f08cc511 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 22 Dec 2012 18:25:43 -0600 Subject: [PATCH] fix tests for the "class:"-less object-name results original commit: 58e15cc2c7ef7517326ef4ebac28d7db8779fb6f --- collects/tests/racket/contract-mzlib-test.rktl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/tests/racket/contract-mzlib-test.rktl b/collects/tests/racket/contract-mzlib-test.rktl index 7a65e01..fbcf500 100644 --- a/collects/tests/racket/contract-mzlib-test.rktl +++ b/collects/tests/racket/contract-mzlib-test.rktl @@ -4181,17 +4181,17 @@ so that propagation occurs. (test-name '(one-of/c '() 'x 1 #f #\a (void) (letrec ([x x]) x)) (one-of/c '() 'x 1 #f #\a (void) (letrec ([x x]) x))) - (test-name '(subclass?/c class:c%) + (test-name '(subclass?/c c%) (let ([c% (class object% (super-new))]) (subclass?/c c%))) - (test-name '(implementation?/c interface:i<%>) + (test-name '(implementation?/c i<%>) (let ([i<%> (interface ())]) (implementation?/c i<%>))) - (test-name '(is-a?/c interface:i<%>) + (test-name '(is-a?/c i<%>) (let ([i<%> (interface ())]) (is-a?/c i<%>))) - (test-name '(is-a?/c class:c%) + (test-name '(is-a?/c c%) (let ([i<%> (interface ())] [c% (class object% (super-new))]) (is-a?/c c%)))