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

fixed up broken tests

Browse Source
This commit is contained in:
Robby Findler 2011-03-27 16:13:21 -05:00
parent 95f0d16761
commit 4021f55c61
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/tests/gracket/wxme.rkt
View File

@ -668,11 +668,11 @@
(define fbo (make-object editor-stream-out-bytes-base%))
(expect (send fbo tell) 0)
(expect (send fbo write-bytes #"abc") (void))
(expect (send fbo write-bytes #"abc") 3)
(expect (send fbo tell) 3)
(expect (send fbo get-bytes) #"abc")
(send fbo seek 2)
(expect (send fbo write-bytes #"012345" 1 4) (void))
(expect (send fbo write-bytes #"012345" 1 4) 3)
(expect (send fbo tell) 5)
(expect (send fbo get-bytes) #"ab123")
(expect (send fbo bad?) #f)
@ -1386,12 +1386,16 @@
(expect (send t get-extend-start-position) 5)
(expect (send t get-extend-end-position) 25)
(send t set-anchor #t)
(send t set-position 0 30 #f #t 'default #t)
(expect (send t get-start-position) 0)
(send t extend-position 30)
(expect (send t get-start-position) 5)
(expect (send t get-end-position) 30)
(expect (send t get-extend-start-position) 5)
(expect (send t get-extend-end-position) 25)
(send t extend-position 0)
(expect (send t get-start-position) 0)
(expect (send t get-end-position) 25)
(expect (send t get-extend-start-position) 5)
(expect (send t get-extend-end-position) 25))
;; ----------------------------------------