diff options
Diffstat (limited to 'test-suite/tests/srfi-4.test')
-rw-r--r-- | test-suite/tests/srfi-4.test | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/test-suite/tests/srfi-4.test b/test-suite/tests/srfi-4.test index 707abee3d..b35c493fb 100644 --- a/test-suite/tests/srfi-4.test +++ b/test-suite/tests/srfi-4.test @@ -564,3 +564,20 @@ (s8vector-copy! v 2 #s8(-1 -2 -3 -4 -5)) (equal? #s8(9 7 -1 -2 -3 -4 -5 8) v)))) +(with-test-prefix "srfi-4 type size" + + (pass-if "c64vector" + (= 16 (srfi-4-vector-type-size #c64()))) + + (pass-if "c32vector" + (= 8 (srfi-4-vector-type-size #c32()))) + + (pass-if "f32vector" + (= 4 (srfi-4-vector-type-size #f32()))) + + (pass-if "u16vector" + (= 2 (srfi-4-vector-type-size #u16()))) + + (pass-if "s8vector" + (= 1 (srfi-4-vector-type-size #s8())))) + |