tests(solve_expr): try a mismatch

This commit is contained in:
rvcas 2021-03-22 11:25:51 -04:00
parent 91d98d2463
commit eb4a6109d6

View file

@ -653,13 +653,16 @@ mod solve_expr {
#[test]
fn applied_tag_function_mismatch() {
infer_eq_without_problem(
infer_eq(
indoc!(
r#"
\foo -> { x: [ foo, Foo ], y: [ foo, \x -> Foo x ] }
x : List [ Foo Str ]
x = List.map [ 1, 2 ] Foo
x
"#
),
"",
"<type mismatch>",
)
}