language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-10-03 08:34:33 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Name tests

Browse source
This commit is contained in:
Ayaz Hafiz 2022-09-07 17:00:33 -05:00
parent 42bded0aae
commit e738d5e04e
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
1 changed files with 18 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

26
examples/interactive/cli-platform/Arg.roc
View file

@ -177,42 +177,52 @@ argStr = \config ->
apply = \arg1, arg2 -> andMap arg2 arg1
# bool undashed long argument is missing
expect
parser = argBool { long: "foo", help: NotProvided, short: NotProvided }
parse parser ["foo"] == Err MissingRequiredArg
# bool dashed long argument without value is missing
expect
parser = argBool { long: "foo", help: NotProvided, short: NotProvided }
parse parser ["--foo"] == Err MissingRequiredArg
# bool dashed long argument with value is determined true
expect
parser = argBool { long: "foo", help: NotProvided, short: NotProvided }
parse parser ["--foo", "true"] == Ok True
# bool dashed long argument with value is determined false
expect
parser = argBool { long: "foo", help: NotProvided, short: NotProvided }
parse parser ["--foo", "false"] == Ok False
# bool dashed long argument with value is determined wrong type
expect
parser = argBool { long: "foo", help: NotProvided, short: NotProvided }
parse parser ["--foo", "not-a-bool"] == Err WrongType
# string dashed long argument without value is missing
expect
parser = argStr { long: "foo", help: NotProvided, short: NotProvided }
parse parser ["--foo"] == Err MissingRequiredArg
# string dashed long argument with value is determined
expect
parser = argStr { long: "foo", help: NotProvided, short: NotProvided }
parse parser ["--foo", "itsme"] == Ok "itsme"
# two string parsers complete cases
expect
parser =
succeed (\foo -> \bar -> "foo: \(foo) bar: \(bar)")
|> apply (argStr { long: "foo", short: NotProvided, help: NotProvided })
|> apply (argStr { long: "bar", short: NotProvided, help: NotProvided })
parse parser ["--foo", "true", "--bar", "baz"] == Ok "foo: true bar: baz"
cases = [
["--foo", "true", "--bar", "baz"],
["--bar", "baz", "--foo", "true"],
["--foo", "true", "--bar", "baz", "--other", "something"],
]
expect
parser =
succeed (\foo -> \bar -> "foo: \(foo) bar: \(bar)")
|> apply (argStr { long: "foo", short: NotProvided, help: NotProvided })
|> apply (argStr { long: "bar", short: NotProvided, help: NotProvided })
parse parser ["--foo", "true", "--bar", "baz", "--other", "something"] == Ok "foo: true bar: baz"
List.all cases \args -> parse parser args == Ok "foo: true bar: baz"