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

Add PlutusV3 conformance tests and also control budgets

Browse Source 
There were some odd discrepancy for `integerToByteString` on the mem
  side. Either 1 or about 1000 mem units off; which I couldn't quite
  figure out. Yet, it proves useful to validate builtin at large and
  ensure we have a valid cost model for v3.
This commit is contained in:
KtorZ
2024-08-14 02:42:04 +02:00
parent f879f6d183
commit 2cb87f4f8f
2893 changed files with 6385 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
crates/uplc/test_data/conformance/v2/example/ApplyAdd1/ApplyAdd1.uplc Normal file
View File

@@ -0,0 +1,94 @@
(program
1.0.0
[
[
(force (force (delay (delay (lam f (lam x [ f x ]))))))
[
(builtin addInteger)
[
(lam
x0
[
[
(builtin multiplyInteger)
[ [ (builtin multiplyInteger) x0 ] x0 ]
]
[
[
(builtin subtractInteger)
[
[ (builtin subtractInteger) (con integer 0) ]
(con integer 1)
]
]
[
[ (builtin subtractInteger) (con integer 3) ] (con integer 0)
]
]
]
)
[
(lam
x1
[
[
(builtin subtractInteger)
[
[ (builtin multiplyInteger) (con integer 0) ]
(con integer 2)
]
]
[ [ (builtin addInteger) (con integer 0) ] (con integer 1) ]
]
)
[
(lam
x2
[
[ (builtin subtractInteger) (con integer 2) ] (con integer 2)
]
)
[ (builtin sha3_256) (con bytestring #76) ]
]
]
]
]
]
[
(lam
x0
[
[
(builtin addInteger)
[
[
(builtin addInteger)
[
[ (builtin multiplyInteger) (con integer 2) ] (con integer 1)
]
]
[ [ (builtin addInteger) (con integer 2) ] (con integer 3) ]
]
]
[
[
(builtin subtractInteger)
[ [ (builtin subtractInteger) (con integer 1) ] (con integer 2) ]
]
[ [ (builtin subtractInteger) (con integer 2) ] (con integer 1) ]
]
]
)
[
[ (builtin lessThanInteger) (con integer 3) ]
[
[
(builtin multiplyInteger)
[ [ (builtin addInteger) (con integer 2) ] (con integer 1) ]
]
[ [ (builtin subtractInteger) (con integer 2) ] (con integer 0) ]
]
]
]
]
)

2
crates/uplc/test_data/conformance/v2/example/ApplyAdd1/ApplyAdd1.uplc.budget.expected Normal file
View File

@@ -0,0 +1,2 @@
({cpu: 8288591
| mem: 11045})

1
crates/uplc/test_data/conformance/v2/example/ApplyAdd1/ApplyAdd1.uplc.expected Normal file
View File

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

106
crates/uplc/test_data/conformance/v2/example/ApplyAdd2/ApplyAdd2.uplc Normal file
View File

@@ -0,0 +1,106 @@
(program
1.0.0
[
[
[
(force (force (delay (delay (lam f (lam x [ f x ]))))))
(builtin addInteger)
]
[
(lam
x0
[
[
(builtin multiplyInteger)
[
[
(builtin subtractInteger)
[
[ (builtin subtractInteger) (con integer 3) ]
(con integer 2)
]
]
[ [ (builtin addInteger) (con integer 2) ] (con integer 0) ]
]
]
[
[
(builtin subtractInteger)
[
[ (builtin multiplyInteger) (con integer 3) ] (con integer 0)
]
]
[ [ (builtin multiplyInteger) (con integer 1) ] (con integer 1) ]
]
]
)
[
[
(builtin lessThanEqualsInteger)
[
[
(builtin subtractInteger)
[
[ (builtin multiplyInteger) (con integer 3) ] (con integer 3)
]
]
[ [ (builtin subtractInteger) (con integer 2) ] (con integer 3) ]
]
]
[
[
(builtin addInteger)
[ [ (builtin addInteger) (con integer 2) ] (con integer 3) ]
]
[ [ (builtin subtractInteger) (con integer 3) ] (con integer 3) ]
]
]
]
]
[
(lam
x0
[
(lam
x2
[
[
(builtin addInteger)
[
[ (builtin subtractInteger) (con integer 0) ] (con integer 3)
]
]
[ [ (builtin subtractInteger) (con integer 2) ] (con integer 1) ]
]
)
[
[
(builtin subtractInteger)
[ [ (builtin addInteger) (con integer 1) ] (con integer 1) ]
]
[ [ (builtin subtractInteger) (con integer 2) ] (con integer 0) ]
]
]
)
[
(lam
x1
[
[
(builtin lessThanInteger)
[ [ (builtin multiplyInteger) (con integer 0) ] (con integer 3) ]
]
[ [ (builtin addInteger) (con integer 0) ] (con integer 1) ]
]
)
[
[
(builtin equalsInteger)
[ [ (builtin multiplyInteger) (con integer 3) ] (con integer 2) ]
]
[ [ (builtin subtractInteger) (con integer 2) ] (con integer 0) ]
]
]
]
]
)

2
crates/uplc/test_data/conformance/v2/example/ApplyAdd2/ApplyAdd2.uplc.budget.expected Normal file
View File

@@ -0,0 +1,2 @@
({cpu: 7910799
| mem: 13251})

1
crates/uplc/test_data/conformance/v2/example/ApplyAdd2/ApplyAdd2.uplc.expected Normal file
View File

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

50
crates/uplc/test_data/conformance/v2/example/DivideByZero/DivideByZero.uplc Normal file
View File

@@ -0,0 +1,50 @@
(program
1.0.0
[
[
(builtin remainderInteger)
[
(lam
x0
[
[
(builtin addInteger)
[
(lam
x1
[ [ (builtin addInteger) (con integer 3) ] (con integer 3) ]
)
[
[ (builtin lessThanInteger) (con integer 1) ] (con integer 0)
]
]
]
[
(lam
x2
[
[ (builtin subtractInteger) (con integer 1) ] (con integer 3)
]
)
[
[ (builtin equalsByteString) (con bytestring #7063) ]
(con bytestring #716466)
]
]
]
)
[
(builtin sha2_256)
[
[
(builtin appendByteString)
[ (builtin sha2_256) (con bytestring #67696d) ]
]
[ (builtin sha2_256) (con bytestring #767174) ]
]
]
]
]
(con integer 0)
]
)

1
crates/uplc/test_data/conformance/v2/example/DivideByZero/DivideByZero.uplc.budget.expected Normal file
View File

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

1
crates/uplc/test_data/conformance/v2/example/DivideByZero/DivideByZero.uplc.expected Normal file
View File

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

44
crates/uplc/test_data/conformance/v2/example/DivideByZeroDrop/DivideByZeroDrop.uplc Normal file
View File

@@ -0,0 +1,44 @@
(program
1.0.0
[
[ (force (force (delay (delay (lam x (lam y x)))))) (con integer 0) ]
[
[
(builtin divideInteger)
[
(lam
x0
[
(lam x2 x2)
[
[
(builtin multiplyInteger)
[
[ (builtin multiplyInteger) (con integer 2) ]
(con integer 0)
]
]
[
[ (builtin subtractInteger) (con integer 1) ] (con integer 1)
]
]
]
)
[
(lam x1 (con integer 1))
[
[
(builtin subtractInteger)
[
[ (builtin multiplyInteger) (con integer 2) ] (con integer 3)
]
]
[ [ (builtin multiplyInteger) (con integer 2) ] (con integer 2) ]
]
]
]
]
(con integer 0)
]
]
)

1
crates/uplc/test_data/conformance/v2/example/DivideByZeroDrop/DivideByZeroDrop.uplc.budget.expected Normal file
View File

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

1
crates/uplc/test_data/conformance/v2/example/DivideByZeroDrop/DivideByZeroDrop.uplc.expected Normal file
View File

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

91
crates/uplc/test_data/conformance/v2/example/IfIntegers/IfIntegers.uplc Normal file
View File

@@ -0,0 +1,91 @@
(program
1.0.0
[
[
[
(force
(delay
(lam
b
(lam
x
(lam
y
[
[ [ [ (force (builtin ifThenElse)) b ] x ] y ] (con unit ())
]
)
)
)
)
)
[
(lam
x0
[
[
(builtin equalsByteString)
[
(builtin sha2_256) [ (builtin sha3_256) (con bytestring #64) ]
]
]
x0
]
)
[
[
(builtin appendByteString)
[
(lam x1 [ (builtin sha3_256) (con bytestring #78) ])
[ (builtin sha3_256) (con bytestring #726e) ]
]
]
(con bytestring #6973)
]
]
]
[
(force (force (delay (delay (lam x (lam y x))))))
[
(lam
x0
[
(lam x2 x0)
[ (builtin sha2_256) [ (builtin sha3_256) (con bytestring #) ] ]
]
)
[
[
(builtin subtractInteger)
[
[
(builtin addInteger)
[
[ (builtin subtractInteger) (con integer 2) ]
(con integer 2)
]
]
[
[ (builtin subtractInteger) (con integer 1) ] (con integer 3)
]
]
]
[
(lam
x1
[
[ (builtin subtractInteger) (con integer 3) ] (con integer 3)
]
)
[
[ (builtin equalsByteString) (con bytestring #6c7a) ]
(con bytestring #6673)
]
]
]
]
]
]
[ (force (force (delay (delay (lam x (lam y x)))))) (con integer 0) ]
]
)

2
crates/uplc/test_data/conformance/v2/example/IfIntegers/IfIntegers.uplc.budget.expected Normal file
View File

@@ -0,0 +1,2 @@
({cpu: 13663363
| mem: 9642})

1
crates/uplc/test_data/conformance/v2/example/IfIntegers/IfIntegers.uplc.expected Normal file
View File

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

51
crates/uplc/test_data/conformance/v2/example/NatRoundTrip/NatRoundTrip.uplc Normal file
View File

@@ -0,0 +1,51 @@
(program
1.0.0
[
[
[
(force
(delay
(lam
f
[
(force
(force
(delay
(delay
(lam
f
[
(force (delay (lam s [ s s ])))
(lam
s
(lam
x
[
[ f [ (force (delay (lam s [ s s ]))) s ] ] x
]
)
)
]
)
)
)
)
)
(lam
rec
(lam
z
(lam n [ [ (force n) z ] (lam n' [ [ rec [ f z ] ] n' ]) ])
)
)
]
)
)
)
[ (builtin addInteger) (con integer 1) ]
]
(con integer 0)
]
[ (lam n (delay (lam z (lam f [ f n ])))) (delay (lam z (lam f z))) ]
]
)

2
crates/uplc/test_data/conformance/v2/example/NatRoundTrip/NatRoundTrip.uplc.budget.expected Normal file
View File

@@ -0,0 +1,2 @@
({cpu: 2207577
| mem: 8802})

1
crates/uplc/test_data/conformance/v2/example/NatRoundTrip/NatRoundTrip.uplc.expected Normal file
View File

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

64
crates/uplc/test_data/conformance/v2/example/ScottListSum/ScottListSum.uplc Normal file
View File

@@ -0,0 +1,64 @@
(program
1.0.0
[
[
[
(force
(force
(delay
(delay
(lam
f
[
(force
(force
(delay
(delay
(lam
f
[
(force (delay (lam s [ s s ])))
(lam
s
(lam
x
[
[
f [ (force (delay (lam s [ s s ]))) s ]
]
x
]
)
)
]
)
)
)
)
)
(lam
rec
(lam
z
(lam
xs
[
[ (force xs) z ]
(lam x (lam xs' [ [ rec [ [ f z ] x ] ] xs' ]))
]
)
)
)
]
)
)
)
)
)
(builtin addInteger)
]
(con integer 0)
]
(force (delay (delay (lam z (lam f z)))))
]
)

2
crates/uplc/test_data/conformance/v2/example/ScottListSum/ScottListSum.uplc.budget.expected Normal file
View File

@@ -0,0 +1,2 @@
({cpu: 1219100
| mem: 5400})

1
crates/uplc/test_data/conformance/v2/example/ScottListSum/ScottListSum.uplc.expected Normal file
View File

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

1
crates/uplc/test_data/conformance/v2/example/churchSucc/churchSucc.uplc Normal file
View File

@@ -0,0 +1 @@
(program 1.0.0 (lam n (delay (lam z (lam f [ f [ [ (force n) z ] f ] ])))))

2
crates/uplc/test_data/conformance/v2/example/churchSucc/churchSucc.uplc.budget.expected Normal file
View File

@@ -0,0 +1,2 @@
({cpu: 23100
| mem: 200})

1
crates/uplc/test_data/conformance/v2/example/churchSucc/churchSucc.uplc.expected Normal file
View File

@@ -0,0 +1 @@
(program 1.0.0 (lam n (delay (lam z (lam f [ f [ [ (force n) z ] f ] ])))))

1
crates/uplc/test_data/conformance/v2/example/churchZero/churchZero.uplc Normal file
View File

@@ -0,0 +1 @@
(program 1.0.0 (delay (lam z (lam f z))))

2
crates/uplc/test_data/conformance/v2/example/churchZero/churchZero.uplc.budget.expected Normal file
View File

@@ -0,0 +1,2 @@
({cpu: 23100
| mem: 200})

1
crates/uplc/test_data/conformance/v2/example/churchZero/churchZero.uplc.expected Normal file
View File

@@ -0,0 +1 @@
(program 1.0.0 (delay (lam z (lam f z))))

176
crates/uplc/test_data/conformance/v2/example/even2/even2.uplc Normal file
View File

@@ -0,0 +1,176 @@
(program
1.0.0
[
[
(force
[
(force
(force
(force
(force
(delay
(delay
(delay
(delay
(lam
f_7
[
[
(force
(delay
(lam
by_1
[
(force
(force
(delay
(delay
(lam
f_2
[
(force
(delay
(lam s_1 [ s_1 s_1 ])
)
)
(lam
s_3
(lam
x_4
[
[
f_2
[
(force
(delay
(lam
s_1
[ s_1 s_1 ]
)
)
)
s_3
]
]
x_4
]
)
)
]
)
)
)
)
)
(lam
rec_8
(lam
h_11
(delay
(lam
fr_14
[
(force
[
by_1
(delay
(lam
fq_16
[
(force
[ rec_8 h_11 ]
)
[
(force h_11) fq_16
]
]
)
)
]
)
fr_14
]
)
)
)
)
]
)
)
)
(lam
k_9
(delay
(lam
h_12
[
[
h_12
(lam
x_15
[
(force k_9)
(lam
f_0_13
(lam f_1_14 [ f_0_13 x_15 ])
)
]
)
]
(lam
x_18
[
(force k_9)
(lam
f_0_16
(lam f_1_17 [ f_1_17 x_18 ])
)
]
)
]
)
)
)
]
f_7
]
)
)
)
)
)
)
)
)
)
(delay
(lam
choose_5
(lam
even_0
(lam
odd_1
[
[
choose_5
(lam n_2 [ [ (force n_2) (con bool True) ] odd_1 ])
]
(lam n_3 [ [ (force n_3) (con bool False) ] even_0 ])
]
)
)
)
)
]
)
(lam arg_0_0 (lam arg_1_1 arg_0_0))
]
[
(lam n_0 (delay (lam z_2 (lam f_3 [ f_3 n_0 ]))))
[
(lam n_0 (delay (lam z_2 (lam f_3 [ f_3 n_0 ]))))
(delay (lam z_1 (lam f_2 z_1)))
]
]
]
)

2
crates/uplc/test_data/conformance/v2/example/even2/even2.uplc.budget.expected Normal file
View File

@@ -0,0 +1,2 @@
({cpu: 6256100
| mem: 27300})

1
crates/uplc/test_data/conformance/v2/example/even2/even2.uplc.expected Normal file
View File

@@ -0,0 +1 @@
(program 1.0.0 (con bool True))

179
crates/uplc/test_data/conformance/v2/example/even3/even3.uplc Normal file
View File

@@ -0,0 +1,179 @@
(program
1.0.0
[
[
(force
[
(force
(force
(force
(force
(delay
(delay
(delay
(delay
(lam
f_7
[
[
(force
(delay
(lam
by_1
[
(force
(force
(delay
(delay
(lam
f_2
[
(force
(delay
(lam s_1 [ s_1 s_1 ])
)
)
(lam
s_3
(lam
x_4
[
[
f_2
[
(force
(delay
(lam
s_1
[ s_1 s_1 ]
)
)
)
s_3
]
]
x_4
]
)
)
]
)
)
)
)
)
(lam
rec_8
(lam
h_11
(delay
(lam
fr_14
[
(force
[
by_1
(delay
(lam
fq_16
[
(force
[ rec_8 h_11 ]
)
[
(force h_11) fq_16
]
]
)
)
]
)
fr_14
]
)
)
)
)
]
)
)
)
(lam
k_9
(delay
(lam
h_12
[
[
h_12
(lam
x_15
[
(force k_9)
(lam
f_0_13
(lam f_1_14 [ f_0_13 x_15 ])
)
]
)
]
(lam
x_18
[
(force k_9)
(lam
f_0_16
(lam f_1_17 [ f_1_17 x_18 ])
)
]
)
]
)
)
)
]
f_7
]
)
)
)
)
)
)
)
)
)
(delay
(lam
choose_5
(lam
even_0
(lam
odd_1
[
[
choose_5
(lam n_2 [ [ (force n_2) (con bool True) ] odd_1 ])
]
(lam n_3 [ [ (force n_3) (con bool False) ] even_0 ])
]
)
)
)
)
]
)
(lam arg_0_0 (lam arg_1_1 arg_0_0))
]
[
(lam n_0 (delay (lam z_2 (lam f_3 [ f_3 n_0 ]))))
[
(lam n_0 (delay (lam z_2 (lam f_3 [ f_3 n_0 ]))))
[
(lam n_0 (delay (lam z_2 (lam f_3 [ f_3 n_0 ]))))
(delay (lam z_1 (lam f_2 z_1)))
]
]
]
]
)

2
crates/uplc/test_data/conformance/v2/example/even3/even3.uplc.budget.expected Normal file
View File

@@ -0,0 +1,2 @@
({cpu: 7843100
| mem: 34200})

1
crates/uplc/test_data/conformance/v2/example/even3/even3.uplc.expected Normal file
View File

@@ -0,0 +1 @@
(program 1.0.0 (con bool False))

416
crates/uplc/test_data/conformance/v2/example/evenList/evenList.uplc Normal file
View File

@@ -0,0 +1,416 @@
(program
1.0.0
[
[
[
(force
(force
(delay
(delay
(lam
f_2
[
(force
(force
(delay
(delay
(lam
f_2
[
(force (delay (lam s_1 [ s_1 s_1 ])))
(lam
s_3
(lam
x_4
[
[
f_2
[
(force (delay (lam s_1 [ s_1 s_1 ])))
s_3
]
]
x_4
]
)
)
]
)
)
)
)
)
(lam
rec_3
(lam
z_4
(lam
xs_5
[
[ (force xs_5) z_4 ]
(lam
x_6
(lam
xs'_7 [ [ rec_3 [ [ f_2 z_4 ] x_6 ] ] xs'_7 ]
)
)
]
)
)
)
]
)
)
)
)
)
(lam
acc_0
(lam
n_1
[
[ (builtin addInteger) acc_0 ]
[
[
[
(force
(delay
(lam
f_1
[
(force
(force
(delay
(delay
(lam
f_2
[
(force (delay (lam s_1 [ s_1 s_1 ])))
(lam
s_3
(lam
x_4
[
[
f_2
[
(force
(delay
(lam s_1 [ s_1 s_1 ])
)
)
s_3
]
]
x_4
]
)
)
]
)
)
)
)
)
(lam
rec_2
(lam
z_3
(lam
n_4
[
[ (force n_4) z_3 ]
(lam n'_5 [ [ rec_2 [ f_1 z_3 ] ] n'_5 ])
]
)
)
)
]
)
)
)
[ (builtin addInteger) (con integer 1) ]
]
(con integer 0)
]
n_1
]
]
)
)
]
(con integer 0)
]
[
[
(force
[
(force
(force
(force
(force
(delay
(delay
(delay
(delay
(lam
f_7
[
[
(force
(delay
(lam
by_1
[
(force
(force
(delay
(delay
(lam
f_2
[
(force
(delay
(lam s_1 [ s_1 s_1 ])
)
)
(lam
s_3
(lam
x_4
[
[
f_2
[
(force
(delay
(lam
s_1
[
s_1 s_1
]
)
)
)
s_3
]
]
x_4
]
)
)
]
)
)
)
)
)
(lam
rec_8
(lam
h_11
(delay
(lam
fr_14
[
(force
[
by_1
(delay
(lam
fq_16
[
(force
[ rec_8 h_11 ]
)
[
(force h_11)
fq_16
]
]
)
)
]
)
fr_14
]
)
)
)
)
]
)
)
)
(lam
k_9
(delay
(lam
h_12
[
[
h_12
(lam
x_15
[
(force k_9)
(lam
f_0_13
(lam f_1_14 [ f_0_13 x_15 ])
)
]
)
]
(lam
x_18
[
(force k_9)
(lam
f_0_16
(lam f_1_17 [ f_1_17 x_18 ])
)
]
)
]
)
)
)
]
f_7
]
)
)
)
)
)
)
)
)
)
(delay
(lam
choose_9
(lam
even_0
(lam
odd_1
[
[
choose_9
(lam
l_4
[
[
(force l_4)
(force (delay (delay (lam z_2 (lam f_3 z_2)))))
]
(lam
head_2
(lam
tail_3
[
[
(force
(delay
(lam
x_1
(lam
xs_2
(delay
(lam
z_4
(lam f_5 [ [ f_5 x_1 ] xs_2 ])
)
)
)
)
)
)
head_2
]
[ odd_1 tail_3 ]
]
)
)
]
)
]
(lam
l_7
[
[
(force l_7)
(force (delay (delay (lam z_2 (lam f_3 z_2)))))
]
(lam head_5 (lam tail_6 [ even_0 tail_6 ]))
]
)
]
)
)
)
)
]
)
(lam arg_0_0 (lam arg_1_1 arg_0_0))
]
[
[
(force
(delay
(lam
x_1 (lam xs_2 (delay (lam z_4 (lam f_5 [ [ f_5 x_1 ] xs_2 ]))))
)
)
)
[
(lam n_0 (delay (lam z_2 (lam f_3 [ f_3 n_0 ]))))
(delay (lam z_1 (lam f_2 z_1)))
]
]
[
[
(force
(delay
(lam
x_1
(lam xs_2 (delay (lam z_4 (lam f_5 [ [ f_5 x_1 ] xs_2 ]))))
)
)
)
[
(lam n_0 (delay (lam z_2 (lam f_3 [ f_3 n_0 ]))))
[
(lam n_0 (delay (lam z_2 (lam f_3 [ f_3 n_0 ]))))
(delay (lam z_1 (lam f_2 z_1)))
]
]
]
[
[
(force
(delay
(lam
x_1
(lam xs_2 (delay (lam z_4 (lam f_5 [ [ f_5 x_1 ] xs_2 ]))))
)
)
)
[
(lam n_0 (delay (lam z_2 (lam f_3 [ f_3 n_0 ]))))
[
(lam n_0 (delay (lam z_2 (lam f_3 [ f_3 n_0 ]))))
[
(lam n_0 (delay (lam z_2 (lam f_3 [ f_3 n_0 ]))))
(delay (lam z_1 (lam f_2 z_1)))
]
]
]
]
(force (delay (delay (lam z_2 (lam f_3 z_2)))))
]
]
]
]
]
)

2
crates/uplc/test_data/conformance/v2/example/evenList/evenList.uplc.budget.expected Normal file
View File

@@ -0,0 +1,2 @@
({cpu: 19362962
| mem: 78912})

1
crates/uplc/test_data/conformance/v2/example/evenList/evenList.uplc.expected Normal file
View File

@@ -0,0 +1 @@
(program 1.0.0 (con integer 4))

184
crates/uplc/test_data/conformance/v2/example/factorial/factorial.uplc Normal file
View File

@@ -0,0 +1,184 @@
(program
1.0.0
[
(lam
i
[
[
[
(force
(force
(delay
(delay
(lam
f
[
(force
(force
(delay
(delay
(lam
f
[
(force (delay (lam s [ s s ])))
(lam
s
(lam
x
[
[
f
[
(force (delay (lam s [ s s ]))) s
]
]
x
]
)
)
]
)
)
)
)
)
(lam
rec
(lam
z
(lam
xs
[
[ (force xs) z ]
(lam x (lam xs' [ [ rec [ [ f z ] x ] ] xs' ]))
]
)
)
)
]
)
)
)
)
)
(builtin multiplyInteger)
]
(con integer 1)
]
[
[
(lam
n
(lam
m
[
[
(force
(force
(delay
(delay
(lam
f
[
(force (delay (lam s [ s s ])))
(lam
s
(lam
x
[
[
f [ (force (delay (lam s [ s s ]))) s ]
]
x
]
)
)
]
)
)
)
)
)
(lam
rec
(lam
n'
[
[
[
(force
(delay
(lam
b
(lam
x
(lam
y
[
[
[
[ (force (builtin ifThenElse)) b ]
x
]
y
]
(con unit ())
]
)
)
)
)
)
[ [ (builtin lessThanEqualsInteger) n' ] m ]
]
(lam
u
[
[
(force
(delay
(lam
x
(lam
xs
(delay (lam z (lam f [ [ f x ] xs ])))
)
)
)
)
n'
]
[
rec
[
(lam
i
[
[ (builtin addInteger) i ]
(con integer 1)
]
)
n'
]
]
]
)
]
(lam u (force (delay (delay (lam z (lam f z))))))
]
)
)
]
n
]
)
)
(con integer 1)
]
i
]
]
)
(con integer 4)
]
)

2
crates/uplc/test_data/conformance/v2/example/factorial/factorial.uplc.budget.expected Normal file
View File

@@ -0,0 +1,2 @@
({cpu: 14104357
| mem: 50026})

1
crates/uplc/test_data/conformance/v2/example/factorial/factorial.uplc.expected Normal file
View File

@@ -0,0 +1 @@
(program 1.0.0 (con integer 24))

77
crates/uplc/test_data/conformance/v2/example/fibonacci/fibonacci.uplc Normal file
View File

@@ -0,0 +1,77 @@
(program
1.0.0
[
(lam
i0
[
[
(force
(force
(delay
(delay
(lam
f
[
(force (delay (lam s [ s s ])))
(lam
s
(lam
x [ [ f [ (force (delay (lam s [ s s ]))) s ] ] x ]
)
)
]
)
)
)
)
)
(lam
rec
(lam
i
[
[
[
(force
(delay
(lam
b
(lam
x
(lam
y
[
[ [ [ (force (builtin ifThenElse)) b ] x ] y ]
(con unit ())
]
)
)
)
)
)
[ [ (builtin lessThanEqualsInteger) i ] (con integer 1) ]
]
(lam u i)
]
(lam
u
[
[
(builtin addInteger)
[
rec [ [ (builtin subtractInteger) i ] (con integer 1) ]
]
]
[ rec [ [ (builtin subtractInteger) i ] (con integer 2) ] ]
]
)
]
)
)
]
i0
]
)
(con integer 0)
]
)

2
crates/uplc/test_data/conformance/v2/example/fibonacci/fibonacci.uplc.budget.expected Normal file
View File

@@ -0,0 +1,2 @@
({cpu: 1689053
| mem: 6202})

1
crates/uplc/test_data/conformance/v2/example/fibonacci/fibonacci.uplc.expected Normal file
View File

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

1
crates/uplc/test_data/conformance/v2/example/force-lam/force-lam.uplc Normal file
View File

@@ -0,0 +1 @@
(program 1.0.0 (lam x (force x)))

2
crates/uplc/test_data/conformance/v2/example/force-lam/force-lam.uplc.budget.expected Normal file
View File

@@ -0,0 +1,2 @@
({cpu: 23100
| mem: 200})

1
crates/uplc/test_data/conformance/v2/example/force-lam/force-lam.uplc.expected Normal file
View File

@@ -0,0 +1 @@
(program 1.0.0 (lam x (force x)))

19
crates/uplc/test_data/conformance/v2/example/overapplication/overapplication.uplc Normal file
View File

@@ -0,0 +1,19 @@
(program
1.0.0
[
[
[
[
[
(force (builtin ifThenElse))
[ [ (builtin lessThanInteger) (con integer 1) ] (con integer 3) ]
]
(builtin addInteger)
]
(builtin subtractInteger)
]
(con integer 1)
]
(con integer 3)
]
)

2
crates/uplc/test_data/conformance/v2/example/overapplication/overapplication.uplc.budget.expected Normal file
View File

@@ -0,0 +1,2 @@
({cpu: 864540
| mem: 1704})

1
crates/uplc/test_data/conformance/v2/example/overapplication/overapplication.uplc.expected Normal file
View File

@@ -0,0 +1 @@
(program 1.0.0 (con integer 4))

1
crates/uplc/test_data/conformance/v2/example/succInteger/succInteger.uplc Normal file
View File

@@ -0,0 +1 @@
(program 1.0.0 (lam i [ [ (builtin addInteger) i ] (con integer 1) ]))

2
crates/uplc/test_data/conformance/v2/example/succInteger/succInteger.uplc.budget.expected Normal file
View File

@@ -0,0 +1,2 @@
({cpu: 23100
| mem: 200})

1
crates/uplc/test_data/conformance/v2/example/succInteger/succInteger.uplc.expected Normal file
View File

@@ -0,0 +1 @@
(program 1.0.0 (lam i [ [ (builtin addInteger) i ] (con integer 1) ]))