diff --git a/tests/Argu.Tests/Tests.fs b/tests/Argu.Tests/Tests.fs index 00d222cd..5f35efaf 100644 --- a/tests/Argu.Tests/Tests.fs +++ b/tests/Argu.Tests/Tests.fs @@ -393,8 +393,7 @@ module ``Argu Tests`` = [] let ``Use no prefix as default`` () = let parser = ArgumentParser.Create("usage string") - let args = - [| "argument" ; "bar" ; "levels-deep" ; "3" |] + let args = [| "argument" ; "bar" ; "levels-deep" ; "3" |] let expected_outcome = set [ Argument "bar" ; Levels_Deep 3 ] let results = parser.ParseCommandLine args @@ -466,7 +465,7 @@ module ``Argu Tests`` = [] let ``Fail on malformed case constructors`` () = - let result = parser.ToParseResult([]) + let result = parser.ToParseResult [] raises <@ result.Contains <@ fun (y : string) -> Log_Level 42 @> @> raises <@ result.Contains <@ fun (y, x) -> Data(x,y) @> @> raises <@ result.Contains <@ fun x -> () ; Log_Level x @> @>