Disable relocatable tests on FreeBSD

Author: hasufell

cabal-testsuite/PackageTests/PathsModule/Executable-Relocatable/setup.test.hs

@@ -3,6 +3,7 @@ import Test.Cabal.Prelude
 
 main = do
   skipIfWindows "no relocatable builds"
+  skipIfFreeBSD "no relocatable builds"
   setupAndCabalTest $ do
     skipUnlessGhcVersion ">= 8.0"
     withPackageDb $ setup_build ["--enable-relocatable"]

cabal-testsuite/PackageTests/Regression/T4291/setup.test.hs

@@ -5,6 +5,7 @@ import Test.Cabal.Prelude
 -- contains '..'
 main = do
   skipIfWindows "no relocatable builds"
+  skipIfFreeBSD "no relocatable builds"
   setupAndCabalTest $ withPackageDb $ do
     skipUnlessGhcVersion ">= 7.6"
     env <- getTestEnv

cabal-testsuite/src/Test/Cabal/Prelude.hs

@@ -34,7 +34,7 @@ import Distribution.Simple.PackageDescription (readGenericPackageDescription)
 import Distribution.Simple.Program.Types
 import Distribution.Simple.Program.Db
 import Distribution.Simple.Program
-import Distribution.System (OS(Windows,Linux,OSX), Arch(JavaScript), buildOS, buildArch)
+import Distribution.System (OS(Windows,Linux,OSX,FreeBSD), Arch(JavaScript), buildOS, buildArch)
 import Distribution.Simple.Configure
     ( getPersistBuildConfig )
 import Distribution.Simple.Utils
@@ -1058,6 +1058,9 @@ skipIfJavaScript = skipIfIO "incompatible with the JavaScript backend" isJavaScr
 isWindows :: Bool
 isWindows = buildOS == Windows
 
+isFreeBSD :: Bool
+isFreeBSD = buildOS == FreeBSD
+
 isCI :: IO Bool
 isCI = isJust <$> lookupEnv "CI"
 
@@ -1075,6 +1078,9 @@ isJavaScript = buildArch == JavaScript
 skipIfWindows :: String -> IO ()
 skipIfWindows why = skipIfIO ("Windows " <> why) isWindows
 
+skipIfFreeBSD :: String -> IO ()
+skipIfFreeBSD why = skipIfIO ("FreeBSD " <> why) isFreeBSD
+
 skipUnlessWindows :: IO ()
 skipUnlessWindows = skipIfIO "Only interesting in Windows" (not isWindows)