-
Notifications
You must be signed in to change notification settings - Fork 721
/
Address.hs
61 lines (43 loc) · 2.04 KB
/
Address.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
{-# LANGUAGE OverloadedStrings #-}
module Test.Golden.Shelley.MultiSig.Address
( golden_shelleyAllMultiSigAddressBuild
, golden_shelleyAnyMultiSigAddressBuild
, golden_shelleyAtLeastMultiSigAddressBuild
) where
import Cardano.Prelude
import Hedgehog (Property)
import Test.OptParse as OP
{- HLINT ignore "Use camelCase" -}
golden_shelleyAllMultiSigAddressBuild :: Property
golden_shelleyAllMultiSigAddressBuild = propertyOnce . moduleWorkspace "tmp" $ \_ -> do
allMultiSigFp <- noteInputFile "test/data/golden/shelley/multisig/scripts/all"
allMultiSigAddress <- execCardanoCLI
[ "shelley", "address", "build-multisig"
, "--script-file", allMultiSigFp
, "--mainnet"
]
goldenAllMultiSigAddrFp <- noteInputFile "test/data/golden/shelley/multisig/addresses/all"
goldenAllMs <- OP.readFile goldenAllMultiSigAddrFp
equivalence allMultiSigAddress goldenAllMs
golden_shelleyAnyMultiSigAddressBuild :: Property
golden_shelleyAnyMultiSigAddressBuild = propertyOnce . moduleWorkspace "tmp" $ \_ -> do
anyMultiSigFp <- noteInputFile "test/data/golden/shelley/multisig/scripts/any"
anyMultiSigAddress <- execCardanoCLI
[ "shelley", "address", "build-multisig"
, "--script-file", anyMultiSigFp
, "--mainnet"
]
goldenAnyMultiSigAddrFp <- noteInputFile "test/data/golden/shelley/multisig/addresses/any"
goldenAnyMs <- OP.readFile goldenAnyMultiSigAddrFp
equivalence anyMultiSigAddress goldenAnyMs
golden_shelleyAtLeastMultiSigAddressBuild :: Property
golden_shelleyAtLeastMultiSigAddressBuild = propertyOnce . moduleWorkspace "tmp" $ \_ -> do
atLeastMultiSigFp <- noteInputFile "test/data/golden/shelley/multisig/scripts/atleast"
atLeastMultiSigAddress <- execCardanoCLI
[ "shelley", "address", "build-multisig"
, "--script-file", atLeastMultiSigFp
, "--mainnet"
]
goldenAtLeastMultiSigAddrFp <- noteInputFile "test/data/golden/shelley/multisig/addresses/atleast"
goldenAtLeastMs <- OP.readFile goldenAtLeastMultiSigAddrFp
equivalence atLeastMultiSigAddress goldenAtLeastMs