dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(array-fill!): Exercise byte range and type checks.

Browse source
This commit is contained in:
Kevin Ryde 2004-08-06 01:08:12 +00:00
commit 2291a3a7e9
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -215,7 +215,13 @@
(let ((a (make-uniform-vector 1 #\nul)))
(pass-if "0" (array-fill! a 0) #t)
(pass-if "127" (array-fill! a 127) #t)
(pass-if "-128" (array-fill! a -128) #t)))
(pass-if "-128" (array-fill! a -128) #t)
(pass-if-exception "128" exception:out-of-range
(array-fill! a 128))
(pass-if-exception "-129" exception:out-of-range
(array-fill! a -129))
(pass-if-exception "symbol" exception:wrong-type-arg
(array-fill! a 'symbol))))
(with-test-prefix "short"
(let ((a (make-uniform-vector 1 's)))