From 1d05da414cb834fb6dc9a96dd9cc014713105c8e Mon Sep 17 00:00:00 2001 From: Joel Holdbrooks Date: Thu, 15 Aug 2013 15:48:06 -0700 Subject: [PATCH] Update tests --- test/frak_test.clj | 34 +++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 deletions(-) diff --git a/test/frak_test.clj b/test/frak_test.clj index 8bb8fdf..a3e3271 100644 --- a/test/frak_test.clj +++ b/test/frak_test.clj @@ -8,34 +8,34 @@ (deftest trie-test (is (= (-> (trie-put "a") (trie-put "b")) - ^{:terminals '(\b \a) - :visitors '(\b \a)} {\a nil - \b nil})) + \b nil + :terminals '(\b \a) + :visitors '(\b \a)})) (is (= (-> (trie-put "aaa") (trie-put "ab")) - ^{:visitors '(\a\a)} {\a - ^{:terminals '(\b) - :visitors '(\a \b)} {\a - ^{:terminals '(\a) - :visitors '(\a)} - {\a nil} - \b nil}})) + {\a nil + :terminals '(\a) + :visitors '(\a)} + \b nil + :terminals '(\b) + :visitors '(\b \a)} + :visitors '(\a \a)})) (is (= (-> (trie-put "ab") (trie-put "aaa")) - ^{:visitors '(\a\a)} {\a - ^{:terminals '(\b) - :visitors '(\a \b)} {\a - ^{:terminals '(\a) - :visitors '(\a)} - {\a nil} - \b nil}}))) + {\a nil + :terminals '(\a) + :visitors '(\a)} + \b nil + :terminals '(\b) + :visitors '(\a \b)} + :visitors '(\a\a)}))) (deftest pattern-test (let [strs1 ["foo" "bar" "baz"] -- 2.25.1