extra/sequences/inserters/inserters-tests.factor

   1 ! (c)2010 Joe Groff bsd license
   2 USING: assocs kernel sequences sequences.inserters tools.test
   3 unicode ;
   4 IN: sequences.inserters.tests
   5
   6 { V{ 1 2 "Three" "Four" "Five" } } [
   7     { "three" "four" "five" }
   8     [ >title ] V{ 1 2 } clone <appender> map-as
   9 ] unit-test
  10
  11 { t } [
  12     { "three" "four" "five" }
  13     [ >title ] V{ 1 2 } clone [ <appender> map-as ] keep eq?
  14 ] unit-test
  15
  16 { V{ 1 2 "Three" "Four" "Five" } } [
  17     { { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
  18     [ append ] V{ 1 2 } clone <appender> assoc>map
  19 ] unit-test
  20
  21 { t } [
  22     { { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
  23     [ append ] V{ 1 2 } clone [ <appender> assoc>map ] keep eq?
  24 ] unit-test
  25
  26 { V{ "Three" "Four" "Five" } } [
  27     { "three" "four" "five" }
  28     [ >title ] V{ 1 2 } clone <replacer> map-as
  29 ] unit-test
  30
  31 { t } [
  32     { "three" "four" "five" }
  33     [ >title ] V{ 1 2 } clone [ <replacer> map-as ] keep eq?
  34 ] unit-test
  35
  36 { V{ "Three" "Four" "Five" } } [
  37     { { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
  38     [ append ] V{ 1 2 } clone <replacer> assoc>map
  39 ] unit-test
  40
  41 { t } [
  42     { { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
  43     [ append ] V{ 1 2 } clone [ <replacer> assoc>map ] keep eq?
  44 ] unit-test