steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fill in USING: for sequences.inserters tests

db4
Joe Groff 2010-02-07 00:14:56 -08:00
parent 72f7f472b9
commit 55ab4a68e4
2 changed files with 21 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
extra/sequences/inserters/inserters-tests.factor
View File

@ -1,25 +1,26 @@
! (c)2010 Joe Groff bsd license
USING: sequences.inserters tools.test ;
USING: assocs kernel sequences sequences.inserters tools.test
unicode.case ;
IN: sequences.inserters.tests
[ V{ 1 2 "Three" "Four" "Five" } ] [
{ "three" "four" "five" }
[ >title ] V{ 1 2 } clone <back-inserter> map-as
[ >title ] V{ 1 2 } clone <appender> map-as
] unit-test
[ t ] [
{ "three" "four" "five" }
[ >title ] V{ 1 2 } clone [ <back-inserter> map-as ] keep eq?
[ >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 <back-inserter> assoc>map
[ append ] V{ 1 2 } clone <appender> assoc>map
] unit-test
[ t ] [
{ { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
[ append ] V{ 1 2 } clone [ <back-inserter> assoc>map ] keep eq?
[ append ] V{ 1 2 } clone [ <appender> assoc>map ] keep eq?
] unit-test
[ V{ "Three" "Four" "Five" } ] [
@ -31,3 +32,14 @@ IN: sequences.inserters.tests
{ "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

8
extra/sequences/inserters/inserters.factor
View File

@ -22,12 +22,12 @@ M: inserter new-resizable
M: inserter length
drop 0 ; inline
TUPLE: back-inserter { underlying read-only } ;
C: <back-inserter> back-inserter
TUPLE: appender { underlying read-only } ;
C: <appender> appender
INSTANCE: back-inserter inserter
INSTANCE: appender inserter
M:: back-inserter new-sequence ( len inserter -- sequence )
M:: appender new-sequence ( len inserter -- sequence )
inserter underlying>> :> underlying
underlying length :> old-length
old-length len + :> new-length