Add test cases that reproduce #7241.

[cabal.git] / cabal-testsuite / PackageTests / TestOptions / test-TestOptions.hs

module Main where

import System.Environment ( getArgs )
import System.Exit ( exitFailure, exitSuccess )

main :: IO ()
main = do
    args <- getArgs
    if args == ["1", "2", "3"]
        then exitSuccess
        else putStrLn ("Got: " ++ show args) >> exitFailure