test: Add test for #297

Author: alt-romes

test/golden/standalone-multi-module/Helper.hs

@@ -0,0 +1,5 @@
+module Helper where
+
+greet :: String -> IO ()
+greet name = do
+  putStrLn ("Hello, " ++ name ++ "!")

test/golden/standalone-multi-module/Main.hs

@@ -0,0 +1,9 @@
+module Main where
+
+import Helper
+
+main :: IO ()
+main = do
+  putStrLn "Starting..."
+  greet "world"
+  putStrLn "Done."

test/golden/standalone-multi-module/standalone-multi-module.ghc-914.hdb-stdout

@@ -0,0 +1,9 @@
+[1 of 4] Compiling GHC.Debugger.View.Class ( in-memory:GHC.Debugger.View.Class, interpreted )[haskell-debugger-view-in-memory]
+[2 of 4] Compiling Helper           ( <TEMPORARY-DIRECTORY>/Helper.hs, interpreted )[main]
+[3 of 4] Compiling Main             ( <TEMPORARY-DIRECTORY>/Main.hs, interpreted )[main]
+(hdb) BreakFound {changed = True, breakId = [InternalBreakpointId Main 5], sourceSpan = SourceSpan {file = "<TEMPORARY-DIRECTORY>/Main.hs", startLine = 7, endLine = 7, startCol = 3, endCol = 25}}
+(hdb) BreakFound {changed = True, breakId = [InternalBreakpointId Helper 4], sourceSpan = SourceSpan {file = "<TEMPORARY-DIRECTORY>/./Helper.hs", startLine = 5, endLine = 5, startCol = 3, endCol = 38}}
+(hdb) Stopped at breakpoint
+(hdb) Starting...
+Stopped at breakpoint
+(hdb) Exiting...

test/golden/standalone-multi-module/standalone-multi-module.hdb-stdin

@@ -0,0 +1,4 @@
+break Main.hs 7
+break Helper.hs 5
+run
+continue

test/golden/standalone-multi-module/standalone-multi-module.hdb-test

@@ -0,0 +1 @@
+$HDB Main.hs -v 0 < standalone-multi-module.hdb-stdin

test/haskell/Test/Integration/Basic.hs

@@ -27,6 +27,10 @@ basicTests =
             , testCase "accepts internalInterpreter launch option" internalInterpreterOption
             ]
         ]
+    , testGroup "Multi-module standalone (no cabal/hie.yaml)"
+        [ testCase "breakpoints in two modules (#297)" multiModuleStandaloneBreakpoints
+        , testCase "breakpoints in two modules (flipped) (#297)" multiModuleStandaloneBreakpoints2
+        ]
     ]
 
 basicForConfig :: TestName -> FilePath -> FilePath -> TestTree
@@ -89,3 +93,37 @@ internalInterpreterOption =
             { lcInternalInterpreter = Just True } -- TODO: Automatically run all tests with internal interpreter too?
       hitBreakpointWith cfg 6
       disconnect
+
+-- | Two-module standalone project (no cabal, no hie.yaml): set a breakpoint in
+-- each module, run, hit the first (Main.hs), continue, hit the second (Helper.hs).
+-- (#297)
+multiModuleStandaloneBreakpoints :: Assertion
+multiModuleStandaloneBreakpoints =
+  withTestDAPServer "test/integration/standalone-multi-module" [] $ \test_dir server ->
+    withTestDAPServerClient server $ do
+      let cfg = mkLaunchConfig test_dir "Main.hs"
+      _ <- sync $ launchWith cfg
+      waitFiltering_ EventTy "initialized"
+      _ <- sync $ setLineBreakpoints test_dir "Main.hs"   [7]
+      _ <- sync $ setLineBreakpoints test_dir "Helper.hs" [5]
+      _ <- sync configurationDone
+      assertStoppedLocation DAP.StoppedEventReasonBreakpoint 7
+      continueThread 0
+      assertStoppedLocation DAP.StoppedEventReasonBreakpoint 5
+      disconnect
+
+-- | Same as above, but flip the order of the setLineBreakpoints calls (#297)
+multiModuleStandaloneBreakpoints2 :: Assertion
+multiModuleStandaloneBreakpoints2 =
+  withTestDAPServer "test/integration/standalone-multi-module" [] $ \test_dir server ->
+    withTestDAPServerClient server $ do
+      let cfg = mkLaunchConfig test_dir "Main.hs"
+      _ <- sync $ launchWith cfg
+      waitFiltering_ EventTy "initialized"
+      _ <- sync $ setLineBreakpoints test_dir "Helper.hs" [5]
+      _ <- sync $ setLineBreakpoints test_dir "Main.hs"   [7]
+      _ <- sync configurationDone
+      assertStoppedLocation DAP.StoppedEventReasonBreakpoint 7
+      continueThread 0
+      assertStoppedLocation DAP.StoppedEventReasonBreakpoint 5
+      disconnect

test/integration/standalone-multi-module/Helper.hs

@@ -0,0 +1,5 @@
+module Helper where
+
+greet :: String -> IO ()
+greet name = do
+  putStrLn ("Hello, " ++ name ++ "!")

test/integration/standalone-multi-module/Main.hs

@@ -0,0 +1,9 @@
+module Main where
+
+import Helper
+
+main :: IO ()
+main = do
+  putStrLn "Starting..."
+  greet "world"
+  putStrLn "Done."