basis/math/ranges/ranges-tests.factor

   1 USING: arrays kernel math math.ranges sequences sets tools.test ;
   2 IN: math.ranges.tests
   3
   4 { { } } [ 1 1 (a,b) >array ] unit-test
   5 { { } } [ 1 1 (a,b] >array ] unit-test
   6 { { } } [ 1 1 [a,b) >array ] unit-test
   7 { { 1 } } [ 1 1 [a,b] >array ] unit-test
   8
   9 { { }  } [ 1 2 (a,b) >array ] unit-test
  10 { { 2 } } [ 1 2 (a,b] >array ] unit-test
  11 { { 1 } } [ 1 2 [a,b) >array ] unit-test
  12 { { 1 2 } } [ 1 2 [a,b] >array ] unit-test
  13
  14 { { } } [ 2 1 (a,b) >array ] unit-test
  15 { { 1 } } [ 2 1 (a,b] >array ] unit-test
  16 { { 2 } } [ 2 1 [a,b) >array ] unit-test
  17 { { 2 1 } } [ 2 1 [a,b] >array ] unit-test
  18
  19 { { 1 2 3 4 5 } } [ 1 5 1 <range> >array ] unit-test
  20 { { 5 4 3 2 1 } } [ 5 1 -1 <range> >array ] unit-test
  21
  22 { { 0 1/3 2/3 1 } } [ 0 1 1/3 <range> >array ] unit-test
  23 { { 0 1/3 2/3 1 } } [ 1 0 -1/3 <range> >array reverse ] unit-test
  24
  25 { 0 } [ 0 -1 .0001 <range> length ] unit-test
  26 { 0 } [ 0 -1 .5 <range> length ] unit-test
  27 { 0 } [ 0 -1 1 <range> length ] unit-test
  28 { 0 } [ 0 -1 2 <range> length ] unit-test
  29 { 0 } [ 0 -1 3 <range> length ] unit-test
  30 { 0 } [ 0 -1 4 <range> length ] unit-test
  31
  32 { 0 } [ 0 -2 .0001 <range> length ] unit-test
  33 { 0 } [ 0 -2 1 <range> length ] unit-test
  34 { 0 } [ 0 -2 2 <range> length ] unit-test
  35 { 0 } [ 0 -2 3 <range> length ] unit-test
  36 { 0 } [ 0 -2 4 <range> length ] unit-test
  37
  38 { 0 } [ -1 0 -.0001 <range> length ] unit-test
  39 { 0 } [ -1 0 -.5 <range> length ] unit-test
  40 { 0 } [ -1 0 -1 <range> length ] unit-test
  41 { 0 } [ -1 0 -2 <range> length ] unit-test
  42 { 0 } [ -1 0 -3 <range> length ] unit-test
  43 { 0 } [ -1 0 -4 <range> length ] unit-test
  44
  45 { 0 } [ -2 0 -.0001 <range> length ] unit-test
  46 { 0 } [ -2 0 -1 <range> length ] unit-test
  47 { 0 } [ -2 0 -2 <range> length ] unit-test
  48 { 0 } [ -2 0 -3 <range> length ] unit-test
  49 { 0 } [ -2 0 -4 <range> length ] unit-test
  50
  51 { 100 } [
  52     1 100 [a,b] [ 2^ [1,b] ] map members length
  53 ] unit-test
  54
  55 { t } [ -10 10 1 <range> [ sum ] [ >array sum ] bi = ] unit-test
  56 { t } [ -10 10 2 <range> [ sum ] [ >array sum ] bi = ] unit-test
  57 { t } [ 10 -10 -1 <range> [ sum ] [ >array sum ] bi = ] unit-test
  58 { t } [ 10 -10 -2 <range> [ sum ] [ >array sum ] bi = ] unit-test