Add gen test for recursion var resolved upon specialization

This commit is contained in:
Ayaz Hafiz 2023-03-27 09:34:34 -05:00
parent b8a0ff8e7c
commit 0f73c25c0c
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58

View file

@ -4335,3 +4335,26 @@ fn when_guard_appears_multiple_times_in_compiled_decision_tree_issue_5176() {
u8
)
}
#[test]
#[cfg(any(feature = "gen-llvm", feature = "gen-wasm"))]
fn recursive_lambda_set_resolved_only_upon_specialization() {
assert_evals_to!(
indoc!(
r#"
app "test" provides [main] to "./platform"
factCPS = \n, cont ->
if n == 0 then
cont 1
else
factCPS (n - 1) \value -> cont (n * value)
main =
factCPS 5u64 \x -> x
"#
),
120,
u64
);
}