renamed shared sample

This commit is contained in:
Seungheon Oh 2022-10-19 19:39:46 -05:00
parent 6a0cfcd6ce
commit 4f5504d1d1
8 changed files with 55 additions and 55 deletions

View file

@ -43,10 +43,10 @@ import PlutusLedgerApi.V2 (
)
import Property.Generator (genInput, genOutput)
import Sample.Shared (
govAssetClass,
govSymbol,
govValidatorHash,
governor,
governorAssetClass,
governorSymbol,
governorValidatorHash,
gstUTXORef,
)
import Test.Tasty (TestTree)
@ -171,12 +171,12 @@ governorMintingProperty =
{- Note:
I don't think it's easily possible to randomize orefs. We can't really pass pass `Governor` type to `actual` function.
-}
gst = assetClassValue govAssetClass 1
gst = assetClassValue governorAssetClass 1
mintAmount x = mint . mconcat $ replicate x gst
outputToGov =
output $
mconcat
[ script govValidatorHash
[ script governorValidatorHash
, withValue gst
, withDatum govDatum
]
@ -205,7 +205,7 @@ governorMintingProperty =
GovernorOutputNotFound -> referencedInput <> mintAmount 1
GovernorPolicyCorrect -> referencedInput <> outputToGov <> mintAmount 1
return . buildMinting' $ inputs <> outputs <> comp <> withMinting govSymbol
return . buildMinting' $ inputs <> outputs <> comp <> withMinting governorSymbol
expected :: ScriptContext -> Maybe ()
expected sc =