fix some very incorrect tests

This commit is contained in:
Folkert 2020-10-28 01:12:57 +01:00
parent e176385169
commit 1921b74ebb

View file

@ -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
"# "#
), ),