24 lines
511 B
Scheme
24 lines
511 B
Scheme
|
|
||
|
|
(library (tests bytevectors)
|
||
|
|
(export test-bytevectors)
|
||
|
|
(import (ikarus) (tests framework))
|
||
|
|
|
||
|
|
(define (not-byte-vector? x)
|
||
|
|
(not (bytevector? x)))
|
||
|
|
|
||
|
|
(define-tests test-bytevectors
|
||
|
|
[bytevector? (make-bytevector 1)]
|
||
|
|
[bytevector? (make-bytevector 1 17)]
|
||
|
|
[bytevector? (make-bytevector 10 -17)]
|
||
|
|
[not-bytevector? 'foo]
|
||
|
|
[not-bytevector? "hey"]
|
||
|
|
[not-bytevector? (current-output-port)]
|
||
|
|
[not-bytevector? (current-input-port)]
|
||
|
|
[not-bytevector? '#(2837 2398 239)]
|
||
|
|
))
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|