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/061-kt-missing-leaves.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/061-kt-missing-leaves.t')
-rw-r--r-- | test/etap/061-kt-missing-leaves.t | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/test/etap/061-kt-missing-leaves.t b/test/etap/061-kt-missing-leaves.t new file mode 100644 index 00000000..78d95efa --- /dev/null +++ b/test/etap/061-kt-missing-leaves.t @@ -0,0 +1,53 @@ +#!/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() -> + TwoChildSibs = [{0, {"1","foo", [{"1a", "bar", []}, {"1b", "bar", []}]}}], + Stemmed1 = [{1, {"1a", "bar", [{"1aa", "bar", []}]}}], + Stemmed2 = [{2, {"1aa", "bar", []}}], + + etap:is( + [], + couch_key_tree:find_missing(TwoChildSibs, [{0,"1"}, {1,"1a"}]), + "Look for missing keys." + ), + + etap:is( + [{0, "10"}, {100, "x"}], + couch_key_tree:find_missing( + TwoChildSibs, + [{0,"1"}, {0, "10"}, {1,"1a"}, {100, "x"}] + ), + "Look for missing keys." + ), + + etap:is( + [{0, "1"}, {100, "x"}], + couch_key_tree:find_missing( + Stemmed1, + [{0,"1"}, {1,"1a"}, {100, "x"}] + ), + "Look for missing keys." + ), + etap:is( + [{0, "1"}, {1,"1a"}, {100, "x"}], + couch_key_tree:find_missing( + Stemmed2, + [{0,"1"}, {1,"1a"}, {100, "x"}] + ), + "Look for missing keys." + ), + + ok. |