From c77611f07bc42b7aa542eab864ecf263fba19d79 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 16 Sep 2011 21:52:14 -0700 Subject: [PATCH] assocs: adding tests for "assoc-stack". --- core/assocs/assocs-tests.factor | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/core/assocs/assocs-tests.factor b/core/assocs/assocs-tests.factor index e04237251b..50fbf9a7ff 100644 --- a/core/assocs/assocs-tests.factor +++ b/core/assocs/assocs-tests.factor @@ -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