shelltest.hs

import           Control.Applicative                ((<$>))
import           Control.Concurrent                 (forkIO)
import           Control.Concurrent.MVar            (newEmptyMVar, putMVar,
                                                     takeMVar)
import           Control.Monad                      (liftM, unless, when)
import           Data.Algorithm.Diff
import           Data.List
import           Data.Maybe                         (catMaybes, fromJust,
                                                     isJust, isNothing)
import           Debug.Trace
import           Distribution.PackageDescription.TH (package, packageVariable,
                                                     pkgVersion)
import           System.Console.CmdArgs
import           System.Directory                   (doesDirectoryExist)
import           System.Exit
import           System.FilePath                    (takeDirectory)
import           System.FilePath.Find               (always, findWithHandler,
                                                     (==?))
import qualified System.FilePath.Find               as Find (extension)
import           System.IO                          (Handle, hGetContents,
                                                     hPutStr)
import           System.Process                     (CreateProcess (..),
                                                     ProcessHandle,
                                                     StdStream (CreatePipe),
                                                     createProcess, shell,
                                                     waitForProcess)
import           Test.Framework                     (defaultMainWithArgs)
import           Test.Framework.Providers.HUnit     (hUnitTestToTests)
import           Test.HUnit                         hiding (Test)
import qualified Test.HUnit                         (Test)
import           Text.ParserCombinators.Parsec
import           Text.Printf                        (printf)
import           Text.Regex.TDFA                    ((=~))

import           PlatformString                     (fromPlatformString,
                                                     toPlatformString)