language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-27 13:59:08 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

feat(unify): more tests and some new ones fail

Browse source
This commit is contained in:
rvcas 2021-03-21 12:22:42 -04:00
parent 36ec1a0f56
commit eff822f48f
1 changed files with 49 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

58
compiler/solve/tests/solve_expr.rs
View file

@ -566,13 +566,37 @@ mod solve_expr {
);
}
#[test]
fn applied_tag() {
infer_eq_without_problem(
indoc!(
r#"
List.map [ "a", "b" ] \elem -> Foo elem
"#
),
"List [ Foo Str ]*",
)
}
#[test]
fn applied_tag_function() {
infer_eq_without_problem(
indoc!(
r#"
foo : [ Foo Str ]*
foo = Foo
foo "hi"
"#
),
"[ Foo Str ]*",
)
}
#[test]
fn applied_tag_function_list_map() {
infer_eq_without_problem(
indoc!(
r#"
List.map [ "a", "b" ] Foo
"#
),
@ -581,30 +605,44 @@ mod solve_expr {
}
#[test]
fn applied_tag_function_other() {
fn applied_tag_function_list() {
infer_eq_without_problem(
indoc!(
r#"
foo : [ Foo Str ]*
Foo "hi"
[ Foo, \x -> Bar x ]
"#
),
"[ Foo Str ]*",
"List (a -> [ Bar a, Foo a ]*)",
)
}
#[test]
fn applied_tag() {
fn applied_tag_function_record() {
infer_eq_without_problem(
indoc!(
r#"
foo : [ Foo Str ]*
foo = Foo
List.map [ "a", "b" ] \elem -> Foo elem
{
x: [ foo, Foo ],
y: [ foo, \x -> Foo x ],
z: [ foo, \x,y -> Foo x y ]
}
"#
),
"List [ Foo Str ]*",
"{ x: List (a, b -> [ Foo a b ]*), y: List (a, b -> [ Foo a b ]*), z: List (a, b -> [ Foo a b ]*) }",
)
}
#[test]
fn applied_tag_function_mismatch() {
infer_eq_without_problem(
indoc!(
r#"
\foo -> { x: [ foo, Foo ], y: [ foo, \x -> Foo x ] }
"#
),
"",
)
}