Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Tests pass now

Browse source
This commit is contained in:
Justin Ethier 2016-03-24 00:16:29 -04:00
parent e9ed4abcc5
commit 0b38fa2b32
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
bytevector-tests.scm
View file

@ -2,8 +2,8 @@
(write #u8(1 2 3 4 5)) (write #u8(1 2 3 4 5))
(write (make-bytevector 2 12)) ; =⇒ #u8(12 12) (write (make-bytevector 2 12)) ; =⇒ #u8(12 12)
;(write (bytevector 1 3 5 1 3 5)) ; =⇒ #u8(1 3 5 1 3 5) (write (bytevector 1 3 5 1 3 5)) ; =⇒ #u8(1 3 5 1 3 5)
;(write (bytevector)) ;=⇒ #u8() (write (bytevector)) ;=⇒ #u8()
(write (bytevector-append (write (bytevector-append
(make-bytevector 1 1) (make-bytevector 1 1)
@ -11,10 +11,10 @@
(make-bytevector 3 3) (make-bytevector 3 3)
)) ))
;(write (bytevector-u8-ref '#u8(1 1 2 3 5 8 13 21) 5)) ;=⇒ 8 (write (bytevector-u8-ref '#u8(1 1 2 3 5 8 13 21) 5)) ;=⇒ 8
;(write (write
; (let ((bv (bytevector 1 2 3 4))) (let ((bv (bytevector 1 2 3 4)))
; (bytevector-u8-set! bv 1 3) (bytevector-u8-set! bv 1 3)
; bv) bv)
;) ;=⇒ #u8(1 3 3 4) ) ;=⇒ #u8(1 3 3 4)