File tree Expand file tree Collapse file tree 1 file changed +7
-1
lines changed
plugins/hls-eval-plugin/test Expand file tree Collapse file tree 1 file changed +7
-1
lines changed Original file line number Diff line number Diff 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
214220goldenWithEval :: TestName -> FilePath -> FilePath -> TestTree
215221goldenWithEval title path ext =
You can’t perform that action at this time.
0 commit comments