core/growable/growable-tests.factor

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