From 9454a471d3c1b46ea1d255cea2ab056cb3a0c438 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 21 Nov 2009 13:21:30 +0000 Subject: [PATCH] added some vector-copy tests svn: r16940 --- collects/tests/mzscheme/vector.ss | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/collects/tests/mzscheme/vector.ss b/collects/tests/mzscheme/vector.ss index 223477a5e9..90a40244aa 100644 --- a/collects/tests/mzscheme/vector.ss +++ b/collects/tests/mzscheme/vector.ss @@ -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 ()