language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-24 12:32:29 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Update CLI examples and tests to use Program

Browse source
This commit is contained in:
Richard Feldman 2022-09-19 20:01:59 -04:00
parent 0e472200f0
commit aa6d29fbb1
No known key found for this signature in database
GPG key ID: F1F21AA5B1D9E43B
5 changed files with 69 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

53
crates/cli/tests/cli_run.rs
View file

@ -491,7 +491,7 @@ mod cli_run {
// expected_ending: "[0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2]\n",
// use_valgrind: true,
// },
args:"interactive" => Example {
cli_args:"interactive" => Example {
filename: "args.roc",
executable_filename: "args",
stdin: &[],
@ -507,7 +507,7 @@ mod cli_run {
expected_ending: "hi there!\nIt is known\n",
use_valgrind: true,
},
// tea:"tea" => Example {
// tui_tea:"tea" => Example {
// filename: "Main.roc",
// executable_filename: "tea-example",
// stdin: &[],
@ -515,7 +515,7 @@ mod cli_run {
// expected_ending: "",
// use_valgrind: true,
// },
cli:"interactive" => Example {
cli_form:"interactive" => Example {
filename: "form.roc",
executable_filename: "form",
stdin: &["Giovanni\n", "Giorgio\n"],
@ -967,23 +967,50 @@ mod cli_run {
&[],
indoc!(
r#"
── UNRECOGNIZED NAME ─────────────────────────── tests/known_bad/TypeError.roc ─
── TYPE MISMATCH ─ ...d/../../../../examples/interactive/cli-platform/main.roc ─
Nothing is named `d` in this scope.
Something is off with the type annotation of the main required symbol:
10│ _ <- await (line d)
^
2│ requires {} { main : InternalProgram }
^^^^^^^^^^^^^^^
Did you mean one of these?
This #UserApp.main value is a:
U8
Ok
I8
F64
Task.Task {} * [Write [Stdout]*]* ?
But the type annotation on main says it should be:
InternalProgram.InternalProgram ?
Tip: Type comparisons between an opaque type are only ever equal if
both types are the same opaque type. Did you mean to create an opaque
type by wrapping it? If I have an opaque type Age := U32 I can create
an instance of this opaque type by doing @Age 23.
── TYPE MISMATCH ─ ...d/../../../../examples/interactive/cli-platform/main.roc ─
This 1st argument to toEffect has an unexpected type:
9│ mainForHost = InternalProgram.toEffect main
^^^^
This #UserApp.main value is a:
Task.Task {} * [Write [Stdout]*]* ?
But toEffect needs its 1st argument to be:
InternalProgram.InternalProgram ?
Tip: Type comparisons between an opaque type are only ever equal if
both types are the same opaque type. Did you mean to create an opaque
type by wrapping it? If I have an opaque type Age := U32 I can create
an instance of this opaque type by doing @Age 23.
────────────────────────────────────────────────────────────────────────────────
1 error and 0 warnings found in <ignored for test> ms."#
2 errors and 1 warning found in <ignored for test> ms."#
),
);
}