Use relative paths in basic test

wqweto · Jul 6, 2018 · b1fb53b · b1fb53b
1 parent 6c6b46a
commit b1fb53b
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/test/basic/Module1.bas b/test/basic/Module1.bas
@@ -52,8 +52,8 @@ Private Declare Function LLVMGetPointerToGlobal Lib "vbllvm" (ByVal hEE As Long,
 Private Declare Function LLVMPrintModuleToString Lib "vbllvm" (ByVal hM As Long) As Long
 
 Sub Main()
-'    LoadLibrary "C:\Work\Temp\VBLLVM\bin\Release\VBLLVM.dll"
-    LoadLibrary "C:\Work\Temp\VBLLVM\bin\Debug\VBLLVM.dll"
+'    LoadLibrary App.Path & "\..\..\bin\Release\VBLLVM.dll"
+    LoadLibrary App.Path & "\..\..\bin\Debug\VBLLVM.dll"
     pvTestJIT
 End Sub
 
@@ -129,7 +129,7 @@ Private Function pvBuildFunction(hMod As Long, hFnSum As Long) As Long
     hValueTmp = LLVMBuildAdd(hBuilder, LLVMGetParam(hFnSum, 0), LLVMGetParam(hFnSum, 1), "tmp")
     Call LLVMBuildRet(hBuilder, hValueTmp)
     If LLVMVerifyModule(hTempMod, LLVMAbortProcessAction, lMsgPtr) <> 0 Then
-        ConsoleError "LLVMVerifyModule: %1", pvToString(lMsgPtr)
+        ConsoleError "LLVMVerifyModule: %1" & vbCrLf, pvToString(lMsgPtr)
         Call LLVMDisposeMessage(lMsgPtr)
         GoTo QH
     End If