Add another test case

2022-06-14 10:41:15 -04:00 · 2022-06-14 10:41:15 -04:00 · 1fc4a1faba
commit 1fc4a1faba
parent 59bb959608
1 changed files with 4 additions and 0 deletions
--- a/test/Main.hs
+++ b/test/Main.hs
@ -260,6 +260,10 @@ tests = testGroup "Tests"
          Chunks.concat (run 16 (word64LEB128 16))
          @=?
          Latin1.fromString "\x10"
+      , THU.testCase "1000000" $
+          Chunks.concat (run 16 (word64LEB128 1000000))
+          @=?
+          Exts.fromList [0xc0,0x84,0x3d]
      , THU.testCase "deadbeef-smile" $ do
        let inp = Latin1.fromString "\xDE\xAD\xBE\xEF"
        (Chunks.concat . run 16) (sevenEightSmile inp)