claudiomaradonna/plutus-pioneer-program
1
0
Fork 0
mirror of https://github.com/FiloSpaTeam/plutus-pioneer-program.git synced 2024-11-25 00:02:18 +01:00
Code Issues Projects Releases Packages Wiki Activity

completed validation

Browse source
This commit is contained in:
Lars Brünjes 2021-04-02 00:43:05 +02:00
parent 55a6783edc
commit ab53d5f3d7
No known key found for this signature in database
GPG key ID: B488B9045DC1A087
1 changed files with 36 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
code/english-auction/src/EnglishAuction.hs
View file

@ -116,10 +116,18 @@ mkAuctionValidator ad redeemer ctx =
case redeemer of
MkBid b@Bid{..} ->
traceIfFalse "bid too low" (sufficientBid bBid) &&
traceIfFalse "wrong output datum" (correctOutputDatum b) &&
traceIfFalse "wrong output value" (correctOutputValue bBid) &&
traceIfFalse "wrong refund" correctRefund
Close -> True
traceIfFalse "wrong output datum" (correctBidOutputDatum b) &&
traceIfFalse "wrong output value" (correctBidOutputValue bBid) &&
traceIfFalse "wrong refund" correctBidRefund &&
traceIfFalse "too late" correctBidSlotRange
Close ->
traceIfFalse "too early" correctCloseSlotRange &&
case adHighestBid ad of
Nothing ->
traceIfFalse "expected seller to get token" (getsValue (aSeller auction) tokenValue)
Just Bid{..} ->
traceIfFalse "expected highest bidder to get token" (getsValue bBidder tokenValue) &&
traceIfFalse "expected seller to get highest bid" (getsValue (aSeller auction) $ Ada.lovelaceValueOf bBid)
where
info :: TxInfo
@ -166,16 +174,16 @@ mkAuctionValidator ad redeemer ctx =
Nothing -> traceError "error decoding data"
_ -> traceError "expected exactly one continuing output"
correctOutputDatum :: Bid -> Bool
correctOutputDatum b = (adAuction outputDatum == auction) &&
correctBidOutputDatum :: Bid -> Bool
correctBidOutputDatum b = (adAuction outputDatum == auction) &&
(adHighestBid outputDatum == Just b)
correctOutputValue :: Integer -> Bool
correctOutputValue amount =
correctBidOutputValue :: Integer -> Bool
correctBidOutputValue amount =
txOutValue ownOutput == tokenValue Plutus.<> Ada.lovelaceValueOf amount
correctRefund :: Bool
correctRefund = case adHighestBid ad of
correctBidRefund :: Bool
correctBidRefund = case adHighestBid ad of
Nothing -> True
Just Bid{..} ->
let
@ -188,6 +196,22 @@ mkAuctionValidator ad redeemer ctx =
[o] -> txOutValue o == Ada.lovelaceValueOf bBid
_ -> traceError "expected exactly one refund output"
correctBidSlotRange :: Bool
correctBidSlotRange = to (aDeadline auction) `contains` txInfoValidRange info
correctCloseSlotRange :: Bool
correctCloseSlotRange = from (aDeadline auction) `contains` txInfoValidRange info
getsValue :: PubKeyHash -> Value -> Bool
getsValue h v =
let
[o] = [ o'
| o' <- txInfoOutputs info
, txOutValue o' == v
]
in
txOutAddress o == PubKeyAddress h
auctionInstance :: Scripts.ScriptInstance Auctioning
auctionInstance = Scripts.validator @Auctioning
$$(PlutusTx.compile [|| mkAuctionValidator ||])