cabal-testsuite/PackageTests/TestOptions/test-TestOptions.hs

   1 module Main where
   2
   3 import System.Environment ( getArgs )
   4 import System.Exit ( exitFailure, exitSuccess )
   5
   6 main :: IO ()
   7 main = do
   8     args <- getArgs
   9     if args == ["1", "2", "3"]
  10         then exitSuccess
  11         else putStrLn ("Got: " ++ show args) >> exitFailure