roc-lang/roc
1
1
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2024-09-22 00:09:33 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix test

Browse Source
This commit is contained in:
Richard Feldman 2022-11-24 04:31:36 -05:00
parent 8bbc3ad925
commit d00f421946
No known key found for this signature in database
GPG Key ID: F1F21AA5B1D9E43B
2 changed files with 28 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
crates/cli/tests/cli_run.rs
View File

@ -1056,50 +1056,29 @@ mod cli_run {
&[], &[],
indoc!( indoc!(
r#" r#"
── TYPE MISMATCH ─ ...known_bad/../../../../examples/cli/cli-platform/main.roc ─ ── TYPE MISMATCH ─────────────────────────────── tests/known_bad/TypeError.roc ─
Something is off with the type annotation of the main required symbol: This 2nd argument to attempt has an unexpected type:
2│ requires {} { main : InternalProgram } 15│> Task.attempt task /result ->
^^^^^^^^^^^^^^^ 16│> when result is
17│> Ok {} -> Stdout.line "Done!"
18│> # Type mismatch because the File.readUtf8 error case is not handled
19│> Err {} -> Stdout.line "Problem!"
This #UserApp.main value is a: The argument is an anonymous function of type:
Task.Task {} * [Write [Stdout]] [Err {}a, Ok {}] -> Task {} *
But the type annotation on main says it should be: But attempt needs its 2nd argument to be:
InternalProgram.InternalProgram Result {} [FileReadErr Path.Path InternalFile.ReadErr,
FileReadUtf8Err Path.Path [BadUtf8 Utf8ByteProblem Nat]*]* ->
Tip: Type comparisons between an opaque type are only ever equal if Task {} *
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 ─ ...known_bad/../../../../examples/cli/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.
──────────────────────────────────────────────────────────────────────────────── ────────────────────────────────────────────────────────────────────────────────
2 errors and 1 warning found in <ignored for test> ms."# 1 error and 0 warnings found in <ignored for test> ms."#
), ),
); );
} }

22
crates/cli/tests/known_bad/TypeError.roc
View File

@ -1,13 +1,19 @@
app "type-error" app "type-error"
packages { pf: "../../../../examples/cli/cli-platform/main.roc" } packages { pf: "../../../../examples/cli/cli-platform/main.roc" }
imports [pf.Stdout.{ line }, pf.Task.{ await }] imports [pf.Stdout.{ line }, pf.Task.{ await }, pf.Path, pf.File]
provides [main] to pf provides [main] to pf
main = main =
_ <- await (line "a") task =
_ <- await (line "b") _ <- await (line "a")
_ <- await (line "c") _ <- await (line "b")
_ <- await (line "d") _ <- await (line "c")
_ <- await (File.readUtf8 (Path.fromStr "blah.txt")) _ <- await (line "d")
line "e" _ <- await (File.readUtf8 (Path.fromStr "blah.txt"))
# Type mismatch because the File.readUtf8 error case is not handled line "e"
Task.attempt task \result ->
when result is
Ok {} -> Stdout.line "Done!"
# Type mismatch because the File.readUtf8 error case is not handled
Err {} -> Stdout.line "Problem!"