fix CPP OS detection

Author: raehik

fortran-src.cabal

@@ -150,6 +150,8 @@ library
     , temporary >=1.2 && <1.4
     , text >=1.2 && <2
     , uniplate >=1.6 && <2
+  if os(windows)
+    cpp-options: -DFS_DISABLE_WIN_BROKEN_TESTS
   default-language: Haskell2010
 
 executable fortran-src
@@ -196,6 +198,8 @@ executable fortran-src
     , temporary >=1.2 && <1.4
     , text >=1.2 && <2
     , uniplate >=1.6 && <2
+  if os(windows)
+    cpp-options: -DFS_DISABLE_WIN_BROKEN_TESTS
   default-language: Haskell2010
 
 test-suite spec
@@ -274,4 +278,6 @@ test-suite spec
     , temporary >=1.2 && <1.4
     , text >=1.2 && <2
     , uniplate >=1.6 && <2
+  if os(windows)
+    cpp-options: -DFS_DISABLE_WIN_BROKEN_TESTS
   default-language: Haskell2010

package.yaml

@@ -96,3 +96,8 @@ tests:
     - deepseq >=1.4 && <1.5
     - hspec >=2.2 && <3
     - QuickCheck >=2.10 && <2.15
+
+when:
+- condition: os(windows)
+  cpp-options:
+  - -DFS_DISABLE_WIN_BROKEN_TESTS

test/Language/Fortran/Parser/Fixed/Fortran77/IncludeSpec.hs

@@ -53,7 +53,7 @@ spec =
             , bl st3Span . st st3Span ty2Span $ varGen' var2Span "b"
             ])
           ex = ExpValue () expSpan (ValString "foo.f")
-#ifndef _WIN32
+#ifndef FS_DISABLE_WIN_BROKEN_TESTS
     -- 2022-08-18 raehik
     -- These tests failed on the Windows CI on GitHub with an unknown error. I'm
     -- assuming it's to do with 'SrcSpan's not matching -- specifically the
@@ -69,5 +69,5 @@ spec =
       pfParsed <- iParser [inc] source
       pfParsed `shouldBe` pf inc
 #else
-    pure
+    pure ()
 #endif

test/Language/Fortran/RewriterSpec.hs

@@ -222,7 +222,7 @@ spec = do
                   "999999999999999999999"
               ]
             )
-#ifndef _WIN32
+#ifndef FS_DISABLE_WIN_BROKEN_TESTS
           -- TODO fails on Windows due to some line ending/spacing bug
           , ( workDir ++ "002_other.f"
             , [ Replacement
@@ -293,7 +293,7 @@ spec = do
         Nothing
         "replacementsmap-columnlimit"
         [ "001_foo.f"
-#ifndef mingw32_HOST_OS
+#ifndef FS_DISABLE_WIN_BROKEN_TESTS
         , "002_other.f"
         , "003_multiline.f"
 #endif