assocs: adding tests for "assoc-stack".

db4
John Benediktsson 2011-09-16 21:52:14 -07:00
parent 7e4aa6f67f
commit c77611f07b
1 changed files with 5 additions and 0 deletions

View File

@ -194,3 +194,8 @@ unit-test
H{ { 1 7 } { 5 6 } }
} assoc-refine
] 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