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

fix method name 'equal?' i wxme test

Browse Source 
svn: r14492
This commit is contained in:
Matthew Flatt 2009-04-11 22:40:04 +00:00
parent 04a8e21cf2
commit 3a68af494a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/mred/wxme.ss
View File

@ -156,9 +156,9 @@
(define d1 (new style-delta%)) (define d1 (new style-delta%))
(define d2 (new style-delta%)) (define d2 (new style-delta%))
(expect (send d1 get-underlined-on) #f) (expect (send d1 get-underlined-on) #f)
(expect (send d1 equal d2) #t) (expect (send d1 equal? d2) #t)
(send d1 set-underlined-on #t) (send d1 set-underlined-on #t)
(expect (send d1 equal d2) #f) (expect (send d1 equal? d2) #f)
(send d2 collapse d1) (send d2 collapse d1)
(expect (send d2 get-underlined-on) #t) (expect (send d2 get-underlined-on) #t)
(send d2 set-underlined-on #f) (send d2 set-underlined-on #f)