Eval plugin test fixups

Author: michaelpj

plugins/hls-eval-plugin/test/Main.hs

@@ -131,7 +131,7 @@ tests =
   , goldenWithEvalAndFs "Transitive local dependency"  (FS.directProjectMulti ["TTransitive.hs", "TLocalImport.hs", "Util.hs"]) "TTransitive" "hs"
   -- , goldenWithEval "Local Modules can be imported in a test" "TLocalImportInTest" "hs"
   , goldenWithEval "Setting language option TupleSections" "TLanguageOptionsTupleSections" "hs"
-  , goldenWithEval' ":set accepts ghci flags" "TFlags" "hs" (if ghcVersion >= GHC92 then "ghc98.expected" else if ghcVersion >= GHC92 then "ghc92.expected" else "expected")
+  , goldenWithEval' ":set accepts ghci flags" "TFlags" "hs" (if ghcVersion >= GHC98 then "ghc98.expected" else if ghcVersion >= GHC92 then "ghc92.expected" else "expected")
   , testCase ":set -fprint-explicit-foralls works" $ do
       evalInFile "T8.hs" "-- >>> :t id" "-- id :: a -> a"
       evalInFile "T8.hs" "-- >>> :set -fprint-explicit-foralls\n-- >>> :t id"
@@ -142,7 +142,9 @@ tests =
   , goldenWithEval "IO expressions are supported, stdout/stderr output is ignored" "TIO" "hs"
   , goldenWithEvalAndFs "Property checking" cabalProjectFS "TProperty" "hs"
   , goldenWithEvalAndFs' "Property checking with exception" cabalProjectFS "TPropertyError" "hs" (
-        if ghcVersion >= GHC96 then
+        if ghcVersion >= GHC98 then
+          "ghc98.expected"
+        else if ghcVersion >= GHC96 then
           "ghc96.expected"
         else if ghcVersion >= GHC94 && hostOS == Windows then
           "windows-ghc94.expected"

plugins/hls-eval-plugin/test/testdata/T14.ghc98.expected.hs

@@ -0,0 +1,8 @@
+{-# LANGUAGE TypeApplications #-}
+module T14 where
+
+foo :: Show a => a -> String
+foo = show
+
+-- >>> :type foo @Int
+-- foo @Int :: Show Int => Int -> String

plugins/hls-eval-plugin/test/testdata/TFlags.ghc98.expected.hs

@@ -21,7 +21,6 @@ Options apply only in the section where they are defined (unless they are in the
 
 >>> class L a b c
 Too many parameters for class `L'
-(Enable MultiParamTypeClasses to allow multi-parameter classes)
 In the class declaration for `L'
 -}
 
@@ -33,7 +32,6 @@ Not set yet:
 
 >>> class D
 No parameters for class `D'
-(Enable MultiParamTypeClasses to allow no-parameter classes)
 In the class declaration for `D'
 
 Now it works:
@@ -57,7 +55,7 @@ It still works
 {- Invalid option/flags are reported, but valid ones will be reflected
 
 >>> :set -XRank2Types -XAbsent -XDatatypeContexts -XWrong -fprint-nothing-at-all
-<interactive>: warning:
+<interactive>: warning: [GHC-53692] [-Wdeprecated-flags (in -Wdefault)]
     -XDatatypeContexts is deprecated: It was widely considered a misfeature, and has been removed from the Haskell language.
 Some flags have not been recognized: -XAbsent, -XWrong, -fprint-nothing-at-all
 

plugins/hls-eval-plugin/test/testdata/TPropertyError.ghc98.expected.hs

@@ -0,0 +1,13 @@
+-- Support for property checking
+module TProperty where
+
+-- prop> \(l::[Bool]) -> head l
+-- *** Failed! (after 1 test):
+-- Exception:
+--   Prelude.head: empty list
+--   CallStack (from HasCallStack):
+--     error, called at libraries/base/GHC/List.hs:1782:3 in base:GHC.List
+--     errorEmptyList, called at libraries/base/GHC/List.hs:89:11 in base:GHC.List
+--     badHead, called at libraries/base/GHC/List.hs:83:28 in base:GHC.List
+--     head, called at <interactive>:1:27 in interactive:Ghci2
+-- []