Skip to content

Commit 8f84997

Browse files
committed
Run hls-eval-plugin test on Windows for GHC 9.12 only
1 parent 34c8229 commit 8f84997

File tree

1 file changed

+7
-1
lines changed
  • plugins/hls-eval-plugin/test

1 file changed

+7
-1
lines changed

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

Lines changed: 7 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -126,7 +126,7 @@ tests =
126126
, goldenWithEval "The default language extensions for the eval plugin are the same as those for ghci" "TSameDefaultLanguageExtensionsAsGhci" "hs"
127127
, goldenWithEval "IO expressions are supported, stdout/stderr output is ignored" "TIO" "hs"
128128
, goldenWithEvalAndFs "Property checking" cabalProjectFS "TProperty" "hs"
129-
, knownBrokenInEnv [HostOS Windows] "The output has path separators in it, which on Windows look different. Just skip it there" $
129+
, knownBrokenInWindowsBeforeGHC912 "The output has path separators in it, which on Windows look different. Just skip it there" $
130130
goldenWithEvalAndFs' "Property checking with exception" cabalProjectFS "TPropertyError" "hs" $
131131
case ghcVersion of
132132
GHC912 -> "ghc912.expected"
@@ -210,6 +210,12 @@ tests =
210210
let ifaceKeys = filter ("GetModIface" `T.isPrefixOf`) keys
211211
liftIO $ ifaceKeys @?= []
212212
]
213+
where
214+
knownBrokenInWindowsBeforeGHC912 msg =
215+
foldl (.) id
216+
[ knownBrokenInSpecificEnv [GhcVer ghcVer, HostOS Windows] msg
217+
| ghcVer <- [GHC94 .. GHC910]
218+
]
213219

214220
goldenWithEval :: TestName -> FilePath -> FilePath -> TestTree
215221
goldenWithEval title path ext =

0 commit comments

Comments
 (0)