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

fix tests for the "class:"-less object-name results

Browse Source 
original commit: 58e15cc2c7ef7517326ef4ebac28d7db8779fb6f
This commit is contained in:
Robby Findler 2012-12-22 18:25:43 -06:00
parent 53c613bee6
commit eef5d7b712
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/racket/contract-mzlib-test.rktl
View File

@ -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%)))