test: add all plutus conformance tests
This commit is contained in:
@@ -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)
|
||||
]
|
||||
)
|
||||
@@ -0,0 +1 @@
|
||||
(program 1.0.0 (con integer 0))
|
||||
Reference in New Issue
Block a user