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] #[test]
fn applied_tag_function_mismatch() { fn applied_tag_function_mismatch() {
infer_eq_without_problem( infer_eq(
indoc!( indoc!(
r#" r#"
\foo -> { x: [ foo, Foo ], y: [ foo, \x -> Foo x ] } x : List [ Foo Str ]
x = List.map [ 1, 2 ] Foo
x
"# "#
), ),
"", "<type mismatch>",
) )
} }