assocs: adding tests for "assoc-stack".

John Benediktsson 2011-09-16 21:52:14 -07:00
parent dc1a0873c7
commit e6234537a3
1 changed files with 5 additions and 0 deletions

View File

@ -194,3 +194,8 @@ unit-test
H{ { 1 7 } { 5 6 } } H{ { 1 7 } { 5 6 } }
} assoc-refine } assoc-refine
] unit-test ] unit-test
[ f ] [ "a" { } assoc-stack ] unit-test
[ 1 ] [ "a" { H{ { "a" 1 } } H{ { "b" 2 } } } assoc-stack ] unit-test
[ 2 ] [ "b" { H{ { "a" 1 } } H{ { "b" 2 } } } assoc-stack ] unit-test
[ f ] [ "c" { H{ { "a" 1 } } H{ { "b" 2 } } } assoc-stack ] unit-test