bolt7

Routing gossip protocol, per BOLT #7 (docs.ppad.tech/bolt7).
git clone git://git.ppad.tech/bolt7.git
Log | Files | Refs | README | LICENSE

commit 497a0a63a90eff9d4aea7ebf8f9cf4a178841564
parent c0e79c96c9d92301db4d829af50c5728a9f5a6c4
Author: Jared Tobin <jared@jtobin.io>
Date:   Sat, 10 Oct 2026 15:05:15 +0400

test: wrap lines over 80 characters

Diffstat:
Mtest/Main.hs | 12++++++++----
Mtest/Vectors.hs | 2+-
2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/test/Main.hs b/test/Main.hs @@ -623,7 +623,8 @@ channel_update_tests = testGroup "channel_update" [ decode_channel_update (wire <> "\xfd\x00\x01\x00") @?= Left (DecodeTlvError TlvNonMinimalBigSize) , testCase "rejects truncated input" $ - decode_channel_update (BS.replicate 50 0) @?= Left DecodeInsufficientBytes + decode_channel_update (BS.replicate 50 0) + @?= Left DecodeInsufficientBytes ] -- queries -------------------------------------------------------------------- @@ -712,7 +713,8 @@ query_tests = testGroup "queries" [ testCase "query_flags" $ do fx <- fixtures let ss = take 2 (fx_scids fx) - wire = qsci_wire fx (encoded_ids ss) (BS.pack [1, 3, 0, 0x01, 0x1f]) + wire = qsci_wire fx (encoded_ids ss) + (BS.pack [1, 3, 0, 0x01, 0x1f]) m = QueryShortChannelIds (fx_chain fx) ss (Just [QueryFlags 1, QueryFlags 31]) BOLT1.empty_tlv_stream decode_query_short_channel_ids wire @?= Right m @@ -981,7 +983,8 @@ validation_tests = testGroup "validation" [ v4 <- must "ipv4" (ipv4_addr "\127\0\0\1") h1 <- must "hostname" (hostname "a.example.com") h2 <- must "hostname" (hostname "b.example.com") - validate_node_announcement (node_fixture fx [AddrIPv4 v4 1, AddrDNS h1 1]) + validate_node_announcement + (node_fixture fx [AddrIPv4 v4 1, AddrDNS h1 1]) @?= Right () validate_node_announcement (node_fixture fx [AddrDNS h1 1, AddrDNS h2 1]) @?= Left ValidateMultipleDns @@ -997,7 +1000,8 @@ validation_tests = testGroup "validation" [ , testCase "query_channel_range block range" $ do fx <- fixtures let q f n = validate_query_channel_range - (QueryChannelRange (fx_chain fx) f n Nothing BOLT1.empty_tlv_stream) + (QueryChannelRange (fx_chain fx) f n Nothing + BOLT1.empty_tlv_stream) q 600000 10000 @?= Right () q 600000 0 @?= Left ValidateZeroBlocks q maxBound 1 @?= Right () diff --git a/test/Vectors.hs b/test/Vectors.hs @@ -21,7 +21,7 @@ module Vectors ( import qualified Data.ByteString as BS import Data.Word (Word32) --- mainnet gossip -------------------------------------------------------------- +-- mainnet gossip ------------------------------------------------------------- -- Real mainnet channel_announcements and channel_updates, as captured -- from a peer. Payloads exclude the 2-byte message type. The digests