Skip to content

Commit ca851c5

Browse files
committed
Eval plugin fixes
1 parent 940356d commit ca851c5

File tree

1 file changed

+5
-2
lines changed
  • plugins/hls-eval-plugin/test

1 file changed

+5
-2
lines changed

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

Lines changed: 5 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -74,6 +74,7 @@ tests =
7474
evalInFile "T8.hs" "-- >>> noFunctionWithThisName" "-- Variable not in scope: noFunctionWithThisName"
7575
evalInFile "T8.hs" "-- >>> res = \"a\" + \"bc\"" $
7676
if
77+
| ghcVersion >= GHC96 -> "-- No instance for `Num String' arising from a use of `+'\n-- In the expression: \"a\" + \"bc\"\n-- In an equation for `res': res = \"a\" + \"bc\""
7778
| ghcVersion >= GHC92 -> "-- No instance for (Num String) arising from a use of `+'\n-- In the expression: \"a\" + \"bc\"\n-- In an equation for `res': res = \"a\" + \"bc\""
7879
| ghcVersion == GHC90 -> "-- No instance for (Num String) arising from a use of ‘+’"
7980
| otherwise -> "-- No instance for (Num [Char]) arising from a use of ‘+’"
@@ -89,7 +90,7 @@ tests =
8990
, goldenWithEval' "Shows a kind with :kind" "T12" "hs" (if ghcVersion >= GHC92 then "ghc92.expected" else "expected")
9091
, goldenWithEval' "Reports an error for an incorrect type with :kind" "T13" "hs" (if ghcVersion >= GHC92 then "ghc92.expected" else "expected")
9192
, goldenWithEval "Returns a fully-instantiated type for :type" "T14" "hs"
92-
, knownBrokenForGhcVersions [GHC92, GHC94] "type +v does not work anymore with 9.2" $ goldenWithEval "Returns an uninstantiated type for :type +v, admitting multiple whitespaces around arguments" "T15" "hs"
93+
, knownBrokenForGhcVersions [GHC92, GHC94, GHC96] "type +v does not work anymore with 9.2" $ goldenWithEval "Returns an uninstantiated type for :type +v, admitting multiple whitespaces around arguments" "T15" "hs"
9394
, goldenWithEval "Returns defaulted type for :type +d, admitting multiple whitespaces around arguments" "T16" "hs"
9495
, goldenWithEval' ":type reports an error when given with unknown +x option" "T17" "hs" (if ghcVersion >= GHC92 then "ghc92.expected" else "expected")
9596
, goldenWithEval "Reports an error when given with unknown command" "T18" "hs"
@@ -140,7 +141,9 @@ tests =
140141
, goldenWithEval "IO expressions are supported, stdout/stderr output is ignored" "TIO" "hs"
141142
, goldenWithEval "Property checking" "TProperty" "hs"
142143
, goldenWithEval' "Property checking with exception" "TPropertyError" "hs" (
143-
if ghcVersion >= GHC94 && hostOS == Windows then
144+
if ghcVersion >= GHC96 then
145+
"ghc96.expected"
146+
else if ghcVersion >= GHC94 && hostOS == Windows then
144147
"windows-ghc94.expected"
145148
else if ghcVersion >= GHC94 then
146149
"ghc94.expected"

0 commit comments

Comments
 (0)