basis/interval-maps/interval-maps-tests.factor

   1 USING: kernel namespaces interval-maps tools.test ;
   2 IN: interval-maps.tests
   3
   4 SYMBOL: test
   5
   6 { } [ { { { 4 8 } 3 } { 1 2 } } <interval-map> test set ] unit-test
   7 { 3 } [ 5 test get interval-at ] unit-test
   8 { 3 } [ 8 test get interval-at ] unit-test
   9 { 3 } [ 4 test get interval-at ] unit-test
  10 { f } [ 9 test get interval-at ] unit-test
  11 { 2 } [ 1 test get interval-at ] unit-test
  12 { f } [ 2 test get interval-at ] unit-test
  13 { f } [ 0 test get interval-at ] unit-test
  14
  15 [ { { { 1 4 } 3 } { { 4 8 } 6 } } <interval-map> ] must-fail
  16
  17 { { { { 1 3 } 2 } { { 4 5 } 4 } { { 7 8 } 4 } } }
  18 [ { { 1 2 } { 2 2 } { 3 2 } { 4 4 } { 5 4 } { 7 4 } { 8 4 } } coalesce ] unit-test