From 58e15cc2c7ef7517326ef4ebac28d7db8779fb6f 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 --- collects/tests/racket/contract-mzlib-test.rktl | 8 ++++---- collects/tests/racket/contract-test.rktl | 8 ++++---- collects/tests/racket/name.rktl | 4 ++-- 3 files changed, 10 insertions(+), 10 deletions(-) diff --git a/collects/tests/racket/contract-mzlib-test.rktl b/collects/tests/racket/contract-mzlib-test.rktl index 7a65e01637..fbcf50091c 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%))) diff --git a/collects/tests/racket/contract-test.rktl b/collects/tests/racket/contract-test.rktl index 3d79ddbc51..7922124a60 100644 --- a/collects/tests/racket/contract-test.rktl +++ b/collects/tests/racket/contract-test.rktl @@ -12114,17 +12114,17 @@ so that propagation occurs. (test-name '(or/c #f #t #\a "x") (or/c #f #t #\a "x")) (test-name '(or/c #f #t #\a "x" #rx"x" #rx#"x") (or/c #f #t #\a "x" #rx"x" #rx#"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%))) diff --git a/collects/tests/racket/name.rktl b/collects/tests/racket/name.rktl index 7d46bc7ef6..7f3e830a24 100644 --- a/collects/tests/racket/name.rktl +++ b/collects/tests/racket/name.rktl @@ -73,8 +73,8 @@ (test #t src-name? (object-name (interface ()))) ; Test class stuff ok when name -(test 'class:c1 object-name (let ([c1 (class object% (super-make-object))]) c1)) -(test 'interface:i1 object-name (let ([i1 (interface ())]) i1)) +(test 'c1 object-name (let ([c1 (class object% (super-make-object))]) c1)) +(test 'i1 object-name (let ([i1 (interface ())]) i1)) ; Test unit stuff ok when no name (test #t src-name? (object-name (unit (import) (export))))