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

take collaterals into account

Browse source
This commit is contained in:
Seungheon Oh 2022-04-25 08:46:58 -04:00
parent 5c63764159
commit 5a688262c3
3 changed files with 32 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

8
agora-test/Spec/Effect/TreasuryWithdrawal.hs
View file

@ -14,6 +14,7 @@ import Spec.Sample.Effect.TreasuryWithdrawal (
inputGAT,
inputTreasury,
inputUser,
inputCollateral,
outputTreasury,
outputUser,
treasuries,
@ -40,6 +41,7 @@ tests =
datum1
( buildScriptContext
[ inputGAT
, inputCollateral 10
, inputTreasury 1 (asset1 10)
]
$ outputTreasury 1 (asset1 7) :
@ -51,6 +53,7 @@ tests =
datum1
( buildScriptContext
[ inputGAT
, inputCollateral 10
, inputTreasury 1 (asset1 10)
, inputTreasury 2 (asset1 100)
, inputTreasury 3 (asset1 500)
@ -67,6 +70,7 @@ tests =
datum2
( buildScriptContext
[ inputGAT
, inputCollateral 10
, inputTreasury 1 (asset1 20)
, inputTreasury 2 (asset2 20)
]
@ -81,6 +85,7 @@ tests =
datum2
( buildScriptContext
[ inputGAT
, inputCollateral 10
, inputTreasury 1 (asset1 20)
, inputTreasury 2 (asset2 20)
]
@ -96,6 +101,7 @@ tests =
datum2
( buildScriptContext
[ inputGAT
, inputCollateral 10
, inputTreasury 1 (asset1 20)
, inputTreasury 2 (asset2 20)
]
@ -110,6 +116,7 @@ tests =
datum3
( buildScriptContext
[ inputGAT
, inputCollateral 10
, inputTreasury 999 (asset1 20)
]
$ outputTreasury 999 (asset1 17) :
@ -122,6 +129,7 @@ tests =
( buildScriptContext
[ inputGAT
, inputTreasury 1 (asset1 20)
, inputTreasury 999 (asset1 20)
, inputUser 99 (asset2 100)
]
$ [ outputTreasury 1 (asset1 17)

11
agora-test/Spec/Sample/Effect/TreasuryWithdrawal.hs
View file

@ -9,6 +9,7 @@ module Spec.Sample.Effect.TreasuryWithdrawal (
inputTreasury,
inputUser,
inputGAT,
inputCollateral,
outputTreasury,
outputUser,
buildReceiversOutputFromDatum,
@ -106,6 +107,16 @@ inputUser indx val =
, txOutDatumHash = Just (DatumHash "")
}
inputCollateral :: Int -> TxInInfo
inputCollateral indx =
TxInInfo -- Initiator
(TxOutRef "" 1)
TxOut
{ txOutAddress = Address (users !! indx) Nothing
, txOutValue = Value.singleton "" "" 2000000
, txOutDatumHash = Just (DatumHash "")
}
outputTreasury :: Int -> Value -> TxOut
outputTreasury indx val =
TxOut