Build profile: -w ghc-9.8.2 -O1 In order, the following will be built (use -v for more details): - haskell-language-server-2.7.0.0 (test:hls-eval-plugin-tests) (ephemeral targets) Preprocessing test suite 'hls-eval-plugin-tests' for haskell-language-server-2.7.0.0.. Building test suite 'hls-eval-plugin-tests' for haskell-language-server-2.7.0.0.. Running 1 test suites... Test suite hls-eval-plugin-tests: RUNNING... eval T4139: ==================== Renamer ==================== interactive:Ghci1.evalPrint x_aKh = writeFile "/var/folders/n7/cspl03gj18db1w0kqbv_9fn00000gn/T/extra-file-69330688742-86755-4" (show x_aKh) ==================== Desugar (before optimization) ==================== Result size of Desugar (before optimization) = {terms: 20, types: 17, coercions: 0, joins: 0/2} Rec { -- RHS size: {terms: 5, types: 0, coercions: 0, joins: 0/0} interactive:Ghci1.$trModule :: GHC.Types.Module [LclIdX] interactive:Ghci1.$trModule = GHC.Types.Module (GHC.Types.TrNameS "interactive"#) (GHC.Types.TrNameS "Ghci1"#) -- RHS size: {terms: 13, types: 10, coercions: 0, joins: 0/2} evalPrint :: forall {a}. Show a => a -> IO () [LclId] evalPrint = \ (@a_aST) ($dShow_aT1 :: Show a_aST) -> let { $dShow_aSU :: Show a_aST [LclId] $dShow_aSU = $dShow_aT1 } in letrec { evalPrint_aSX :: a_aST -> IO () [LclId] evalPrint_aSX = \ (x_aKh :: a_aST) -> writeFile (GHC.CString.unpackCString# "/var/folders/n7/cspl03gj18db1w0kqbv_9fn00000gn/T/extra-file-69330688742-86755-4"#) (show @a_aST $dShow_aSU x_aKh); } in evalPrint_aSX end Rec } ==================== Desugar (after optimization) ==================== Result size of Desugar (after optimization) = {terms: 6, types: 1, coercions: 0, joins: 0/0} -- RHS size: {terms: 5, types: 0, coercions: 0, joins: 0/0} interactive:Ghci1.$trModule :: GHC.Types.Module [LclIdX, Unf=Unf{Src=, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 100 10}] interactive:Ghci1.$trModule = GHC.Types.Module (GHC.Types.TrNameS "interactive"#) (GHC.Types.TrNameS "Ghci1"#) FAIL (0.41s) Test output was different from 'plugins/hls-eval-plugin/test/testdata/T4139.expected.hs'. Output of ["git","-c","core.fileMode=false","diff","--no-index","--text","--exit-code","plugins/hls-eval-plugin/test/testdata/T4139.expected.hs","/private/var/folders/n7/cspl03gj18db1w0kqbv_9fn00000gn/T/T4139.expected86755-5.actual"]: diff --git a/plugins/hls-eval-plugin/test/testdata/T4139.expected.hs b/private/var/folders/n7/cspl03gj18db1w0kqbv_9fn00000gn/T/T4139.expected86755-5.actual index ade8332a..4b738650 100644 --- a/plugins/hls-eval-plugin/test/testdata/T4139.expected.hs +++ b/private/var/folders/n7/cspl03gj18db1w0kqbv_9fn00000gn/T/T4139.expected86755-5.actual @@ -1,7 +1,7 @@ module T4139 where -- >>> 'x' --- 'x' +-- Prelude.head: empty list main :: IO () main = putStrLn "Hello World!" 1 out of 1 tests failed (0.41s) Test suite hls-eval-plugin-tests: FAIL Test suite logged to: /Users/peter/Developer/personal/haskell-language-server/dist-newstyle/build/aarch64-osx/ghc-9.8.2/haskell-language-server-2.7.0.0/t/hls-eval-plugin-tests/test/haskell-language-server-2.7.0.0-hls-eval-plugin-tests.log 0 of 1 test suites (0 of 1 test cases) passed.