core/growable/growable-tests.factor

   1 USING: math sequences classes growable tools.test kernel
   2 layouts ;
   3 IN: temporary
   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 unit-test-fails
  13
  14 [ most-positive-fixnum 2 * 2 + { 1 } clone nth ]
  15 unit-test-fails
  16
  17 [ most-positive-fixnum 2 * 2 + V{ } clone lengthen ]
  18 unit-test-fails
  19
  20 [ most-positive-fixnum 2 * 2 + V{ } clone set-length ]
  21 unit-test-fails
  22
  23 [ ] [
  24     10 V{ } [ set-length ] keep
  25     1/2 swap set-length
  26 ] unit-test