bolt7

commit 920e3898f367b354ba5fad0ca4a04cc7b721d022
parent b9d14a4a361f734da28b9a388e5e26f1b1266ae3
Author: Jared Tobin <jared@jtobin.io>
Date:   Sat, 10 Oct 2026 13:22:36 +0400

test: validateReplyChannelRange regression tests

zlib, unknown-encoding and partial encoded_short_ids fail with
ValidateScidEncoding; ascending and descending lists behave as
before.

Diffstat:
M
test/Main.hs
 | 
33
+++++++++++++++++++++++++++++++++

1 file changed, 33 insertions(+), 0 deletions(-)
diff --git a/test/Main.hs b/test/Main.hs
@@ -790,8 +790,41 @@ validation_tests = testGroup "Validation" [
               }
         validateQueryChannelRange msg @?= Left ValidateBlockOverflow
     ]
+  , testGroup "ReplyChannelRange" [
+      testCase "ascending short_channel_ids pass" $
+        validateReplyChannelRange (testReplyRange
+          (encodeShortChannelIdList [mkScid 1 0 0, mkScid 2 0 0]))
+          @?= Right ()
+    , testCase "rejects descending short_channel_ids" $
+        validateReplyChannelRange (testReplyRange
+          (encodeShortChannelIdList [mkScid 2 0 0, mkScid 1 0 0]))
+          @?= Left ValidateScidNotAscending
+    , testCase "rejects zlib encoding (type 1)" $
+        validateReplyChannelRange (testReplyRange (BS.cons 1
+          (scidToBytes (mkScid 2 0 0) <> scidToBytes (mkScid 1 0 0))))
+          @?= Left ValidateScidEncoding
+    , testCase "rejects an unknown encoding type" $
+        validateReplyChannelRange (testReplyRange (BS.cons 2
+          (scidToBytes (mkScid 1 0 0))))
+          @?= Left ValidateScidEncoding
+    , testCase "rejects a partial short_channel_id" $
+        validateReplyChannelRange (testReplyRange (BS.cons 0
+          (scidToBytes (mkScid 1 0 0) <> BS.replicate 7 0)))
+          @?= Left ValidateScidEncoding
+    ]
   ]
 
+-- | A reply_channel_range fixture with the given encoded_short_ids.
+testReplyRange :: BS.ByteString -> ReplyChannelRange
+testReplyRange scids = ReplyChannelRange
+  { replyRangeChainHash    = testChainHash
+  , replyRangeFirstBlock   = BlockHeight 0
+  , replyRangeNumBlocks    = BlockCount 10
+  , replyRangeSyncComplete = 1
+  , replyRangeData         = scids
+  , replyRangeTlvs         = emptyTlvs
+  }
+
 -- Error Tests -----------------------------------------------------------------
 
 error_tests :: TestTree