Add shims on tests

cabal-testsuite/PackageTests/GhcPkgGuess/SameDirectory/ghc-pkg.shim

@@ -0,0 +1,2 @@
+path = "FINDSH\sh.exe"
+args = "ghc-pkg"

cabal-testsuite/PackageTests/GhcPkgGuess/SameDirectory/ghc.shim

@@ -0,0 +1,2 @@
+path = "FINDSH\sh.exe"
+args = "ghc"

cabal-testsuite/PackageTests/GhcPkgGuess/SameDirectory/setup.test.hs

@@ -1,9 +1,19 @@
 import Test.Cabal.Prelude
+import System.Directory
 
-main = setupAndCabalTest $ expectBrokenIfWindows 10179 $ do
+main = setupAndCabalTest $ do
+      when isWindows $ do
+        sh <- fmap takeDirectory <$> liftIO (findExecutable "sh")
+        case sh of
+            Nothing -> skip "no sh"
+            Just sh' -> do
+                let sh'' = concatMap (\c -> case c of
+                            '\\' -> "\\\\\\\\"
+                            x -> [x]) sh'
+                void $ shell "sed" [ "-i", "-e", "s/FINDSH/" <> sh'' <> "/g", "ghc.shim", "ghc-pkg.shim"]
       env <- getTestEnv
       let cwd = testCurrentDir env
       ghc_path <- programPathM ghcProgram
       r <- withEnv [("WITH_GHC", Just ghc_path)]
-          . fails $ setup' "configure" ["-w", cwd </> "ghc"]
+          . fails $ setup' "configure" ["-w", cwd </> if isWindows then "ghc.exe" else "ghc" ]
       assertOutputContains "is version 9999999" r

cabal-testsuite/PackageTests/GhcPkgGuess/SameDirectoryGhcVersion/ghc-7.10.shim

@@ -0,0 +1,2 @@
+path = "FINDSH\sh.exe"
+args = "ghc-7.10"

cabal-testsuite/PackageTests/GhcPkgGuess/SameDirectoryGhcVersion/ghc-pkg-ghc-7.10.shim

@@ -0,0 +1,2 @@
+path = "FINDSH\sh.exe"
+args = "ghc-pkg-ghc-7.10"

cabal-testsuite/PackageTests/GhcPkgGuess/SameDirectoryGhcVersion/setup.test.hs

@@ -1,9 +1,19 @@
 import Test.Cabal.Prelude
+import System.Directory
 
-main = setupAndCabalTest $ expectBrokenIfWindows 10179 $ do
+main = setupAndCabalTest $ do
+      when isWindows $ do
+        sh <- fmap takeDirectory <$> liftIO (findExecutable "sh")
+        case sh of
+            Nothing -> skip "no sh"
+            Just sh' -> do
+                let sh'' = concatMap (\c -> case c of
+                            '\\' -> "\\\\\\\\"
+                            x -> [x]) sh'
+                void $ shell "sed" [ "-i", "-e", "s/FINDSH/" <> sh'' <> "/g", "ghc-7.10.shim", "ghc-pkg-ghc-7.10.shim"]
       env <- getTestEnv
       let cwd = testCurrentDir env
       ghc_path <- programPathM ghcProgram
       r <- withEnv [("WITH_GHC", Just ghc_path)]
-         . fails $ setup' "configure" ["-w", cwd </> "ghc-7.10"]
+         . fails $ setup' "configure" ["-w", cwd </> if isWindows then "ghc-7.10.exe" else "ghc-7.10"]
       assertOutputContains "is version 9999999" r

cabal-testsuite/PackageTests/GhcPkgGuess/SameDirectoryVersion/ghc-7.10.shim

@@ -0,0 +1,2 @@
+path = "FINDSH\sh.exe"
+args = "ghc-7.10"

cabal-testsuite/PackageTests/GhcPkgGuess/SameDirectoryVersion/ghc-pkg-7.10.shim

@@ -0,0 +1,2 @@
+path = "FINDSH\sh.exe"
+args = "ghc-pkg-7.10"

cabal-testsuite/PackageTests/GhcPkgGuess/SameDirectoryVersion/setup.test.hs

@@ -1,9 +1,19 @@
 import Test.Cabal.Prelude
+import System.Directory
 
-main = setupAndCabalTest $ expectBrokenIfWindows 10179 $ do
+main = setupAndCabalTest $ do
+      when isWindows $ do
+        sh <- fmap takeDirectory <$> liftIO (findExecutable "sh")
+        case sh of
+            Nothing -> skip "no sh"
+            Just sh' -> do
+                let sh'' = concatMap (\c -> case c of
+                            '\\' -> "\\\\\\\\"
+                            x -> [x]) sh'
+                void $ shell "sed" [ "-i", "-e", "s/FINDSH/" <> sh'' <> "/g", "ghc-7.10.shim", "ghc-pkg-7.10.shim"]
       env <- getTestEnv
       let cwd = testCurrentDir env
       ghc_path <- programPathM ghcProgram
       r <- withEnv [("WITH_GHC", Just ghc_path)]
-         . fails $ setup' "configure" ["-w", cwd </> "ghc-7.10"]
+         . fails $ setup' "configure" ["-w", cwd </> if isWindows then "ghc-7.10.exe" else "ghc-7.10"]
       assertOutputContains "is version 9999999" r

cabal-testsuite/PackageTests/GhcPkgGuess/Symlink/bin/ghc-pkg.shim

@@ -0,0 +1,2 @@
+path = "FINDSH\sh.exe"
+args = "bin\ghc-pkg"

cabal-testsuite/PackageTests/GhcPkgGuess/Symlink/bin/ghc.shim

@@ -0,0 +1,2 @@
+path = "FINDSH\sh.exe"
+args = "ghc"

cabal-testsuite/PackageTests/GhcPkgGuess/Symlink/setup.test.hs

@@ -1,10 +1,22 @@
 import Test.Cabal.Prelude
+import System.Directory
 
-main = setupAndCabalTest $ expectBrokenIfWindows 10179 $ do
-    withSymlink "bin/ghc" "ghc" $ do
+main = setupAndCabalTest $ do
+    when isWindows $ do
+        sh <- fmap takeDirectory <$> liftIO (findExecutable "sh")
+        case sh of
+            Nothing -> skip "no sh"
+            Just sh' -> do
+                let sh'' = concatMap (\c -> case c of
+                            '\\' -> "\\\\\\\\"
+                            x -> [x]) sh'
+                void $ shell "sed" [ "-i", "-e", "s/FINDSH/" <> sh'' <> "/g", "bin/ghc.shim", "bin/ghc-pkg.shim"]
+    (if isWindows
+        then withSymlink "bin/ghc.exe" "ghc.exe" . withSymlink "bin/ghc.shim" "ghc.shim" . withSymlink "bin/ghc" "ghc"
+        else withSymlink "bin/ghc" "ghc") $ do
         env <- getTestEnv
         let cwd = testCurrentDir env
         ghc_path <- programPathM ghcProgram
         r <- withEnv [("WITH_GHC", Just ghc_path)]
-           . fails $ setup' "configure" ["-w", cwd </> "ghc"]
+           . fails $ setup' "configure" ["-w", cwd </> if isWindows then "ghc.exe" else "ghc"]
         assertOutputContains "is version 9999999" r

cabal-testsuite/PackageTests/GhcPkgGuess/SymlinkGhcVersion/bin/ghc-7.10.shim

@@ -0,0 +1,2 @@
+path = "FINDSH\sh.exe"
+args = "ghc"

cabal-testsuite/PackageTests/GhcPkgGuess/SymlinkGhcVersion/bin/ghc-pkg-7.10.shim

@@ -0,0 +1,2 @@
+path = "FINDSH\sh.exe"
+args = "bin\ghc-pkg-7.10"

cabal-testsuite/PackageTests/GhcPkgGuess/SymlinkGhcVersion/setup.test.hs

@@ -1,10 +1,22 @@
 import Test.Cabal.Prelude
+import System.Directory
 
-main = setupAndCabalTest $ expectBrokenIfWindows 10179 $ do
-    withSymlink "bin/ghc-7.10" "ghc" $ do
+main = setupAndCabalTest $ do
+    when isWindows $ do
+        sh <- fmap takeDirectory <$> liftIO (findExecutable "sh")
+        case sh of
+            Nothing -> skip "no sh"
+            Just sh' -> do
+                let sh'' = concatMap (\c -> case c of
+                            '\\' -> "\\\\\\\\"
+                            x -> [x]) sh'
+                void $ shell "sed" [ "-i", "-e", "s/FINDSH/" <> sh'' <> "/g", "bin/ghc-7.10.shim", "bin/ghc-pkg-7.10.shim"]
+    (if isWindows
+        then withSymlink "bin/ghc-7.10.exe" "ghc.exe" . withSymlink "bin/ghc-7.10.shim" "ghc.shim" . withSymlink "bin/ghc-7.10" "ghc"
+        else withSymlink "bin/ghc-7.10" "ghc") $ do
         env <- getTestEnv
         let cwd = testCurrentDir env
         ghc_path <- programPathM ghcProgram
         r <- withEnv [("WITH_GHC", Just ghc_path)]
-           . fails $ setup' "configure" ["-w", cwd </> "ghc"]
+           . fails $ setup' "configure" ["-w", cwd </> if isWindows then "ghc.exe" else "ghc"]
         assertOutputContains "is version 9999999" r

cabal-testsuite/PackageTests/GhcPkgGuess/SymlinkVersion/bin/ghc-7.10.shim

@@ -0,0 +1,2 @@
+path = "FINDSH\sh.exe"
+args = "ghc"

cabal-testsuite/PackageTests/GhcPkgGuess/SymlinkVersion/bin/ghc-pkg-ghc-7.10.shim

@@ -0,0 +1,2 @@
+path = "FINDSH\sh.exe"
+args = "bin\ghc-pkg-ghc-7.10"

cabal-testsuite/PackageTests/GhcPkgGuess/SymlinkVersion/setup.test.hs

@@ -1,10 +1,22 @@
 import Test.Cabal.Prelude
+import System.Directory
 
-main = setupAndCabalTest $ expectBrokenIfWindows 10179 $ do
-    withSymlink "bin/ghc-7.10" "ghc" $ do
+main = setupAndCabalTest $ do
+    when isWindows $ do
+        sh <- fmap takeDirectory <$> liftIO (findExecutable "sh")
+        case sh of
+            Nothing -> skip "no sh"
+            Just sh' -> do
+                let sh'' = concatMap (\c -> case c of
+                            '\\' -> "\\\\\\\\"
+                            x -> [x]) sh'
+                void $ shell "sed" [ "-i", "-e", "s/FINDSH/" <> sh'' <> "/g", "bin/ghc-7.10.shim", "bin/ghc-pkg-ghc-7.10.shim"]
+    (if isWindows
+        then withSymlink "bin/ghc-7.10.exe" "ghc.exe" . withSymlink "bin/ghc-7.10.shim" "ghc.shim" . withSymlink "bin/ghc-7.10" "ghc"
+        else withSymlink "bin/ghc-7.10" "ghc") $ do
         env <- getTestEnv
         let cwd = testCurrentDir env
         ghc_path <- programPathM ghcProgram
         r <- withEnv [("WITH_GHC", Just ghc_path)]
-           . fails $ setup' "configure" ["-w", cwd </> "ghc"]
+           . fails $ setup' "configure" ["-w", cwd </> if isWindows then "ghc.exe" else "ghc"]
         assertOutputContains "is version 9999999" r