[[ Tests ]] Allow multiple occurrences of tests in test file path

livecodeali · livecodeali · commit 87a279ac5e4b · 2017-10-18T16:28:25.000+01:00
This patch ensures that the first occurrence of a directory named
tests in an lcb file's path is used for computing the location
relative to the _tests/build folder
diff --git a/tests/_testlib.livecodescript b/tests/_testlib.livecodescript
@@ -437,14 +437,16 @@ function TestGetBuiltBytecodeFile pName
    set the itemDelimiter to slash
    put item 1 to -2 of the effective filename of \
          __StackOfObject(__GetCaller()) into tBasePath
-   repeat while the last item of tBasePath is not "tests"
-      put item -1 of tBasePath & slash before tExtraPath
-      delete the last item of tBasePath
-   end repeat
+         
+   local tTestsOffset
+   set the wholematches to true
+   put itemOffset("tests", tBasePath) into tTestsOffset
+   put item tTestsOffset + 1 to -1 of tBasePath into tExtraPath
+   put item 1 to tTestsOffset - 1 of tBasePath into tBasePath
    
    local tModuleFile
-   put tBasePath & "/../" & kBytecodePathPrefix & tExtraPath & pName \
-      & ".lcm" into tModuleFile
+   put tBasePath & "/" & kBytecodePathPrefix & tExtraPath & slash & \ 
+      pName & ".lcm" into tModuleFile
    return tModuleFile
 end TestGetBuiltBytecodeFile
 
