ppad-bolt2-0.1.0: bench/Weight.hs

module Main where

import Fixtures
import Lightning.Protocol.BOLT2
import Weigh

main :: IO ()
main = case fixtures of
  Nothing -> fail "invalid fixtures"
  Just fx -> mainWith $ do
    func "baseline (weigh overhead)" (+ (1 :: Int)) 1
    wgroup "open_channel" $ do
      func "encode" encode_open_channel (fx_open_channel fx)
      func "decode" decode_open_channel (fx_open_channel_bytes fx)
    wgroup "accept_channel2" $ do
      func "encode" encode_accept_channel2 (fx_accept_channel2 fx)
      func "decode" decode_accept_channel2 (fx_accept_channel2_bytes fx)
    wgroup "tx_signatures" $ do
      func "encode" encode_tx_signatures (fx_tx_signatures fx)
      func "decode" decode_tx_signatures (fx_tx_signatures_bytes fx)
    wgroup "closing_complete" $ do
      func "encode" encode_closing_complete (fx_closing_complete fx)
      func "decode" decode_closing_complete (fx_closing_complete_bytes fx)
    wgroup "update_add_htlc" $ do
      func "encode" encode_update_add_htlc (fx_update_add_htlc fx)
      func "decode" decode_update_add_htlc (fx_update_add_htlc_bytes fx)
      func "encode_message" encode_message
        (MsgUpdateAddHtlc (fx_update_add_htlc fx))
      func "decode_message" decode_message (fx_update_add_htlc_wire fx)
    wgroup "update_fulfill_htlc" $ do
      func "encode" encode_update_fulfill_htlc (fx_update_fulfill_htlc fx)
      func "decode" decode_update_fulfill_htlc
        (fx_update_fulfill_htlc_bytes fx)
    wgroup "commitment_signed" $ do
      func "encode (0 htlcs)" encode_commitment_signed
        (fx_commitment_signed fx)
      func "decode (0 htlcs)" decode_commitment_signed
        (fx_commitment_signed_bytes fx)
      func "encode (483 htlcs)" encode_commitment_signed
        (fx_commitment_signed_483 fx)
      func "decode (483 htlcs)" decode_commitment_signed
        (fx_commitment_signed_483_bytes fx)
    wgroup "revoke_and_ack" $ do
      func "encode" encode_revoke_and_ack (fx_revoke_and_ack fx)
      func "decode" decode_revoke_and_ack (fx_revoke_and_ack_bytes fx)
    wgroup "channel_reestablish" $ do
      func "encode" encode_channel_reestablish (fx_channel_reestablish fx)
      func "decode" decode_channel_reestablish
        (fx_channel_reestablish_bytes fx)