diff options
author | Paul Joseph Davis <davisp@apache.org> | 2009-06-11 01:59:56 +0000 |
---|---|---|
committer | Paul Joseph Davis <davisp@apache.org> | 2009-06-11 01:59:56 +0000 |
commit | 58ad7ad6c330bf65b89e0f5e4a790d14510d3ce7 (patch) | |
tree | 5baa5df527bcdde74198b0ea1835e75463309063 /test/etap/064-kt-counting.t | |
parent | 7fa9f2473a57008000597935a42893771ab156a8 (diff) |
Integrating more ETAP tests from Bob Dionne.
git-svn-id: https://svn.apache.org/repos/asf/couchdb/trunk@783600 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to 'test/etap/064-kt-counting.t')
-rw-r--r-- | test/etap/064-kt-counting.t | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/test/etap/064-kt-counting.t b/test/etap/064-kt-counting.t new file mode 100644 index 00000000..03719279 --- /dev/null +++ b/test/etap/064-kt-counting.t @@ -0,0 +1,34 @@ +#!/usr/bin/env escript +%% -*- erlang -*- + +main(_) -> + code:add_pathz("src/couchdb"), + etap:plan(unknown), + case (catch test()) of + ok -> + etap:end_tests(); + Other -> + etap:diag(io_lib:format("Test died abnormally: ~p", [Other])), + etap:bail(Other) + end, + ok. + +test() -> + EmptyTree = [], + One = [{0, {"1","foo",[]}}], + TwoChildSibs = [{0, {"1","foo", [{"1a", "bar", []}, {"1b", "bar", []}]}}], + Stemmed = [{2, {"1bb", "boo", []}}], + + etap:is(0, couch_key_tree:count_leafs(EmptyTree), + "Empty trees have no leaves."), + + etap:is(1, couch_key_tree:count_leafs(One), + "Single node trees have a single leaf."), + + etap:is(2, couch_key_tree:count_leafs(TwoChildSibs), + "Two children siblings counted as two leaves."), + + etap:is(1, couch_key_tree:count_leafs(Stemmed), + "Stemming does not affect leaf counting."), + + ok. |