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

chore: fill in machine todos and cost model for case and constr

Browse Source 
This allows for several more tests to pass
**Had to remove case-7 since it was incorrectly passing before**
This commit is contained in:
microproofs
2023-11-17 19:52:03 -05:00
parent 0382e5ce12
commit 1567e42875
24 changed files with 60 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
crates/uplc/test_data/conformance/evaluation/term/case/case-1/case-1.uplc Normal file
View File

@@ -0,0 +1,4 @@
-- select first branch
(program 1.1.0
(case (constr 0 (con integer 0)) (lam x (con integer 1)) (lam x (con integer 2)))
)

1
crates/uplc/test_data/conformance/evaluation/term/case/case-1/case-1.uplc.expected Normal file
View File

@@ -0,0 +1 @@
(program 1.1.0 (con integer 1))

4
crates/uplc/test_data/conformance/evaluation/term/case/case-2/case-2.uplc Normal file
View File

@@ -0,0 +1,4 @@
-- select second branch
(program 1.1.0
(case (constr 1 (con integer 0)) (lam x (con integer 1)) (lam x (con integer 2)))
)

1
crates/uplc/test_data/conformance/evaluation/term/case/case-2/case-2.uplc.expected Normal file
View File

@@ -0,0 +1 @@
(program 1.1.0 (con integer 2))

4
crates/uplc/test_data/conformance/evaluation/term/case/case-3/case-3.uplc Normal file
View File

@@ -0,0 +1,4 @@
-- select first branch and do computation with the args
(program 1.1.0
(case (constr 0 (con integer 3) (con integer 2)) (lam x (lam y [(builtin addInteger) x y])) (lam x (lam y [(builtin subtractInteger) x y])))
)

1
crates/uplc/test_data/conformance/evaluation/term/case/case-3/case-3.uplc.expected Normal file
View File

@@ -0,0 +1 @@
(program 1.1.0 (con integer 5))

4
crates/uplc/test_data/conformance/evaluation/term/case/case-4/case-4.uplc Normal file
View File

@@ -0,0 +1,4 @@
-- select second branch and do computation with the args
(program 1.1.0
(case (constr 1 (con integer 3) (con integer 2)) (lam x (lam y [(builtin addInteger) x y])) (lam x (lam y [(builtin subtractInteger) x y])))
)

1
crates/uplc/test_data/conformance/evaluation/term/case/case-4/case-4.uplc.expected Normal file
View File

@@ -0,0 +1 @@
(program 1.1.0 (con integer 1))

4
crates/uplc/test_data/conformance/evaluation/term/case/case-5/case-5.uplc Normal file
View File

@@ -0,0 +1,4 @@
-- case of non-constr
(program 1.1.0
(case (con integer 1) (lam x x) (lam x x))
)

1
crates/uplc/test_data/conformance/evaluation/term/case/case-5/case-5.uplc.expected Normal file
View File

@@ -0,0 +1 @@
evaluation failure

4
crates/uplc/test_data/conformance/evaluation/term/case/case-7/case-7.uplc
View File

@@ -1,4 +0,0 @@
-- case can't be used before 1.1.0
(program 1.0.0
(case (con integer 1))
)

1
crates/uplc/test_data/conformance/evaluation/term/case/case-7/case-7.uplc.expected
View File

@@ -1 +0,0 @@
parse error

4
crates/uplc/test_data/conformance/evaluation/term/case/case-8/case-8.uplc Normal file
View File

@@ -0,0 +1,4 @@
-- nullary case
(program 1.1.0
(case (constr 0) (con integer 1) (con integer 2))
)

1
crates/uplc/test_data/conformance/evaluation/term/case/case-8/case-8.uplc.expected Normal file
View File

@@ -0,0 +1 @@
(program 1.1.0 (con integer 1))

4
crates/uplc/test_data/conformance/evaluation/term/case/case-9/case-9.uplc Normal file
View File

@@ -0,0 +1,4 @@
-- empty case, aka -XEmptyCase
(program 1.1.0
(case (constr 0))
)

1
crates/uplc/test_data/conformance/evaluation/term/case/case-9/case-9.uplc.expected Normal file
View File

@@ -0,0 +1 @@
evaluation failure

4
crates/uplc/test_data/conformance/evaluation/term/constr/constr-1/constr-1.uplc Normal file
View File

@@ -0,0 +1,4 @@
-- empty constr
(program 1.1.0
(constr 0 )
)

1
crates/uplc/test_data/conformance/evaluation/term/constr/constr-1/constr-1.uplc.expected Normal file
View File

@@ -0,0 +1 @@
(program 1.1.0 (constr 0))

4
crates/uplc/test_data/conformance/evaluation/term/constr/constr-2/constr-2.uplc Normal file
View File

@@ -0,0 +1,4 @@
-- constr with an argument
(program 1.1.0
(constr 0 (con integer 1))
)

1
crates/uplc/test_data/conformance/evaluation/term/constr/constr-2/constr-2.uplc.expected Normal file
View File

@@ -0,0 +1 @@
(program 1.1.0 (constr 0 (con integer 1)))