2008-11-14 21:18:16 -05:00
|
|
|
IN: specialized-arrays.tests
|
|
|
|
|
USING: tools.test specialized-arrays sequences
|
2008-12-02 21:35:20 -05:00
|
|
|
specialized-arrays.int specialized-arrays.bool
|
2009-02-06 05:37:28 -05:00
|
|
|
specialized-arrays.ushort alien.c-types accessors kernel
|
2009-05-08 22:34:28 -04:00
|
|
|
specialized-arrays.direct.int specialized-arrays.char
|
2009-09-03 03:24:03 -04:00
|
|
|
specialized-arrays.uint specialized-arrays.float
|
|
|
|
|
arrays combinators compiler ;
|
2008-11-14 21:18:16 -05:00
|
|
|
|
|
|
|
|
[ t ] [ { 1 2 3 } >int-array int-array? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ t ] [ int-array{ 1 2 3 } int-array? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ 2 ] [ int-array{ 1 2 3 } second ] unit-test
|
|
|
|
|
|
2009-05-08 22:34:28 -04:00
|
|
|
[ t ] [
|
|
|
|
|
{ t f t } >bool-array underlying>>
|
|
|
|
|
{ 1 0 1 } "bool" heap-size {
|
|
|
|
|
{ 1 [ >char-array ] }
|
|
|
|
|
{ 4 [ >uint-array ] }
|
|
|
|
|
} case underlying>> =
|
|
|
|
|
] unit-test
|
2008-12-02 21:35:20 -05:00
|
|
|
|
|
|
|
|
[ ushort-array{ 1234 } ] [
|
|
|
|
|
little-endian? B{ 210 4 } B{ 4 210 } ? byte-array>ushort-array
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ B{ 210 4 1 } byte-array>ushort-array ] must-fail
|
2009-02-06 05:37:28 -05:00
|
|
|
|
|
|
|
|
[ { 3 1 3 3 7 } ] [
|
|
|
|
|
int-array{ 3 1 3 3 7 } malloc-byte-array 5 <direct-int-array> >array
|
2009-09-03 03:24:03 -04:00
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ f ] [ float-array{ 4 3 2 1 } dup clone [ underlying>> ] bi@ eq? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ f ] [ [ float-array{ 4 3 2 1 } dup clone [ underlying>> ] bi@ eq? ] compile-call ] unit-test
|
