Changeset 13504

Timestamp:

Mar 9, 2010, 10:30:56 AM (15 years ago)

Author:

gz

Message:

Add regression test for bug 645

File:

• trunk/tests/ansi-tests/ccl.lsp (modified) (1 diff)

trunk/tests/ansi-tests/ccl.lsp

@@ -1640 +1640 @@
       :win)
   :win)
+
+(deftest ccl.bug#645
+    (let ((arr (make-array 5 :element-type 'single-float))
+          (f (test-source-file  "~,,v,va" 30 #\null "")))
+      (with-open-file (s f :direction :input :element-type '(unsigned-byte 8))
+        (ccl:stream-read-ivector s arr 0 20)
+        (aref arr 0)))
+  0.0s0)
+
+