Sulkta-OSS/agora
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use liqwid-script-export

Browse source 
commit ec70bfd539fe2e27fd48f5f76395400287ac72d7
Author: Seungheon Oh <seungheon.ooh@gmail.com>
Date:   Tue Oct 18 18:58:59 2022 -0500

    use LSE

commit 25fff9b3ad1f2dde4cd7cf36977530b06a87d23c
Merge: 01cd3aa 1821dd6
Author: Seungheon Oh <seungheon.ooh@gmail.com>
Date:   Tue Oct 18 18:17:45 2022 -0500

    Merge branch 'staging' into seungheonoh/ply

commit 01cd3aa7a235e6fe6658246ca1026fa26dc71a83
Author: Hongrui Fang <chfanghr@gmail.com>
Date:   Tue Oct 11 12:02:03 2022 +0800

    update benchmark

commit a8513244892ce33cfdc9edf8cd501c4985ae8008
Author: Hongrui Fang <chfanghr@gmail.com>
Date:   Tue Oct 11 11:59:22 2022 +0800

    fix tests

commit 20ca40823485c2e2f78253643cf4453ac7b7ddd5
Author: Hongrui Fang <chfanghr@gmail.com>
Date:   Tue Oct 11 11:57:37 2022 +0800

    better import

commit a19fe49424210891bd03db71e4083fc1e0edfd98
Author: Hongrui Fang <chfanghr@gmail.com>
Date:   Tue Oct 11 11:08:20 2022 +0800

    update flake inputs

commit c93b21f1f9441e5c6f54525bf7c6a54757ec36cc
Author: Seungheon Oh <seungheon.ooh@gmail.com>
Date:   Mon Oct 10 12:54:12 2022 -0500

    tried to make tests pass

commit 1046ae1237299a33c58b48661bdb6d325a22147e
Merge: 2bf4e36 363bd83
Author: Seungheon Oh <seungheon.ooh@gmail.com>
Date:   Mon Oct 10 12:18:48 2022 -0500

    Merge branch 'staging' into seungheonoh/ply

commit 2bf4e3627c1b229f58078695082da85c80efd560
Author: Seungheon Oh <seungheon.ooh@gmail.com>
Date:   Mon Oct 10 10:48:36 2022 -0500

    remove junkpile

commit a1dbc9ad9e531fe0d0a0480c4aef9cf9ffa90f1d
Author: Seungheon Oh <seungheon.ooh@gmail.com>
Date:   Mon Oct 10 10:47:25 2022 -0500

    versions

commit 4542a06ac733858297d3a48c53368fad19dedc43
Author: Seungheon Oh <seungheon.ooh@gmail.com>
Date:   Thu Oct 6 22:57:48 2022 -0500

    script exporting interface

commit 6bd8c1a1d57e4bf9dc25c3068a9c8eae6bf6a19d
Author: Seungheon Oh <seungheon.ooh@gmail.com>
Date:   Thu Oct 6 22:58:41 2022 -0500

    fixed tests

commit d3ce2cf95633d336f3e621833677bd5bf10ee2c8
Author: Seungheon Oh <seungheon.ooh@gmail.com>
Date:   Sun Oct 2 00:55:18 2022 -0500

    fixed tests

commit 1ae64c9f692652b77b0506013853b2ba44267c65
Author: Seungheon Oh <seungheon.ooh@gmail.com>
Date:   Sat Oct 1 13:28:20 2022 -0500

    linker

commit db88cb75c7b74843141ad8ab4e6522b66d0dcfbc
Author: Seungheon Oh <seungheon.ooh@gmail.com>
Date:   Sat Oct 1 01:03:50 2022 -0500

    exporting scripts

commit 6389fce28e885a8a7f8669629c266f59c0edb51f
Author: Seungheon Oh <seungheon.ooh@gmail.com>
Date:   Sat Oct 1 00:51:49 2022 -0500

    made scripts parameterized on the script level

commit aea1e518a8890550bdebd0e5251da11d915c53a9
Author: Seungheon Oh <seungheon.ooh@gmail.com>
Date:   Wed Sep 28 19:53:29 2022 -0500

    Use `TypedScriptEnvelope` for `Agora.Bootstrap`
This commit is contained in:
Seungheon Oh 2022-10-18 18:59:38 -05:00
parent 1821dd6a88
commit d2018afd4d
38 changed files with 8614 additions and 2330 deletions
Download patch file Download diff file Expand all files Collapse all files

33
agora-testlib/Test/Specification.hs
View file

@ -49,26 +49,23 @@ module Test.Specification (
toTestTree,
) where
import Agora.Utils (
CompiledEffect (..),
CompiledMintingPolicy (..),
CompiledValidator (..),
)
import Control.Composition ((.**), (.***))
import Data.Coerce (coerce)
import Data.Text qualified as Text
import Plutarch.Evaluate (evalScript)
import PlutusLedgerApi.V1.Scripts (
Context (..),
Context (Context),
applyMintingPolicyScript,
applyValidator,
)
import PlutusLedgerApi.V2 (
Datum (..),
MintingPolicy,
Redeemer (Redeemer),
Script,
ScriptContext,
ToData (toBuiltinData),
Validator,
)
import PlutusTx.IsData qualified as PlutusTx (ToData)
import Test.Tasty (TestTree, testGroup)
@ -191,21 +188,21 @@ mkDatum = Datum . toBuiltinData
applyMintingPolicy' ::
(PlutusTx.ToData redeemer) =>
CompiledMintingPolicy redeemer ->
MintingPolicy ->
redeemer ->
ScriptContext ->
Script
applyMintingPolicy' policy redeemer scriptContext =
applyMintingPolicyScript
(mkContext scriptContext)
policy.getCompiledMintingPolicy
policy
(mkRedeemer redeemer)
applyValidator' ::
( PlutusTx.ToData datum
, PlutusTx.ToData redeemer
) =>
CompiledValidator datum redeemer ->
Validator ->
datum ->
redeemer ->
ScriptContext ->
@ -213,7 +210,7 @@ applyValidator' ::
applyValidator' validator datum redeemer scriptContext =
applyValidator
(mkContext scriptContext)
validator.getCompiledValidator
validator
(mkDatum datum)
(mkRedeemer redeemer)
@ -221,7 +218,7 @@ applyValidator' validator datum redeemer scriptContext =
policySucceedsWith ::
(PlutusTx.ToData redeemer) =>
String ->
CompiledMintingPolicy redeemer ->
MintingPolicy ->
redeemer ->
ScriptContext ->
SpecificationTree
@ -232,7 +229,7 @@ policySucceedsWith tag =
policyFailsWith ::
(PlutusTx.ToData redeemer) =>
String ->
CompiledMintingPolicy redeemer ->
MintingPolicy ->
redeemer ->
ScriptContext ->
SpecificationTree
@ -245,7 +242,7 @@ validatorSucceedsWith ::
, PlutusTx.ToData redeemer
) =>
String ->
CompiledValidator datum redeemer ->
Validator ->
datum ->
redeemer ->
ScriptContext ->
@ -259,7 +256,7 @@ validatorFailsWith ::
, PlutusTx.ToData redeemer
) =>
String ->
CompiledValidator datum redeemer ->
Validator ->
datum ->
redeemer ->
ScriptContext ->
@ -272,7 +269,7 @@ effectSucceedsWith ::
( PlutusTx.ToData datum
) =>
String ->
CompiledEffect datum ->
Validator ->
datum ->
ScriptContext ->
SpecificationTree
@ -283,7 +280,7 @@ effectFailsWith ::
( PlutusTx.ToData datum
) =>
String ->
CompiledEffect datum ->
Validator ->
datum ->
ScriptContext ->
SpecificationTree
@ -296,7 +293,7 @@ testValidator ::
-- | Is this test case expected to succeed?
Bool ->
String ->
CompiledValidator datum redeemer ->
Validator ->
datum ->
redeemer ->
ScriptContext ->
@ -313,7 +310,7 @@ testPolicy ::
-- | Is this test case expected to succeed?
Bool ->
String ->
CompiledMintingPolicy redeemer ->
MintingPolicy ->
redeemer ->
ScriptContext ->
SpecificationTree