basis/wrap/words/words-tests.factor

   1 ! Copyright (C) 2009 Daniel Ehrenberg
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test wrap.words sequences ;
   4 IN: wrap.words.tests
   5
   6 [
   7     {
   8         {
   9             T{ word f 1 10 f }
  10             T{ word f 2 10 f }
  11             T{ word f 3 2 t }
  12         }
  13         {
  14             T{ word f 4 10 f }
  15             T{ word f 5 10 f }
  16         }
  17     }
  18 ] [
  19     {
  20         T{ word f 1 10 f }
  21         T{ word f 2 10 f }
  22         T{ word f 3 2 t }
  23         T{ word f 4 10 f }
  24         T{ word f 5 10 f }
  25     } 35 35 wrap-words [ { } like ] map
  26 ] unit-test
  27
  28 [
  29     {
  30         {
  31             T{ word f 1 10 f }
  32             T{ word f 2 10 f }
  33             T{ word f 3 9 t }
  34             T{ word f 3 9 t }
  35             T{ word f 3 9 t }
  36         }
  37         {
  38             T{ word f 4 10 f }
  39             T{ word f 5 10 f }
  40         }
  41     }
  42 ] [
  43     {
  44         T{ word f 1 10 f }
  45         T{ word f 2 10 f }
  46         T{ word f 3 9 t }
  47         T{ word f 3 9 t }
  48         T{ word f 3 9 t }
  49         T{ word f 4 10 f }
  50         T{ word f 5 10 f }
  51     } 35 35 wrap-words [ { } like ] map
  52 ] unit-test
  53
  54 [
  55     {
  56         {
  57             T{ word f 1 10 t }
  58             T{ word f 1 10 f }
  59             T{ word f 3 9 t }
  60         }
  61         {
  62             T{ word f 2 10 f }
  63             T{ word f 3 9 t }
  64         }
  65         {
  66             T{ word f 4 10 f }
  67             T{ word f 5 10 f }
  68         }
  69     }
  70 ] [
  71     {
  72         T{ word f 1 10 t }
  73         T{ word f 1 10 f }
  74         T{ word f 3 9 t }
  75         T{ word f 2 10 f }
  76         T{ word f 3 9 t }
  77         T{ word f 4 10 f }
  78         T{ word f 5 10 f }
  79     } 35 35 wrap-words [ { } like ] map
  80 ] unit-test