core/growable/growable-tests.factor

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