1 2module System.Console.CmdArgs.Test.All(test,demo,Demo,runDemo) where 3 4import System.Console.CmdArgs.Explicit 5import System.Console.CmdArgs.Test.Util 6import qualified System.Console.CmdArgs.Test.Explicit as Explicit 7import qualified System.Console.CmdArgs.Test.Implicit as Implicit 8import qualified System.Console.CmdArgs.Test.GetOpt as GetOpt 9import qualified System.Console.CmdArgs.Test.SplitJoin as SplitJoin 10 11test :: IO () 12test = do 13 Explicit.test 14 GetOpt.test 15 Implicit.test 16 SplitJoin.test 17 putStrLn "\nTest completed" 18 19demo :: [Mode Demo] 20demo = GetOpt.demo ++ Explicit.demo ++ Implicit.demo 21