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/065-kt-stemming.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/065-kt-stemming.t')
-rw-r--r-- | test/etap/065-kt-stemming.t | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/test/etap/065-kt-stemming.t b/test/etap/065-kt-stemming.t new file mode 100644 index 00000000..7ad29347 --- /dev/null +++ b/test/etap/065-kt-stemming.t @@ -0,0 +1,30 @@ +#!/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() -> + TwoChild = [{0, {"1","foo", [{"1a", "bar", [{"1aa", "bar", []}]}]}}], + Stemmed1 = [{1, {"1a", "bar", [{"1aa", "bar", []}]}}], + Stemmed2 = [{2, {"1aa", "bar", []}}], + + etap:is(TwoChild, couch_key_tree:stem(TwoChild, 3), + "Stemming more levels than what exists does nothing."), + + etap:is(Stemmed1, couch_key_tree:stem(TwoChild, 2), + "Stemming with a depth of two returns the deepest two nodes."), + + etap:is(Stemmed2, couch_key_tree:stem(TwoChild, 1), + "Stemming to a depth of one returns the deepest node."), + + ok. |