ad

soulomoon · May 21, 2024 · 6d4ba8c · 6d4ba8c
1 parent 62e481a
commit 6d4ba8c
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/plugins/hls-notes-plugin/test/NotesTest.hs b/plugins/hls-notes-plugin/test/NotesTest.hs
@@ -17,21 +17,22 @@ main = defaultTestRunner $
 
 gotoNoteTests :: TestTree
 gotoNoteTests = testGroup "Goto Note Definition"
-    [ testCase "single_file" $ runSessionWithServer def plugin testDataDir $ do
+    [
+      testCase "single_file" $ runSessionWithServer def plugin testDataDir $ do
         doc <- openDoc "NoteDef.hs" "haskell"
         waitForBuildQueue
         waitForAllProgressDone
         defs <- getDefinitions doc (Position 3 41)
         liftIO $ do
-          fp <- canonicalizePath "NoteDef.hs"
+          fp <- canonicalizePath $ testDataDir </> "NoteDef.hs"
           defs @?= InL (Definition (InR [Location (filePathToUri fp) (Range (Position 8 9) (Position 8 9))]))
     , testCase "liberal_format" $ runSessionWithServer def plugin testDataDir $ do
         doc <- openDoc "NoteDef.hs" "haskell"
         waitForBuildQueue
         waitForAllProgressDone
         defs <- getDefinitions doc (Position 5 64)
         liftIO $ do
-          fp <- canonicalizePath "NoteDef.hs"
+          fp <- canonicalizePath $ testDataDir </> "NoteDef.hs"
           defs @?= InL (Definition (InR [Location (filePathToUri fp) (Range (Position 18 11) (Position 18 11))]))
 
     , testCase "invalid_note" $ runSessionWithServer def plugin testDataDir $ do
@@ -56,7 +57,7 @@ gotoNoteTests = testGroup "Goto Note Definition"
         waitForAllProgressDone
         defs <- getDefinitions doc (Position 5 20)
         liftIO $ do
-          fp <- canonicalizePath "NoteDef.hs"
+          fp <- canonicalizePath $ testDataDir </> "NoteDef.hs"
           defs @?= InL (Definition (InR [Location (filePathToUri fp) (Range (Position 12 6) (Position 12 6))]))
     ]