module PackageTests.TestOptions.Check where import PackageTests.PackageTester import System.FilePath import Test.HUnit suite :: FilePath -> Test suite ghcPath = TestCase $ do let spec = PackageSpec ("PackageTests" </> "TestOptions") ["--enable-tests"] _ <- cabal_build spec ghcPath result <- cabal_test spec ["--test-options=1 2 3"] ghcPath let message = "\"cabal test\" did not pass the correct options to the " ++ "test executable with \"--test-options\"" assertEqual message True $ successful result result' <- cabal_test spec [ "--test-option=1" , "--test-option=2" , "--test-option=3" ] ghcPath let message' = "\"cabal test\" did not pass the correct options to the " ++ "test executable with \"--test-option\"" assertEqual message' True $ successful result'