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:
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