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

Homework 4

Browse source
This commit is contained in:
Claudio Maradonna 2021-07-30 16:51:21 +02:00
parent 5f5812f0b7
commit 6ceeff43cc
Signed by untrusted user who does not match committer: claudiomaradonna
GPG key ID: 0CBA58694C5680D9
1 changed files with 34 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
code/week04/src/Week04/Homework.hs
View file

@ -9,13 +9,14 @@ module Week04.Homework where
import Data.Aeson (FromJSON, ToJSON) import Data.Aeson (FromJSON, ToJSON)
import Data.Functor (void) import Data.Functor (void)
import Data.Text (Text) import Data.Text (Text, unpack)
import GHC.Generics (Generic) import GHC.Generics (Generic)
import Ledger import Ledger
import Ledger.Ada as Ada import Ledger.Ada as Ada
import Ledger.Constraints as Constraints import Ledger.Constraints as Constraints
import Plutus.Contract as Contract import Plutus.Contract as Contract
import Plutus.Trace.Emulator as Emulator import Plutus.Trace.Emulator as Emulator
import Wallet.Emulator.Wallet
data PayParams = PayParams data PayParams = PayParams
{ ppRecipient :: PubKeyHash { ppRecipient :: PubKeyHash
@ -29,16 +30,45 @@ payContract = do
pp <- endpoint @"pay" pp <- endpoint @"pay"
let tx = mustPayToPubKey (ppRecipient pp) $ lovelaceValueOf $ ppLovelace pp let tx = mustPayToPubKey (ppRecipient pp) $ lovelaceValueOf $ ppLovelace pp
void $ submitTx tx void $ submitTx tx
handlePayContract :: Contract () PaySchema Text ()
handlePayContract = do
Contract.handleError
(\err -> Contract.logError $ "cannot execute contract! " ++ unpack err)
payContract payContract
handlePayContract
-- A trace that invokes the pay endpoint of payContract on Wallet 1 twice, each time with Wallet 2 as -- A trace that invokes the pay endpoint of payContract on Wallet 1 twice, each time with Wallet 2 as
-- recipient, but with amounts given by the two arguments. There should be a delay of one slot -- recipient, but with amounts given by the two arguments. There should be a delay of one slot
-- after each endpoint call. -- after each endpoint call.EmulatorTrace
payTrace :: Integer -> Integer -> EmulatorTrace () payTrace :: Integer -> Integer -> EmulatorTrace ()
payTrace _ _ = undefined -- IMPLEMENT ME! payTrace a b = do
h <- activateContractWallet (Wallet 1) handlePayContract
let recipient = (pubKeyHash $ walletPubKey $ Wallet 2)
let ppa = PayParams {
ppRecipient = recipient,
ppLovelace = a
}
callEndpoint @"pay" h ppa
void $ Emulator.waitNSlots 1
let ppb = PayParams {
ppRecipient = recipient,
ppLovelace = b
}
callEndpoint @"pay" h ppb
void $ Emulator.waitNSlots 1
payTest1 :: IO () payTest1 :: IO ()
payTest1 = runEmulatorTraceIO $ payTrace 1000000 2000000 payTest1 = runEmulatorTraceIO $ payTrace 1000000 2000000
payTest2 :: IO () payTest2 :: IO ()
payTest2 = runEmulatorTraceIO $ payTrace 1000000000 2000000 payTest2 = runEmulatorTraceIO $ payTrace 1000000000 2000000
payTest3 :: IO ()
payTest3 = runEmulatorTraceIO $ payTrace 1000000000 1000000000
payTest4 :: IO ()
payTest4 = runEmulatorTraceIO $ payTrace 2000000 1000000000