45 lines
1.2 KiB
Factor
45 lines
1.2 KiB
Factor
! Copyright (C) 2010 Joe Groff.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: assocs kernel sequences sequences.inserters tools.test
|
|
unicode ;
|
|
|
|
{ V{ 1 2 "Three" "Four" "Five" } } [
|
|
{ "three" "four" "five" }
|
|
[ >title ] V{ 1 2 } clone <appender> map-as
|
|
] unit-test
|
|
|
|
{ t } [
|
|
{ "three" "four" "five" }
|
|
[ >title ] V{ 1 2 } clone [ <appender> map-as ] keep eq?
|
|
] unit-test
|
|
|
|
{ V{ 1 2 "Three" "Four" "Five" } } [
|
|
{ { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
|
|
[ append ] V{ 1 2 } clone <appender> assoc>map
|
|
] unit-test
|
|
|
|
{ t } [
|
|
{ { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
|
|
[ append ] V{ 1 2 } clone [ <appender> assoc>map ] keep eq?
|
|
] unit-test
|
|
|
|
{ V{ "Three" "Four" "Five" } } [
|
|
{ "three" "four" "five" }
|
|
[ >title ] V{ 1 2 } clone <replacer> map-as
|
|
] unit-test
|
|
|
|
{ t } [
|
|
{ "three" "four" "five" }
|
|
[ >title ] V{ 1 2 } clone [ <replacer> map-as ] keep eq?
|
|
] unit-test
|
|
|
|
{ V{ "Three" "Four" "Five" } } [
|
|
{ { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
|
|
[ append ] V{ 1 2 } clone <replacer> assoc>map
|
|
] unit-test
|
|
|
|
{ t } [
|
|
{ { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
|
|
[ append ] V{ 1 2 } clone [ <replacer> assoc>map ] keep eq?
|
|
] unit-test
|