Pools.hs

{-# LANGUAGE NumericUnderscores #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TemplateHaskell #-}

module Cardano.Pools
  where

import Data.Aeson (decode, eitherDecode, encode)
import Data.Text (Text)
import qualified Money
import Test.Hspec
import Test.Tasty.Hspec
import Text.RawString.QQ

import Blockfrost.Types

spec_pools :: Spec
spec_pools = do
  it "parses pool epoch sample" $ do
    eitherDecode poolEpochSample
    `shouldBe`
    Right poolEpochExpected

  it "parses pool info sample" $ do
    eitherDecode poolInfoSample
    `shouldBe`
    Right poolInfoExpected

  it "parses pool history sample" $ do
    eitherDecode poolHistorySample
    `shouldBe`
    Right poolHistoryExpected

  it "parses pool metadata sample" $ do
    eitherDecode poolMetadataSample
    `shouldBe`
    Right poolMetadataExpected

  it "parses empty object pool metadata sample" $ do
    eitherDecode "{}"
    `shouldBe`
    Right (Nothing :: Maybe PoolMetadata)

  it "parses pool relay sample" $ do
    eitherDecode poolRelaySample
    `shouldBe`
    Right poolRelayExpected

  it "parses pool delegators sample" $ do
    eitherDecode poolDelegatorsSample
    `shouldBe`
    Right poolDelegatorsExpected

  it "parses pool updates sample" $ do
    eitherDecode poolUpdatesSample
    `shouldBe`
    Right poolUpdatesExpected

poolEpochSample = [r|
[
  {
    "pool_id": "pool19u64770wqp6s95gkajc8udheske5e6ljmpq33awxk326zjaza0q",
    "epoch": 225
  },
  {
    "pool_id": "pool1dvla4zq98hpvacv20snndupjrqhuc79zl6gjap565nku6et5zdx",
    "epoch": 215
  },
  {
    "pool_id": "pool1wvccajt4eugjtf3k0ja3exjqdj7t8egsujwhcw4tzj4rzsxzw5w",
    "epoch": 231
  }
]
|]

poolEpochExpected =
  [ PoolEpoch "pool19u64770wqp6s95gkajc8udheske5e6ljmpq33awxk326zjaza0q" 225
  , PoolEpoch "pool1dvla4zq98hpvacv20snndupjrqhuc79zl6gjap565nku6et5zdx" 215
  , PoolEpoch "pool1wvccajt4eugjtf3k0ja3exjqdj7t8egsujwhcw4tzj4rzsxzw5w" 231
  ]

poolInfoSample = [r|
{
  "pool_id": "pool1pu5jlj4q9w9jlxeu370a3c9myx47md5j5m2str0naunn2q3lkdy",
  "hex": "0f292fcaa02b8b2f9b3c8f9fd8e0bb21abedb692a6d5058df3ef2735",
  "vrf_key": "0b5245f9934ec2151116fb8ec00f35fd00e0aa3b075c4ed12cce440f999d8233",
  "blocks_minted": 69,
  "live_stake": "6900000000",
  "live_size": 0.42,
  "live_saturation": 0.93,
  "live_delegators": 127,
  "active_stake": "4200000000",
  "active_size": 0.43,
  "declared_pledge": "5000000000",
  "live_pledge": "5000000001",
  "margin_cost": 0.05,
  "fixed_cost": "340000000",
  "reward_account": "stake1uxkptsa4lkr55jleztw43t37vgdn88l6ghclfwuxld2eykgpgvg3f",
  "owners": [
    "stake1u98nnlkvkk23vtvf9273uq7cph5ww6u2yq2389psuqet90sv4xv9v"
  ],
  "registration": [
    "9f83e5484f543e05b52e99988272a31da373f3aab4c064c76db96643a355d9dc",
    "7ce3b8c433bf401a190d58c8c483d8e3564dfd29ae8633c8b1b3e6c814403e95",
    "3e6e1200ce92977c3fe5996bd4d7d7e192bcb7e231bc762f9f240c76766535b9"
  ],
  "retirement": [
    "252f622976d39e646815db75a77289cf16df4ad2b287dd8e3a889ce14c13d1a8"
  ]
}
|]

poolInfoExpected =
  PoolInfo
    { _poolInfoPoolId = "pool1pu5jlj4q9w9jlxeu370a3c9myx47md5j5m2str0naunn2q3lkdy"
    , _poolInfoHex = "0f292fcaa02b8b2f9b3c8f9fd8e0bb21abedb692a6d5058df3ef2735"
    , _poolInfoVrfKey = "0b5245f9934ec2151116fb8ec00f35fd00e0aa3b075c4ed12cce440f999d8233"
    , _poolInfoBlocksMinted = 69
    , _poolInfoLiveStake = 6900000000
    , _poolInfoLiveSize = 0.42
    , _poolInfoLiveSaturation = 0.93
    , _poolInfoLiveDelegators = 127
    , _poolInfoActiveStake = 4200000000
    , _poolInfoActiveSize = 0.43
    , _poolInfoDeclaredPledge = 5000000000
    , _poolInfoLivePledge = 5000000001
    , _poolInfoMarginCost = 0.05
    , _poolInfoFixedCost = 340000000
    , _poolInfoRewardAccount = "stake1uxkptsa4lkr55jleztw43t37vgdn88l6ghclfwuxld2eykgpgvg3f"
    , _poolInfoOwners = [ "stake1u98nnlkvkk23vtvf9273uq7cph5ww6u2yq2389psuqet90sv4xv9v" ]
    , _poolInfoRegistration =
        [ "9f83e5484f543e05b52e99988272a31da373f3aab4c064c76db96643a355d9dc"
        , "7ce3b8c433bf401a190d58c8c483d8e3564dfd29ae8633c8b1b3e6c814403e95"
        , "3e6e1200ce92977c3fe5996bd4d7d7e192bcb7e231bc762f9f240c76766535b9"
        ]
    , _poolInfoRetirement = [ "252f622976d39e646815db75a77289cf16df4ad2b287dd8e3a889ce14c13d1a8" ]
    }


poolHistorySample = [r|
{
  "epoch": 233,
  "blocks": 22,
  "active_stake": "20485965693569",
  "active_size": 1.2345,
  "delegators_count": 115,
  "rewards": "206936253674159",
  "fees": "1290968354"
}
|]

poolHistoryExpected =
  PoolHistory
    { _poolHistoryEpoch = 233
    , _poolHistoryBlocks = 22
    , _poolHistoryActiveStake = 20485965693569
    , _poolHistoryActiveSize = 1.2345
    , _poolHistoryDelegatorsCount = 115
    , _poolHistoryRewards = 206936253674159
    , _poolHistoryFees = 1290968354
    }

poolMetadataSample = [r|
{
  "pool_id": "pool1pu5jlj4q9w9jlxeu370a3c9myx47md5j5m2str0naunn2q3lkdy",
  "hex": "0f292fcaa02b8b2f9b3c8f9fd8e0bb21abedb692a6d5058df3ef2735",
  "url": "https://stakenuts.com/mainnet.json",
  "hash": "47c0c68cb57f4a5b4a87bad896fc274678e7aea98e200fa14a1cb40c0cab1d8c",
  "ticker": "NUTS",
  "name": "Stake Nuts",
  "description": "The best pool ever",
  "homepage": "https://stakentus.com/"
}
|]

poolMetadataExpected =
  PoolMetadata
    { _poolMetadataPoolId = "pool1pu5jlj4q9w9jlxeu370a3c9myx47md5j5m2str0naunn2q3lkdy"
    , _poolMetadataHex = "0f292fcaa02b8b2f9b3c8f9fd8e0bb21abedb692a6d5058df3ef2735"
    , _poolMetadataUrl = Just "https://stakenuts.com/mainnet.json"
    , _poolMetadataHash = Just "47c0c68cb57f4a5b4a87bad896fc274678e7aea98e200fa14a1cb40c0cab1d8c"
    , _poolMetadataTicker = Just "NUTS"
    , _poolMetadataName = Just "Stake Nuts"
    , _poolMetadataDescription = Just "The best pool ever"
    , _poolMetadataHomepage = Just "https://stakentus.com/"
    }

poolRelaySample = [r|
{
  "ipv4": "4.4.4.4",
  "ipv6": "https://stakenuts.com/mainnet.json",
  "dns": "relay1.stakenuts.com",
  "dns_srv": "_relays._tcp.relays.stakenuts.com",
  "port": 3001
}
|]

poolRelayExpected =
  PoolRelay
    { _poolRelayIpv4 = Just "4.4.4.4"
    , _poolRelayIpv6 = Just "https://stakenuts.com/mainnet.json"
    , _poolRelayDns = Just "relay1.stakenuts.com"
    , _poolRelayDnsSrv = Just "_relays._tcp.relays.stakenuts.com"
    , _poolRelayPort = 3001
    }

poolDelegatorsSample = [r|
[
  {
    "address": "stake1ux4vspfvwuus9uwyp5p3f0ky7a30jq5j80jxse0fr7pa56sgn8kha",
    "live_stake": "1137959159981411"
  },
  {
    "address": "stake1uylayej7esmarzd4mk4aru37zh9yz0luj3g9fsvgpfaxulq564r5u",
    "live_stake": "16958865648"
  },
  {
    "address": "stake1u8lr2pnrgf8f7vrs9lt79hc3sxm8s2w4rwvgpncks3axx6q93d4ck",
    "live_stake": "18605647"
  }
]
|]

poolDelegatorsExpected =
  [ PoolDelegator
      { _poolDelegatorAddress = "stake1ux4vspfvwuus9uwyp5p3f0ky7a30jq5j80jxse0fr7pa56sgn8kha"
      , _poolDelegatorLiveStake = 1137959159981411
      }
  , PoolDelegator
      { _poolDelegatorAddress = "stake1uylayej7esmarzd4mk4aru37zh9yz0luj3g9fsvgpfaxulq564r5u"
      , _poolDelegatorLiveStake = 16958865648
      }
  , PoolDelegator
      { _poolDelegatorAddress = "stake1u8lr2pnrgf8f7vrs9lt79hc3sxm8s2w4rwvgpncks3axx6q93d4ck"
      , _poolDelegatorLiveStake = 18605647
      }
  ]

poolUpdatesSample = [r|
[
  {
    "tx_hash": "6804edf9712d2b619edb6ac86861fe93a730693183a262b165fcc1ba1bc99cad",
    "cert_index": 0,
    "action": "registered"
  },
  {
    "tx_hash": "9c190bc1ac88b2ab0c05a82d7de8b71b67a9316377e865748a89d4426c0d3005",
    "cert_index": 0,
    "action": "deregistered"
  },
  {
    "tx_hash": "e14a75b0eb2625de7055f1f580d70426311b78e0d36dd695a6bdc96c7b3d80e0",
    "cert_index": 1,
    "action": "registered"
  }
]
|]

poolUpdatesExpected =
    [ PoolUpdate
        { _poolUpdateTxHash = "6804edf9712d2b619edb6ac86861fe93a730693183a262b165fcc1ba1bc99cad"
        , _poolUpdateCertIndex = 0
        , _poolUpdateAction = PoolRegistered
        }
    , PoolUpdate
        { _poolUpdateTxHash = "9c190bc1ac88b2ab0c05a82d7de8b71b67a9316377e865748a89d4426c0d3005"
        , _poolUpdateCertIndex = 0
        , _poolUpdateAction = PoolDeregistered
        }
    , PoolUpdate
        { _poolUpdateTxHash = "e14a75b0eb2625de7055f1f580d70426311b78e0d36dd695a6bdc96c7b3d80e0"
        , _poolUpdateCertIndex = 1
        , _poolUpdateAction = PoolRegistered
        }
    ]