basis/bit-arrays/bit-arrays-tests.factor

   1 USING: alien sequences sequences.private arrays bit-arrays kernel
   2 tools.test math random ;
   3 IN: bit-arrays.tests
   4
   5 [ -1 <bit-array> ] [ T{ bad-array-length f -1 } = ] must-fail-with
   6
   7 [ 100 ] [ 100 <bit-array> length ] unit-test
   8
   9 [
  10     { t f t }
  11 ] [
  12     3 <bit-array> t 0 pick set-nth t 2 pick set-nth
  13     >array
  14 ] unit-test
  15
  16 [
  17     { t f t }
  18 ] [
  19     { t f t } >bit-array >array
  20 ] unit-test
  21
  22 [
  23     { t f t } { f t f }
  24 ] [
  25     { t f t } >bit-array dup clone [ not ] map!
  26     [ >array ] bi@
  27 ] unit-test
  28
  29 [
  30     { f f f f f }
  31 ] [
  32     { t f t t f } >bit-array dup clear-bits >array
  33 ] unit-test
  34
  35 [
  36     { t t t t t }
  37 ] [
  38     { t f t t f } >bit-array dup set-bits >array
  39 ] unit-test
  40
  41 [ t ] [
  42     100 [
  43         drop 100 [ 2 random zero? ] replicate
  44         dup >bit-array >array =
  45     ] all-integers?
  46 ] unit-test
  47
  48 [ ?{ f } ] [
  49     1 2 { t f t f } <slice> >bit-array
  50 ] unit-test
  51
  52 [ ?{ f t } ] [ 0 2 ?{ f t f } subseq ] unit-test
  53
  54 [ ?{ t f t f f f } ] [ 6 ?{ t f t } resize ] unit-test
  55
  56 [ ?{ t t } ] [ 2 ?{ t t f t f t f t t t f t } resize ] unit-test
  57
  58 [ -10 ?{ } resize ] must-fail
  59
  60 [ -1 integer>bit-array ] must-fail
  61 [ ?{ } ] [ 0 integer>bit-array ] unit-test
  62 [ ?{ f t } ] [ 2 integer>bit-array ] unit-test
  63 [ ?{ t t t t t t t t t } ] [ 511 integer>bit-array ] unit-test
  64 [ ?{
  65     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
  66     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
  67     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
  68     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
  69 } ] [
  70     0xffffffffffffffffffffffffffffffff integer>bit-array
  71 ] unit-test
  72
  73 [ 14 ] [ ?{ f t t t } bit-array>integer ] unit-test
  74 [ 0 ] [ ?{ } bit-array>integer ] unit-test
  75 [ 0xffffffffffffffffffffffffffffffff ] [ ?{
  76     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
  77     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
  78     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
  79     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
  80 } bit-array>integer ] unit-test
  81
  82 [ 49 ] [ 49 <bit-array> dup set-bits [ ] count ] unit-test
  83
  84 [ 1 ] [ ?{ f t f t } byte-length ] unit-test
  85
  86 [ 0xa ] [ ?{ f t f t } bit-array>integer ] unit-test
  87
  88 [ 0x100 ] [ ?{ f f f f f f f f t } bit-array>integer ] unit-test