core/growable/growable-tests.factor

   1 USING: classes kernel layouts math sequences tools.test ;
   2
   3 ! erg found this one
   4 { fixnum } [
   5     2 >bignum V{ } [ set-length ] keep length class-of
   6 ] unit-test
   7
   8 ! overflow bugs
   9 [ "hi" most-positive-fixnum 2 * 2 + V{ } clone set-nth ]
  10 must-fail
  11
  12 [ most-positive-fixnum 2 * 2 + { 1 } clone nth ]
  13 must-fail
  14
  15 [ most-positive-fixnum 2 * 2 + V{ } clone lengthen ]
  16 must-fail
  17
  18 [ most-positive-fixnum 2 * 2 + V{ } clone set-length ]
  19 must-fail
  20
  21 [
  22     10 V{ } [ set-length ] keep
  23     0.5 swap set-length
  24 ] must-fail