waalge
/
aiken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix: update last 2 tests for new recursion optimization

This commit is contained in:
microproofs 2023-08-07 19:06:00 -04:00
parent f464eb3702
commit 367dabafb5
1 changed files with 46 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
crates/aiken-project/src/tests/gen_uplc.rs
View File

@ -3896,31 +3896,37 @@ fn foldl_type_mismatch() {
.lambda("cry") .lambda("cry")
.apply( .apply(
Term::var("foldl") Term::var("foldl")
.lambda("foldl")
.apply(Term::var("foldl").apply(Term::var("foldl")))
.lambda("foldl") .lambda("foldl")
.apply( .apply(
Term::var("self") Term::var("foldl")
.delayed_choose_list( .apply(Term::var("foldl"))
Term::var("zero"), .apply(Term::var("self"))
Term::var("foldl") .apply(Term::var("zero"))
.apply(Term::var("foldl")) .lambda("foldl")
.apply(Term::var("xs")) .apply(
.apply(Term::var("with")) Term::var("self")
.apply( .delayed_choose_list(
Term::var("with") Term::var("zero"),
.apply(Term::var("x")) Term::var("foldl")
.apply(Term::var("zero")), .apply(Term::var("foldl"))
.apply(Term::var("xs"))
.apply(
Term::var("with")
.apply(Term::var("x"))
.apply(Term::var("zero")),
)
.lambda("xs")
.apply(Term::tail_list().apply(Term::var("self")))
.lambda("x")
.apply(Term::head_list().apply(Term::var("self"))),
) )
.lambda("xs") .lambda("zero")
.apply(Term::tail_list().apply(Term::var("self"))) .lambda("self")
.lambda("x") .lambda("foldl"),
.apply(Term::head_list().apply(Term::var("self"))),
) )
.lambda("zero") .lambda("zero")
.lambda("with") .lambda("with")
.lambda("self") .lambda("self"),
.lambda("foldl"),
) )
.apply(Term::var("outputs")) .apply(Term::var("outputs"))
.apply( .apply(
@ -4229,25 +4235,31 @@ fn expect_head_cast_data_with_tail() {
.lambda("_") .lambda("_")
.apply( .apply(
Term::var("expect_on_list") Term::var("expect_on_list")
.lambda("expect_on_list")
.apply(Term::var("expect_on_list").apply(Term::var("expect_on_list")))
.lambda("expect_on_list") .lambda("expect_on_list")
.apply( .apply(
Term::var("list_to_check") Term::var("expect_on_list")
.delayed_choose_list( .apply(Term::var("expect_on_list"))
Term::unit(), .apply(Term::var("list_to_check"))
Term::var("expect_on_list") .lambda("expect_on_list")
.apply(Term::var("expect_on_list")) .apply(
.apply(Term::tail_list().apply(Term::var("list_to_check"))) Term::var("list_to_check")
.apply(Term::var("check_with")) .delayed_choose_list(
.lambda("_") Term::unit(),
.apply(Term::var("check_with").apply( Term::var("expect_on_list")
Term::head_list().apply(Term::var("list_to_check")), .apply(Term::var("expect_on_list"))
)), .apply(
Term::tail_list().apply(Term::var("list_to_check")),
)
.lambda("_")
.apply(Term::var("check_with").apply(
Term::head_list().apply(Term::var("list_to_check")),
)),
)
.lambda("list_to_check")
.lambda("expect_on_list"),
) )
.lambda("check_with") .lambda("check_with")
.lambda("list_to_check") .lambda("list_to_check"),
.lambda("expect_on_list"),
) )
.apply(Term::var("tail_2")) .apply(Term::var("tail_2"))
.apply( .apply(