Changeset 32600 in project


Ignore:
Timestamp:
07/15/15 19:54:26 (5 years ago)
Author:
Ivan Raikov
Message:

added binary argument to file->byte-blob tests

Location:
release/4/byte-blob/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/byte-blob/trunk/byte-blob.scm

    r32599 r32600  
    6969         byte-blob->f32vector
    7070         byte-blob->f64vector
    71 
    72          
    7371         )
    7472
  • release/4/byte-blob/trunk/byte-blob.setup

    r32386 r32600  
    1717
    1818  ;; Assoc list with properties for your extension:
    19   '((version 1.17)
     19  '((version 1.18)
    2020    ))
    2121
  • release/4/byte-blob/trunk/tests/run.scm

    r30529 r32600  
    198198              (close-output-port out-port)
    199199
    200               (let ((in-port (open-input-file temp-path)))
     200              (let ((in-port (open-input-file temp-path #:binary)))
    201201
    202202                (test
     
    214214                (file->byte-blob temp-path)))
    215215
     216              (test
     217               (sprintf "file->byte-blob in binary mode")
     218               '(10 9 8 9 6 9 4 9 2)
     219               (byte-blob->list
     220                (file->byte-blob temp-path #:binary)))
     221
    216222              (delete-file temp-path)
    217223               
Note: See TracChangeset for help on using the changeset viewer.