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

get rid of port-position tests on custom textual ports

Browse Source 
svn: r12692
This commit is contained in:
Matthew Flatt 2008-12-03 21:29:06 +00:00
parent 8162eda54f
commit 97fafb6ce4
1 changed files with 16 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
collects/tests/r6rs/io/ports.sls
View File

@ -571,24 +571,17 @@
(lambda () 'ok))]) (lambda () 'ok))])
(test/unspec (port-position p)) (test/unspec (port-position p))
(test (get-string-n p 3) "abc") (test (get-string-n p 3) "abc")
(let ([pos3 (port-position p)]) (test (lookahead-char p) #\d)
(test (lookahead-char p) #\d) (test (lookahead-char p) #\d)
(test (lookahead-char p) #\d) (test (get-string-n p 7) "defghij")
(test (port-position p) pos3) (get-string-n p 2)
(test (get-string-n p 7) "defghij") (test (get-string-n p 2) "mn")
(let ([pos10 (port-position p)]) (test (get-string-n p 2) "op")
(get-string-n p 2) (test (get-string-n p 2) (eof-object))
(test (get-string-n p 2) "mn") (test/unspec (close-port p)))
(test/unspec (set-port-position! p pos10))
(get-string-n p 2)
(test (get-string-n p 2) "mn"))
(test (get-string-n p 2) "op")
(test (get-string-n p 2) (eof-object))
(test/unspec (set-port-position! p pos3))
(test (get-string-n p 3) "def")
(test/unspec (close-port p))))
(test-positions make-custom-textual-input-port) ;; textual port positions are hopelessly broken in R6RS
#;(test-positions make-custom-textual-input-port)
(let* ([accum '()] (let* ([accum '()]
[p (make-custom-binary-output-port [p (make-custom-binary-output-port
@ -647,7 +640,8 @@
(test accum '(#\z #\b #\a)) (test accum '(#\z #\b #\a))
(test/unspec (close-port p))) (test/unspec (close-port p)))
(test-positions make-custom-textual-output-port) ;; textual port positions are hopelessly broken in R6RS
#;(test-positions make-custom-textual-output-port)
(let* ([save #f] (let* ([save #f]
[p (make-custom-binary-input/output-port [p (make-custom-binary-input/output-port
@ -685,9 +679,10 @@
(test (get-char p) #\!) (test (get-char p) #\!)
(close-port p)) (close-port p))
(test-positions (lambda (id r/w get set close) ;; textual port positions are hopelessly broken in R6RS
(make-custom-textual-input/output-port #;(test-positions (lambda (id r/w get set close)
id r/w r/w get set close))) (make-custom-textual-input/output-port
id r/w r/w get set close)))
;; ---------------------------------------- ;; ----------------------------------------
;; stdin, stderr, stdout ;; stdin, stderr, stdout