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

View File

@ -3897,7 +3897,11 @@ fn foldl_type_mismatch() {
.apply(
Term::var("foldl")
.lambda("foldl")
.apply(Term::var("foldl").apply(Term::var("foldl")))
.apply(
Term::var("foldl")
.apply(Term::var("foldl"))
.apply(Term::var("self"))
.apply(Term::var("zero"))
.lambda("foldl")
.apply(
Term::var("self")
@ -3906,7 +3910,6 @@ fn foldl_type_mismatch() {
Term::var("foldl")
.apply(Term::var("foldl"))
.apply(Term::var("xs"))
.apply(Term::var("with"))
.apply(
Term::var("with")
.apply(Term::var("x"))
@ -3918,10 +3921,13 @@ fn foldl_type_mismatch() {
.apply(Term::head_list().apply(Term::var("self"))),
)
.lambda("zero")
.lambda("with")
.lambda("self")
.lambda("foldl"),
)
.lambda("zero")
.lambda("with")
.lambda("self"),
)
.apply(Term::var("outputs"))
.apply(
Term::equals_integer()
@ -4230,7 +4236,10 @@ fn expect_head_cast_data_with_tail() {
.apply(
Term::var("expect_on_list")
.lambda("expect_on_list")
.apply(Term::var("expect_on_list").apply(Term::var("expect_on_list")))
.apply(
Term::var("expect_on_list")
.apply(Term::var("expect_on_list"))
.apply(Term::var("list_to_check"))
.lambda("expect_on_list")
.apply(
Term::var("list_to_check")
@ -4238,17 +4247,20 @@ fn expect_head_cast_data_with_tail() {
Term::unit(),
Term::var("expect_on_list")
.apply(Term::var("expect_on_list"))
.apply(Term::tail_list().apply(Term::var("list_to_check")))
.apply(Term::var("check_with"))
.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("check_with")
.lambda("list_to_check")
.lambda("expect_on_list"),
)
.lambda("check_with")
.lambda("list_to_check"),
)
.apply(Term::var("tail_2"))
.apply(
Term::un_i_data()