Merge pull request #193 from BillFarber/feature/GetTestPath

DEVEXP-549: Get path for test data

Author: BillFarber

marklogic-unit-test-client/src/test/ml-modules/root/test/suites/Test Suites/lib/uri-lib.xqy

@@ -0,0 +1,10 @@
+xquery version "1.0-ml";
+
+module namespace url-lib = "http://marklogic.com/url-lib";
+
+import module namespace test = "http://marklogic.com/test" at "/test/test-controller.xqy", "/test/test-helper.xqy";
+
+declare function url-lib:call-get-test-data-directory-uri($caller as xs:string) as xs:string
+{
+  test:get-test-data-directory-uri($caller)
+};

marklogic-unit-test-client/src/test/ml-modules/root/test/suites/Test Suites/test-get-data-directory-uri.xqy

@@ -0,0 +1,9 @@
+xquery version "1.0-ml";
+
+import module namespace test = "http://marklogic.com/test" at "/test/test-controller.xqy", "/test/test-helper.xqy";
+import module namespace url-lib = "http://marklogic.com/url-lib" at "/test/suites/Test Suites/lib/uri-lib.xqy";
+
+(
+  test:assert-equal("/test/suites/Test Suites/test-data/", test:get-test-data-directory-uri(test:get-caller())),
+  test:assert-equal("/test/suites/Test Suites/test-data/", url-lib:call-get-test-data-directory-uri(test:get-caller()))
+)

marklogic-unit-test-modules/src/main/ml-modules/root/test/test-helper.xqy

@@ -44,6 +44,17 @@ declare variable $test:__LINE__ as xs:int :=
 
 declare variable $test:__CALLER_FILE__ := test:get-caller();
 
+(:
+ : Returns a URI identifying the directory that contains any test data files associated with the test module that invokes this.
+ :)
+declare function test:get-test-data-directory-uri($caller-path as xs:string) as xs:string
+{
+  fn:replace(
+    fn:concat(
+      cvt:basepath($caller-path), "/test-data/"),
+    "//", "/")
+};
+
 declare function test:get-caller()
 as xs:string
 {