extra/sequences/inserters/inserters-tests.factor

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