From 26c9e5b57f3d33a77d347630702b8ad5dc3f5e8a Mon Sep 17 00:00:00 2001 From: Adam Sampson Date: Thu, 13 Mar 2008 10:55:49 +0000 Subject: [PATCH] Tidy up "tocktest --help" to match "tock --help". --- TestMain.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/TestMain.hs b/TestMain.hs index ebe14f9..37172f5 100644 --- a/TestMain.hs +++ b/TestMain.hs @@ -121,11 +121,11 @@ main = do (opts, nonOpts, errs) <- getArgs >>* getOpt RequireOrder options where err msg = ioError (userError (msg ++ usageInfo header options)) header = "Usage: tocktest [OPTION..]" - options = [Option [] ["qc","quickcheck"] - (ReqArg matchLevel "LEVEL (off, low, medium, high, extensive)") "QuickCheck level" - ,Option [] ["plain"] (NoArg (OutputType True)) "Show the test output as plain text" - ,Option ['l'] ["list-tests"] (NoArg (ListTests)) "Show the top-level test names" - ,Option ['f'] ["filter"] (ReqArg RunJust "PARTOFTESTNAME (See output --list-tests for possible test)") "Run just the tests that have this in their name" + options = [ Option [] ["qc", "quickcheck"] + (ReqArg matchLevel "LEVEL") "QuickCheck level (options: off, low, medium, high, extensive)" + , Option [] ["plain"] (NoArg (OutputType True)) "Show the test output as plain text" + , Option ['l'] ["list-tests"] (NoArg (ListTests)) "Show the top-level test names" + , Option ['f'] ["filter"] (ReqArg RunJust "TESTNAME") "Run just the tests that have this in their name (use -l to list)" ] findLevel :: [TestOption] -> Either String (Maybe QuickCheckLevel)