From 2b21b31c73dfc500762360253b6e390024c7cf28 Mon Sep 17 00:00:00 2001
From: Paul Joseph Davis <davisp@apache.org>
Date: Sat, 30 May 2009 23:58:53 +0000
Subject: Adding code:add_pathz/1 calls for older Erlang versions.

git-svn-id: https://svn.apache.org/repos/asf/couchdb/trunk@780348 13f79535-47bb-0310-9956-ffa450edef68
---
 test/etap/001-load.t             | 1 +
 test/etap/010-file-basics.t      | 1 +
 test/etap/011-file-headers.t     | 1 +
 test/etap/020-btree-basics.t     | 1 +
 test/etap/021-btree-reductions.t | 1 +
 test/etap/030-doc-from-json.t    | 1 +
 test/etap/031-doc-to-json.t      | 5 +----
 7 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/test/etap/001-load.t b/test/etap/001-load.t
index 527ba8f6..ef941867 100755
--- a/test/etap/001-load.t
+++ b/test/etap/001-load.t
@@ -5,6 +5,7 @@
 % Test that we can load each module.
 
 main(_) ->
+    code:add_pathz("src/couchdb"),
     etap:plan(39),
     Modules = [
         couch_batch_save,
diff --git a/test/etap/010-file-basics.t b/test/etap/010-file-basics.t
index af9601d8..62704a1b 100755
--- a/test/etap/010-file-basics.t
+++ b/test/etap/010-file-basics.t
@@ -5,6 +5,7 @@
 -define(FILE_NAME, "./test/etap/temp.010").
 
 main(_) ->
+    code:add_pathz("src/couchdb"),
     etap:plan(16),
     case (catch test()) of
         ok ->
diff --git a/test/etap/011-file-headers.t b/test/etap/011-file-headers.t
index 51e7fa70..f9d0c948 100755
--- a/test/etap/011-file-headers.t
+++ b/test/etap/011-file-headers.t
@@ -6,6 +6,7 @@
 -define(SIZE_BLOCK, 4096). % Need to keep this in sync with couch_file.erl
 
 main(_) ->
+    code:add_pathz("src/couchdb"),
     {S1, S2, S3} = now(),
     random:seed(S1, S2, S3),
 
diff --git a/test/etap/020-btree-basics.t b/test/etap/020-btree-basics.t
index 682fd229..2cc5723d 100755
--- a/test/etap/020-btree-basics.t
+++ b/test/etap/020-btree-basics.t
@@ -8,6 +8,7 @@
 -record(btree, {fd, root, extract_kv, assemble_kv, less, reduce}).
 
 main(_) ->
+    code:add_pathz("src/couchdb"),
     etap:plan(48),
     case (catch test()) of
         ok ->
diff --git a/test/etap/021-btree-reductions.t b/test/etap/021-btree-reductions.t
index 04c175e9..eb84f09b 100755
--- a/test/etap/021-btree-reductions.t
+++ b/test/etap/021-btree-reductions.t
@@ -6,6 +6,7 @@
 -define(ROWS, 1000).
 
 main(_) ->
+    code:add_pathz("src/couchdb"),
     etap:plan(8),
     case (catch test()) of
         ok ->
diff --git a/test/etap/030-doc-from-json.t b/test/etap/030-doc-from-json.t
index 2d5eb8f7..13d11442 100755
--- a/test/etap/030-doc-from-json.t
+++ b/test/etap/030-doc-from-json.t
@@ -8,6 +8,7 @@
             attachments=[], deleted=false, meta=[]}).
 
 main(_) ->
+    code:add_pathz("src/couchdb"),
     etap:plan(26),
     case (catch test()) of
         ok ->
diff --git a/test/etap/031-doc-to-json.t b/test/etap/031-doc-to-json.t
index f444ec6e..02a09616 100755
--- a/test/etap/031-doc-to-json.t
+++ b/test/etap/031-doc-to-json.t
@@ -8,6 +8,7 @@
             attachments=[], deleted=false, meta=[]}).
 
 main(_) ->
+    code:add_pathz("src/couchdb"),
     etap:plan(unknown),
     case (catch test()) of
         ok ->
@@ -20,7 +21,6 @@ main(_) ->
 
 test() ->
     ok = test_to_json_success(),
-    ok = test_to_json_errors(),
     ok.
     
 test_to_json_success() ->
@@ -150,6 +150,3 @@ test_to_json_success() ->
             etap:is(couch_doc:to_json_obj(Doc, Options), EJson, Mesg)
     end, Cases),
     ok.
-
-test_to_json_errors() ->
-    ok.
\ No newline at end of file
-- 
cgit v1.2.3