extra/sequences/n-based/n-based-tests.factor

   1 ! (c)2008 Joe Groff, see BSD license etc.
   2 USING: kernel accessors assocs
   3 sequences sequences.n-based tools.test ;
   4 IN: sequences.n-based.tests
   5
   6 : months ( -- assoc )
   7     V{
   8         "January"
   9         "February"
  10         "March"
  11         "April"
  12         "May"
  13         "June"
  14         "July"
  15         "August"
  16         "September"
  17         "October"
  18         "November"
  19         "December"
  20     } clone 1 <n-based-assoc> ; inline
  21
  22 { "December" t }
  23 [ 12 months at* ] unit-test
  24 { f f }
  25 [ 13 months at* ] unit-test
  26 { f f }
  27 [ 0 months at* ] unit-test
  28
  29 { 12 } [ months assoc-size ] unit-test
  30
  31 { {
  32     {  1 "January" }
  33     {  2 "February" }
  34     {  3 "March" }
  35     {  4 "April" }
  36     {  5 "May" }
  37     {  6 "June" }
  38     {  7 "July" }
  39     {  8 "August" }
  40     {  9 "September" }
  41     { 10 "October" }
  42     { 11 "November" }
  43     { 12 "December" }
  44 } } [ months >alist ] unit-test
  45
  46 { V{
  47     "January"
  48     "February"
  49     "March"
  50     "April"
  51     "May"
  52     "June"
  53     "July"
  54     "August"
  55     "September"
  56     "October"
  57     "November"
  58     "December"
  59     "Smarch"
  60 } } [ "Smarch" 13 months [ set-at ] keep seq>> ] unit-test
  61
  62 { V{ } } [ months [ clear-assoc ] keep seq>> ] unit-test