1 ! (c)2010 Joe Groff bsd license
2 USING: assocs kernel sequences sequences.inserters tools.test
4 IN: sequences.inserters.tests
6 { V{ 1 2 "Three" "Four" "Five" } } [
7 { "three" "four" "five" }
8 [ >title ] V{ 1 2 } clone <appender> map-as
12 { "three" "four" "five" }
13 [ >title ] V{ 1 2 } clone [ <appender> map-as ] keep eq?
16 { V{ 1 2 "Three" "Four" "Five" } } [
17 { { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
18 [ append ] V{ 1 2 } clone <appender> assoc>map
22 { { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
23 [ append ] V{ 1 2 } clone [ <appender> assoc>map ] keep eq?
26 { V{ "Three" "Four" "Five" } } [
27 { "three" "four" "five" }
28 [ >title ] V{ 1 2 } clone <replacer> map-as
32 { "three" "four" "five" }
33 [ >title ] V{ 1 2 } clone [ <replacer> map-as ] keep eq?
36 { V{ "Three" "Four" "Five" } } [
37 { { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
38 [ append ] V{ 1 2 } clone <replacer> assoc>map
42 { { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
43 [ append ] V{ 1 2 } clone [ <replacer> assoc>map ] keep eq?