Skip to content
Snippets Groups Projects
Commit 3579fb4d authored by Daniel Gröber (dxld)'s avatar Daniel Gröber (dxld) Committed by Mergify
Browse files

Improve --test/benchmark-options test accuracy

parent 12651e4e
No related branches found
No related tags found
No related merge requests found
......@@ -6,7 +6,6 @@ import System.Exit (exitFailure, exitSuccess)
main :: IO ()
main = do
args <- getArgs
let allArgs = unwords args
if allArgs == "1 2 3 4 5 6"
if args == ["1", "2 3", "4", "5 6"]
then exitSuccess
else putStrLn ("Got: " ++ allArgs) >> exitFailure
else putStrLn ("Got: " ++ show args) >> exitFailure
......@@ -6,7 +6,6 @@ import System.Exit (exitFailure, exitSuccess)
main :: IO ()
main = do
args <- getArgs
let allArgs = unwords args
if allArgs == "1 2 3 4 5 6"
if args == ["1", "2 3", "4", "5 6"]
then exitSuccess
else putStrLn ("Got: " ++ allArgs) >> exitFailure
else putStrLn ("Got: " ++ show args) >> exitFailure
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment