Fix an unreliable test

pepeiborra · pepeiborra · commit 459347cab3dd · 2020-11-13T20:48:03.000Z
diff --git a/test/exe/Main.hs b/test/exe/Main.hs
@@ -342,11 +342,11 @@ diagnosticTests = testGroup "diagnostics"
   , testSessionWait "correct reference used with hs-boot" $ do
       let contentB = T.unlines
             [ "module ModuleB where"
-            , "import {-# SOURCE #-} ModuleA"
+            , "import {-# SOURCE #-} ModuleA()"
             ]
       let contentA = T.unlines
             [ "module ModuleA where"
-            , "import ModuleB"
+            , "import ModuleB()"
             , "x = 5"
             ]
       let contentAboot = T.unlines

Original file line number	Diff line number	Diff line change
`@@ -342,11 +342,11 @@ diagnosticTests = testGroup "diagnostics"`
`342`	`342`	`, testSessionWait "correct reference used with hs-boot" $ do`
`343`	`343`	`let contentB = T.unlines`
`344`	`344`	`[ "module ModuleB where"`
`345`		`- , "import {-# SOURCE #-} ModuleA"`
	`345`	`+ , "import {-# SOURCE #-} ModuleA()"`
`346`	`346`	`]`
`347`	`347`	`let contentA = T.unlines`
`348`	`348`	`[ "module ModuleA where"`
`349`		`- , "import ModuleB"`
	`349`	`+ , "import ModuleB()"`
`350`	`350`	`, "x = 5"`
`351`	`351`	`]`
`352`	`352`	`let contentAboot = T.unlines`