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

r6rs test changes: change utf-8 to latin-1 as suggested by Will, and add missing tests for some carry functions

Browse Source 
svn: r10878
This commit is contained in:
Matthew Flatt 2008-07-23 15:40:09 +00:00
parent a0f7301dff
commit 7bd75641c7
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/r6rs/arithmetic/fixnums.sls
View File

@ -37,7 +37,9 @@
[(_ 1 n (m ...) ps)
(begin (carry-tests 2 n m ps) ...)]
[(_ 2 n m (p ...))
(begin (carry-test fx*/carry fx*/carry-reference n m p) ...)]))
(begin (carry-test fx*/carry fx*/carry-reference n m p) ...
(carry-test fx+/carry fx+/carry-reference n m p) ...
(carry-test fx-/carry fx-/carry-reference n m p) ...)]))
(define (run-arithmetic-fixnums-tests)
@ -181,7 +183,7 @@
(test (fx- (greatest-fixnum) (greatest-fixnum)) 0)
(test (fx- (least-fixnum) (least-fixnum)) 0)
;; If you put N numbers here, it expads to N^3 tests!
;; If you put N numbers here, it expands to O(N^3) tests!
(carry-tests 0 [0 1 2 -1 -2 38734 -3843 2484598 -348732487 (greatest-fixnum) (least-fixnum)])
(test (fxdiv 123 10) 12)

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

@ -414,20 +414,20 @@
(let ([p (open-file-input/output-port "io-tmp1"
(file-options no-fail)
'none
(make-transcoder (utf-8-codec)))])
(make-transcoder (latin-1-codec)))])
(test/unspec (put-string p "berry"))
(test/unspec (close-port p)))
(let ([p (open-file-input/output-port "io-tmp1"
(file-options no-fail no-truncate)
'none
(make-transcoder (utf-8-codec)))])
(make-transcoder (latin-1-codec)))])
(test (get-string-n p 4) "berr")
(test/unspec (put-string p "apple"))
(test/unspec (close-port p)))
(let ([p (open-file-input/output-port "io-tmp1"
(file-options no-fail no-truncate)
'none
(make-transcoder (utf-8-codec)))])
(make-transcoder (latin-1-codec)))])
(test (get-string-n p 10) "berrapple")
(test/unspec (close-port p)))