Changeset 30653 in project for release/4/r7rs/trunk/tests/run.scm


Ignore:
Timestamp:
04/05/14 23:50:10 (7 years ago)
Author:
evhan
Message:

r7rs/base: Bytevector ports (credit to Seth Alves)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/r7rs/trunk/tests/run.scm

    r30325 r30653  
    974974                 (begin (eq? numbers#+ +)))))
    975975
     976
     977(test-group "open-input-bytevector"
     978  (test (bytevector 0 1 2 10 13 40 41 42 128 140 240 255)
     979        (let ((bv (bytevector 0 1 2 10 13 40 41 42 128 140 240 255)))
     980          (read-bytevector 12 (open-input-bytevector bv)))))
     981
     982(test-group "open-output-bytevector"
     983  (test (bytevector 0 1 2 10 13 40 41 42 128 140 240 255)
     984        (let ((p (open-output-bytevector)))
     985          (write-bytevector (bytevector 0 1 2 10 13) p)
     986          (write-bytevector (bytevector 40 41 42 128) p)
     987          (write-bytevector (bytevector 140 240 255) p)
     988          (close-output-port p)
     989          (get-output-bytevector p))))
     990
    976991(test-end "r7rs tests")
    977992
Note: See TracChangeset for help on using the changeset viewer.