Check in solve test

Closes #4077
This commit is contained in:
Ayaz Hafiz 2022-11-15 14:25:17 -06:00
parent ce5ca4a93c
commit 972e531431
No known key found for this signature in database
GPG Key ID: 0E2A37416A25EF58

View File

@ -8198,6 +8198,31 @@ mod solve_expr {
);
}
#[test]
fn inferred_fixed_fixpoints() {
infer_queries!(
indoc!(
r#"
app "test" provides [job] to "./platform"
F : [Bar, FromG G]
G : [G {lst : List F}]
job : { lst : List F } -> G
job = \config -> G config
#^^^{-1}
# ^^^^^^ ^^^^^^^^
"#
),
@r###"
job : { lst : List [Bar, FromG a] } -[[job(0)]]-> [G { lst : List [Bar, FromG a] }] as a
config : { lst : List [Bar, FromG ([G { lst : List [Bar, FromG a] }] as a)] }
G config : [G { lst : List [Bar, FromG a] }] as a
"###
print_only_under_alias: true
);
}
#[test]
fn fix_recursion_under_alias_issue_4368() {
infer_eq_without_problem(
@ -8218,6 +8243,6 @@ mod solve_expr {
"#
),
"{} -> Task",
)
);
}
}