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

Repenting of misunderstanding docs

Browse Source
This commit is contained in:
Jay McCarthy 2011-01-20 20:53:01 -07:00
parent faa0632de8
commit aadb1b60bb
1 changed files with 2 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
collects/tests/xml/srcloc.rkt
View File

@ -2,32 +2,10 @@
(require xml
tests/eli-tester)
(define (ppos p)
(define-values (line col pos) (port-next-location p))
pos)
; open-input-string is broken
(define (the-test first? second?)
(define is (open-input-string "abcdef"))
(test #:failure-prefix (format "~a ~a" first? second?)
(test
(when first? (port-count-lines! is))
(ppos is) => 1 (read-char is)
(ppos is) => 2 (read-char is)
(ppos is) => 3 (read-char is)
(when second? (port-count-lines! is))
(ppos is) => 4 (read-char is)
(ppos is) => 5 (read-char is)
(ppos is) => 6 (read-char is))))
(test (the-test #f #f)
(the-test #t #f)
(the-test #f #t)
(the-test #t #t))
(define p (open-input-string "abcdef"))
(port-count-lines! p)
(for ([x (in-range 0 6)]) (read-char p))
(define pos (ppos p))
(define-values (line col pos) (port-next-location p))
(define exn
(with-handlers ((exn:fail? values))