Changeset 13504


Ignore:
Timestamp:
Mar 9, 2010, 6:30:56 PM (9 years ago)
Author:
gz
Message:

Add regression test for bug 645

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r13489 r13504  
    16401640      :win)
    16411641  :win)
     1642
     1643(deftest ccl.bug#645
     1644    (let ((arr (make-array 5 :element-type 'single-float))
     1645          (f (test-source-file  "~,,v,va" 30 #\null "")))
     1646      (with-open-file (s f :direction :input :element-type '(unsigned-byte 8))
     1647        (ccl:stream-read-ivector s arr 0 20)
     1648        (aref arr 0)))
     1649  0.0s0)
     1650
     1651       
Note: See TracChangeset for help on using the changeset viewer.