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

trees.splay, add test for assoc-size

char-rename
Jon Harper 2017-01-06 17:34:07 +01:00 committed by John Benediktsson
parent 4442d922b0
commit 2ca301ec5e
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/trees/splay/splay-tests.factor
View File

@ -36,3 +36,16 @@ IN: trees.splay.tests
100 iota [ dup zip >splay ] keep 100 iota [ dup zip >splay ] keep
[ over delete-at ] each assoc-size [ over delete-at ] each assoc-size
] unit-test ] unit-test
: test-tree ( -- tree )
SPLAY{
{ 7 "seven" }
{ 9 "nine" }
{ 4 "four" }
{ 4 "replaced four" }
{ 7 "replaced seven" }
} clone ;
! test assoc-size
{ 3 } [ test-tree assoc-size ] unit-test
{ 2 } [ test-tree 9 over delete-at assoc-size ] unit-test