mirror of
https://github.com/roc-lang/roc.git
synced 2025-09-27 13:59:08 +00:00
fix some very incorrect tests
This commit is contained in:
parent
e176385169
commit
1921b74ebb
1 changed files with 10 additions and 9 deletions
|
@ -1369,7 +1369,7 @@ mod solve_expr {
|
||||||
indoc!(
|
indoc!(
|
||||||
r#"
|
r#"
|
||||||
int : Num Integer
|
int : Num Integer
|
||||||
int = 5.5
|
int = 5
|
||||||
|
|
||||||
int
|
int
|
||||||
"#
|
"#
|
||||||
|
@ -1384,7 +1384,7 @@ mod solve_expr {
|
||||||
indoc!(
|
indoc!(
|
||||||
r#"
|
r#"
|
||||||
int : Num.Num Num.Integer
|
int : Num.Num Num.Integer
|
||||||
int = 5.5
|
int = 5
|
||||||
|
|
||||||
int
|
int
|
||||||
"#
|
"#
|
||||||
|
@ -2039,16 +2039,17 @@ mod solve_expr {
|
||||||
infer_eq(
|
infer_eq(
|
||||||
indoc!(
|
indoc!(
|
||||||
r#"
|
r#"
|
||||||
Peano : [ S Peano, Z ]
|
app Test provides [ main ] imports []
|
||||||
|
|
||||||
map : Peano -> Peano
|
Peano : [ S Peano, Z ]
|
||||||
map = \peano ->
|
|
||||||
when peano is
|
|
||||||
Z -> Z
|
|
||||||
S rest ->
|
|
||||||
map rest |> S
|
|
||||||
|
|
||||||
|
map : Peano -> Peano
|
||||||
|
map = \peano ->
|
||||||
|
when peano is
|
||||||
|
Z -> Z
|
||||||
|
S rest -> S (map rest)
|
||||||
|
|
||||||
|
main =
|
||||||
map
|
map
|
||||||
"#
|
"#
|
||||||
),
|
),
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue