extra/game/models/util/util-tests.factor

   1 USING: game.models.util tools.test make accessors kernel ;
   2 IN: game.models.util.tests
   3
   4 { V{ 1 2 3 4 } } [
   5     [ 1 , 1 , 2 , 3 , 3 , 4 , ]
   6     V{ } V{ } H{ } <indexed-seq> make
   7     dseq>>
   8 ] unit-test
   9
  10 { V{ 0 0 1 2 2 3 } } [
  11     [ 1 , 1 , 2 , 3 , 3 , 4 , ]
  12     V{ } V{ } H{ } <indexed-seq> make
  13     iseq>>
  14 ] unit-test