LndClient.LndTest

BTC

newtype BtcUrl

Constructors

BtcUrl String

newtype BtcLogin

Constructors

BtcLogin ByteString

newtype BtcPassword

Constructors

BtcPassword ByteString

data BtcEnv

Constructors

BtcEnv

Fields

• btcUrl :: BtcUrl
• btcLogin :: BtcLogin
• btcPassword :: BtcPassword

newBtcClient :: MonadIO m => BtcEnv -> m Client

TestEnv

data TestEnv

newTestEnv :: (KatipContext m, MonadUnliftIO m) => LndEnv -> NodeLocation -> m TestEnv

spawnLinkChannelWatcher :: (KatipContext m, MonadUnliftIO m) => LndEnv -> m (Watcher () ChannelEventUpdate)

spawnLinkInvoiceWatcher :: (KatipContext m, MonadUnliftIO m) => LndEnv -> m (Watcher SubscribeInvoicesRequest Invoice)

spawnLinkSingleInvoiceWatcher :: (KatipContext m, MonadUnliftIO m) => LndEnv -> m (Watcher RHash Invoice)

Class

class (KatipContext m, MonadUnliftIO m, Ord owner, Enum owner, Bounded owner, Show owner) => LndTest m owner where

Minimal complete definition

getBtcClient, getTestEnv

Methods

getBtcClient :: owner -> m Client

getTestEnv :: owner -> m TestEnv

getLndEnv :: owner -> m LndEnv

getSev :: owner -> Severity -> m Severity

getNodeLocation :: owner -> m NodeLocation

getChannelTChan :: owner -> m (TChan ((), ChannelEventUpdate))

getInvoiceTChan :: owner -> m (TChan (SubscribeInvoicesRequest, Invoice))

getSingleInvoiceTChan :: owner -> m (TChan (RHash, Invoice))

watchSingleInvoice :: owner -> RHash -> m ()

TestUtils

mine :: forall m owner. LndTest m owner => Int -> owner -> m ()

mine1 :: forall m owner. LndTest m owner => Proxy owner -> m ()

syncWallets :: forall m owner. LndTest m owner => Proxy owner -> m (Either LndError ())

syncPendingChannels :: forall m owner. LndTest m owner => Proxy owner -> m ()

syncPendingChannelsFor :: forall m owner. LndTest m owner => owner -> m (Either LndError ())

sendTestPayment :: LndTest m owner => MSat -> owner -> owner -> m ()

receiveClosedChannels :: forall m owner. LndTest m owner => Proxy owner -> [ChannelPoint] -> m (Either LndError ())

receiveActiveChannel :: LndTest m owner => Proxy owner -> ChannelPoint -> TChan ((), ChannelEventUpdate) -> m (Either LndError ())

receiveInvoice :: (MonadUnliftIO m, KatipContext m) => RHash -> InvoiceState -> TChan (a, Invoice) -> m (Either LndError ())

LowLevel setup

lazyMineInitialCoins :: forall m owner. LndTest m owner => Proxy owner -> m ()

lazyConnectNodes :: forall m owner. LndTest m owner => Proxy owner -> m ()

watchDefaults :: forall m owner. LndTest m owner => Proxy owner -> m ()

cancelAllInvoices :: forall m owner. LndTest m owner => Proxy owner -> m ()

closeAllChannels :: forall m owner. LndTest m owner => Proxy owner -> m ()

HighLevel setip

setupZeroChannels :: LndTest m owner => Proxy owner -> m ()

setupOneChannel :: forall m owner. LndTest m owner => owner -> owner -> m ChannelPoint

Misc

liftLndResult :: MonadIO m => Either LndError a -> m a

liftMaybe :: MonadIO m => String -> Maybe a -> m a

purgeChan :: MonadUnliftIO m => TChan a -> m ()

ignore2 :: Monad m => a -> b -> m ()

ignore3 :: Monad m => a -> b -> c -> m ()