Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

More tests for unaligned bytevector access

Browse source 
Make sure that we don't miss anything and cover the rest of bytevector
accessors with tests for unaligned memory access. Include both integers
and floats, in little and big endian flavors.
This commit is contained in:
Alexei Lozovsky 2020-11-30 16:27:44 +09:00
parent af60b8d937
commit 266a188ce2
No known key found for this signature in database
GPG key ID: 5F338CB3B7203B42
1 changed files with 44 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
lib/scheme/bytevector-test.sld
View file

@ -234,11 +234,18 @@
(equal? (bytevector-s16-native-ref b 0) (equal? (bytevector-s16-native-ref b 0)
(- 44444 65536))))) (- 44444 65536)))))
(test-assert "bytevector-s16-{ref,set!} [unaligned]" (test-assert "bytevector-{u16,s16}-{ref,set!} [unaligned]"
(let ((b (make-bytevector 3))) (let ((b (make-bytevector 5)))
(bytevector-s16-set! b 1 -77 (endianness little)) (bytevector-s16-set! b 1 -77 (endianness little))
(equal? (bytevector-s16-ref b 1 (endianness little)) (bytevector-s16-set! b 3 -77 (endianness big))
-77))) (and (equal? (bytevector-s16-ref b 1 (endianness little))
-77)
(equal? (bytevector-u16-ref b 1 (endianness little))
(- 65536 77))
(equal? (bytevector-s16-ref b 3 (endianness big))
-77)
(equal? (bytevector-u16-ref b 3 (endianness big))
(- 65536 77)))))
(test-end) (test-end)
(test-begin "2.6 Operations on 32-bit Integers") (test-begin "2.6 Operations on 32-bit Integers")
@ -276,6 +283,19 @@
2222222222) 2222222222)
(equal? (bytevector-s32-native-ref b 0) (equal? (bytevector-s32-native-ref b 0)
(- 2222222222 (expt 2 32)))))) (- 2222222222 (expt 2 32))))))
(test-assert "bytevector-{u32,s32}-{ref,set!} [unaligned]"
(let ((b (make-bytevector 9)))
(bytevector-s32-set! b 1 -77777 (endianness little))
(bytevector-s32-set! b 5 -77777 (endianness big))
(and (equal? (bytevector-s32-ref b 1 (endianness little))
-77777)
(equal? (bytevector-u32-ref b 1 (endianness little))
(- (expt 2 32) 77777))
(equal? (bytevector-s32-ref b 5 (endianness big))
-77777)
(equal? (bytevector-u32-ref b 5 (endianness big))
(- (expt 2 32) 77777)))))
(test-end) (test-end)
(test-begin "2.7 Operations on 64-bit Integers") (test-begin "2.7 Operations on 64-bit Integers")
@ -314,6 +334,18 @@
(bytevector-u64-set! b 0 0 (endianness big)) (bytevector-u64-set! b 0 0 (endianness big))
(= 0 (bytevector-u64-ref b 0 (endianness big))))) (= 0 (bytevector-u64-ref b 0 (endianness big)))))
(test-assert "bytevector-{u64,s64}-{ref,set!} [unaligned]"
(let ((b (make-bytevector 17)))
(bytevector-s64-set! b 1 -7777777777 (endianness little))
(bytevector-s64-set! b 9 -7777777777 (endianness big))
(and (equal? (bytevector-s64-ref b 1 (endianness little))
-7777777777)
(equal? (bytevector-u64-ref b 1 (endianness little))
(- (expt 2 64) 7777777777))
(equal? (bytevector-s64-ref b 9 (endianness big))
-7777777777)
(equal? (bytevector-u64-ref b 9 (endianness big))
(- (expt 2 64) 7777777777)))))
(test-end) (test-end)
(test-begin "2.8 Operations on IEEE-754 Representations") (test-begin "2.8 Operations on IEEE-754 Representations")
@ -375,6 +407,14 @@
(bytevector-ieee-double-set! b 8 number (endianness big)) (bytevector-ieee-double-set! b 8 number (endianness big))
(equal? (bytevector-ieee-double-ref b 0 (endianness little)) (equal? (bytevector-ieee-double-ref b 0 (endianness little))
(bytevector-ieee-double-ref b 8 (endianness big))))) (bytevector-ieee-double-ref b 8 (endianness big)))))
(test-assert "bytevector-ieee-double-{ref,set!} [unaligned]"
(let ((b (make-bytevector 17))
(number 3.14))
(bytevector-ieee-double-set! b 1 number (endianness little))
(bytevector-ieee-double-set! b 9 number (endianness big))
(equal? (bytevector-ieee-double-ref b 1 (endianness little))
(bytevector-ieee-double-ref b 9 (endianness big)))))
(test-end) (test-end)