zzkt/rsc3
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

added test

Browse source
This commit is contained in:
Mustafa 2014-03-04 12:04:13 -08:00
parent 054047f915
commit eeeeef9a95
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
sosc/bytevector.rkt
View file

@ -73,20 +73,19 @@
(module+ test (module+ test
(require rackunit) (require rackunit)
;; test bytevector-section, which is equivalent ot subbytes
(test-begin (test-begin
(let [(long-vec (bytes 10 20 30 40 50))] (let [(long-vec (bytes 10 20 30 40 50))]
(check-equal? (bytevector-section long-vec 0 2) (check-equal? (bytevector-section long-vec 0 2)
(bytes 10 20)) (bytes 10 20))
(check-equal? (bytevector-section long-vec 0 (bytes-length long-vec)) (check-equal? (bytevector-section long-vec 0 (bytes-length long-vec))
long-vec) long-vec)
;; bytevector-section is equivalent ot subbytes
(check-equal? (bytevector-section long-vec 1 3) (check-equal? (bytevector-section long-vec 1 3)
(subbytes long-vec 1 3)) (subbytes long-vec 1 3))
; check if exceding limits raises exception ; check if exceding limits raises exception
(check-exn exn:fail? (λ () (bytevector-section long-vec 0 30))) (check-exn exn:fail? (λ () (bytevector-section long-vec 0 30)))
(check-exn exn:fail? (λ () (bytevector-section long-vec -1 3))) (check-exn exn:fail? (λ () (bytevector-section long-vec -1 3)))))
)
) (check-equal? (flatten-bytevectors (list (bytes 10 20) (bytes 30 40) (list (bytes 50 60))))
) (bytes 10 20 30 40 50 60)))