mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

Removed tests that tried to store a character into a byte vector,

Browse source 
which no longer works.  Characters are not bytes.
This commit is contained in:
Marius Vollmer 2004-10-27 19:34:17 +00:00
parent f984af077b
commit af4701b0de
1 changed files with 1 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

26
test-suite/tests/unif.test
View file

@ -382,14 +382,7 @@
(pass-if-exception "-129" exception:out-of-range (pass-if-exception "-129" exception:out-of-range
(begin (array-set! a -129 0) #t)) (begin (array-set! a -129 0) #t))
(pass-if-exception "128" exception:out-of-range (pass-if-exception "128" exception:out-of-range
(begin (array-set! a 128 0) #t)) (begin (array-set! a 128 0) #t))))
(pass-if "#\\nul"
(begin (array-set! a #\nul 0) #t))
(pass-if "#\\del"
(begin (array-set! a #\del 0) #t))
(pass-if "char 255"
(begin (array-set! a (integer->char 255) 0) #t))))
(with-test-prefix "short" (with-test-prefix "short"
@ -482,21 +475,4 @@
(pass-if "-128" (pass-if "-128"
(begin (begin
(array-set! a -128 0) (array-set! a -128 0)
(= -128 (uniform-vector-ref a 0))))
(pass-if "#\\nul"
(begin
(array-set! a #\nul 0)
(= 0 (uniform-vector-ref a 0))))
(pass-if "#\\del"
(begin
(array-set! a #\del 0)
(= 127 (uniform-vector-ref a 0))))
(pass-if "char 255"
(begin
(array-set! a (integer->char 255) 0)
(= -1 (uniform-vector-ref a 0))))
(pass-if "char 128"
(begin
(array-set! a (integer->char 128) 0)
(= -128 (uniform-vector-ref a 0))))))) (= -128 (uniform-vector-ref a 0)))))))