steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/basis/bit-arrays/bit-arrays-tests.factor

89 lines
2.3 KiB
Factor
Raw Normal View History

bit-arrays: re-use utility words from math.bitwise and io.binary to make implementation a bit more elegant
2010-05-03 22:38:50 -04:00
USING: alien sequences sequences.private arrays bit-arrays kernel
Move bit-arrays and float-arrays to extra
2008-07-02 03:03:30 -04:00
tools.test math random ;
New convention for unit tests
2008-03-01 17:00:45 -05:00
IN: bit-arrays.tests
Initial import
2007-09-20 18:09:08 -04:00
Fixes #35 - -1 <bit-array> should throw an error
2011-08-27 19:44:48 -04:00
[ -1 <bit-array> ] [ T{ bad-array-length f -1 } = ] must-fail-with
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{ 100 } [ 100 <bit-array> length ] unit-test
Initial import
2007-09-20 18:09:08 -04:00
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{
Initial import
2007-09-20 18:09:08 -04:00
{ t f t }
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
} [
Initial import
2007-09-20 18:09:08 -04:00
3 <bit-array> t 0 pick set-nth t 2 pick set-nth
>array
] unit-test
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{
Initial import
2007-09-20 18:09:08 -04:00
{ t f t }
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
} [
Initial import
2007-09-20 18:09:08 -04:00
{ t f t } >bit-array >array
] unit-test
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{
Initial import
2007-09-20 18:09:08 -04:00
{ t f t } { f t f }
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
} [
change-each -> map!, deep-change-each -> deep-map!
2009-10-27 23:32:56 -04:00
{ t f t } >bit-array dup clone [ not ] map!
Rename 2apply to bi@
2008-03-29 21:36:58 -04:00
[ >array ] bi@
Initial import
2007-09-20 18:09:08 -04:00
] unit-test
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{
Initial import
2007-09-20 18:09:08 -04:00
{ f f f f f }
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
} [
Initial import
2007-09-20 18:09:08 -04:00
{ t f t t f } >bit-array dup clear-bits >array
] unit-test
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{
Initial import
2007-09-20 18:09:08 -04:00
{ t t t t t }
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
} [
Initial import
2007-09-20 18:09:08 -04:00
{ t f t t f } >bit-array dup set-bits >array
] unit-test
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{ t } [
Initial import
2007-09-20 18:09:08 -04:00
100 [
random is generic now -- iota random -> random
2010-01-14 13:48:57 -05:00
drop 100 [ 2 random zero? ] replicate
Initial import
2007-09-20 18:09:08 -04:00
dup >bit-array >array =
Removing integers-as-sequences
2010-01-14 10:10:13 -05:00
] all-integers?
Initial import
2007-09-20 18:09:08 -04:00
] unit-test
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{ ?{ f } } [
Initial import
2007-09-20 18:09:08 -04:00
1 2 { t f t f } <slice> >bit-array
] unit-test
bit-vectors byte-vectors float-vectors
2008-01-29 16:04:26 -05:00
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{ ?{ f t } } [ 0 2 ?{ f t f } subseq ] unit-test
bit-vectors byte-vectors float-vectors
2008-01-29 16:04:26 -05:00
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{ ?{ t f t f f f } } [ 6 ?{ t f t } resize ] unit-test
bit-vectors byte-vectors float-vectors
2008-01-29 16:04:26 -05:00
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{ ?{ t t } } [ 2 ?{ t t f t f t f t t t f t } resize ] unit-test
Move bit-arrays and float-arrays to extra
2008-07-02 03:03:30 -04:00
[ -10 ?{ } resize ] must-fail
bit-array<>integer conversion functions. ui.backend beep method to ring the system alert sound
2008-06-05 23:06:38 -04:00
[ -1 integer>bit-array ] must-fail
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{ ?{ } } [ 0 integer>bit-array ] unit-test
{ ?{ f t } } [ 2 integer>bit-array ] unit-test
{ ?{ t t t t t t t t t } } [ 511 integer>bit-array ] unit-test
{ ?{
bit-array<>integer conversion functions. ui.backend beep method to ring the system alert sound
2008-06-05 23:06:38 -04:00
t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t
t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t
t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t
t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
} } [
use radix literals
2011-11-23 21:49:33 -05:00
0xffffffffffffffffffffffffffffffff integer>bit-array
bit-array<>integer conversion functions. ui.backend beep method to ring the system alert sound
2008-06-05 23:06:38 -04:00
] unit-test
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{ 14 } [ ?{ f t t t } bit-array>integer ] unit-test
{ 0 } [ ?{ } bit-array>integer ] unit-test
{ 0xffffffffffffffffffffffffffffffff } [ ?{
bit-array<>integer conversion functions. ui.backend beep method to ring the system alert sound
2008-06-05 23:06:38 -04:00
t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t
t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t
t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t
t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t
} bit-array>integer ] unit-test
Properly set bits in large bit arrays Bit arrays were not properly manipulated by set-bits or clear-bits if they were larger than 40 bits (one cell + one byte). Moreover, the bug was likely to cause a bus error on architectures unable to access unaligned words.
2008-12-26 14:58:45 -05:00
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{ 49 } [ 49 <bit-array> dup set-bits [ ] count ] unit-test
Fix bit-array>integer byte ordering
2009-01-07 17:16:27 -05:00
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{ 1 } [ ?{ f t f t } byte-length ] unit-test
bit-arrays: re-use utility words from math.bitwise and io.binary to make implementation a bit more elegant
2010-05-03 22:38:50 -04:00
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{ 0xa } [ ?{ f t f t } bit-array>integer ] unit-test
bit-arrays: re-use utility words from math.bitwise and io.binary to make implementation a bit more elegant
2010-05-03 22:38:50 -04:00
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{ 0x100 } [ ?{ f f f f f f f f t } bit-array>integer ] unit-test