mlspec-bench: 12b3af04a8101744f4ef72f4852e877b48644945

     1: module Main where
     2: 
     3: import MLSpec.Bench
     4: import System.Process
     5: import Test.Tasty (defaultMain, testGroup)
     6: import Test.Tasty.QuickCheck
     7: 
     8: main = defaultMain $ testGroup "All tests" [
     9:       testProperty "Handle no args" readArgsNothing
    10:     , testProperty "Handle args"    readArgsJust
    11:   ]
    12: 
    13: readArgsNothing = readArgs Nothing === []
    14: 
    15: readArgsJust xs = readArgs (Just (show xs)) === xs