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

added some vector-copy tests

Browse Source 
svn: r16940
This commit is contained in:
Robby Findler 2009-11-21 13:21:30 +00:00
parent e3a23fbde6
commit 9454a471d3
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/tests/mzscheme/vector.ss
View File

@ -119,6 +119,17 @@
(test 2 vector-count even? #(1 2 3 4))
(test 2 vector-count < #(1 2 3 4) #(4 3 2 1)))
;; ---------- vector-copy ----------
(let ()
(test #() vector-copy #())
(test #(1 2 3) vector-copy #(1 2 3))
(test #f immutable? (vector-copy #(1 2 3)))
(let ([v (vector 1 2 3)])
(test #f eq? v (vector-copy v))))
;; ---------- vector-arg{min,max} ----------
(let ()