Fixing Bug #79 with Suite Names in Test names (#83)

- Test names that started with the suite name no longer throw a module
  not found error.

Author: jamesagardner

marklogic-unit-test-client/src/test/ml-modules/root/test/suites/Test Suites/Test Suites-test-starting-with-suite-name.xqy

@@ -0,0 +1,8 @@
+xquery version "1.0-ml";
+
+import module namespace test = "http://marklogic.com/test" at "/test/test-controller.xqy",
+                                                                   "/test/test-helper.xqy";
+
+let $list := test:list()
+
+return test:assert-exists($list/test:suite[@path="Assertions"]/test:tests/test:test[@path="assert-exists.xqy"])

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

@@ -37,7 +37,7 @@ declare function list()
     for $uri in test:list-from-database($db-id, $root || "test/suites/")
       let $test-path := fn:replace($uri, fn:concat($root, "test/suites/?"), "")
       let $suite-path := cvt:basepath($test-path)
-      let $test-name := fn:replace($test-path, $suite-path || "(\\|/)?", "")
+      let $test-name := fn:replace($test-path, $suite-path || "(\\|/)", "")
 
       let $suite-is-valid :=
         let $path-not-in-ignored-directory :=