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
   5 { { } } [ f 35 wrap-words ] unit-test
   6 { { } } [ { } 35 wrap-words ] unit-test
   7
   8 {
   9     {
  10         {
  11             T{ wrapping-word f 1 10 f }
  12             T{ wrapping-word f 2 10 f }
  13             T{ wrapping-word f 3 2 t }
  14         }
  15         {
  16             T{ wrapping-word f 4 10 f }
  17             T{ wrapping-word f 5 10 f }
  18         }
  19     }
  20 } [
  21     {
  22         T{ wrapping-word f 1 10 f }
  23         T{ wrapping-word f 2 10 f }
  24         T{ wrapping-word f 3 2 t }
  25         T{ wrapping-word f 4 10 f }
  26         T{ wrapping-word f 5 10 f }
  27     } 35 wrap-words [ { } like ] map
  28 ] unit-test
  29
  30 {
  31     {
  32         {
  33             T{ wrapping-word f 1 10 f }
  34             T{ wrapping-word f 2 10 f }
  35             T{ wrapping-word f 3 9 t }
  36             T{ wrapping-word f 3 9 t }
  37             T{ wrapping-word f 3 9 t }
  38         }
  39         {
  40             T{ wrapping-word f 4 10 f }
  41             T{ wrapping-word f 5 10 f }
  42         }
  43     }
  44 } [
  45     {
  46         T{ wrapping-word f 1 10 f }
  47         T{ wrapping-word f 2 10 f }
  48         T{ wrapping-word f 3 9 t }
  49         T{ wrapping-word f 3 9 t }
  50         T{ wrapping-word f 3 9 t }
  51         T{ wrapping-word f 4 10 f }
  52         T{ wrapping-word f 5 10 f }
  53     } 35 wrap-words [ { } like ] map
  54 ] unit-test
  55
  56 {
  57     {
  58         {
  59             T{ wrapping-word f 1 10 t }
  60             T{ wrapping-word f 1 10 f }
  61             T{ wrapping-word f 3 9 t }
  62         }
  63         {
  64             T{ wrapping-word f 2 10 f }
  65             T{ wrapping-word f 3 9 t }
  66         }
  67         {
  68             T{ wrapping-word f 4 10 f }
  69             T{ wrapping-word f 5 10 f }
  70         }
  71     }
  72 } [
  73     {
  74         T{ wrapping-word f 1 10 t }
  75         T{ wrapping-word f 1 10 f }
  76         T{ wrapping-word f 3 9 t }
  77         T{ wrapping-word f 2 10 f }
  78         T{ wrapping-word f 3 9 t }
  79         T{ wrapping-word f 4 10 f }
  80         T{ wrapping-word f 5 10 f }
  81     } 35 wrap-words [ { } like ] map
  82 ] unit-test