1 files changed, 5 insertions(+), 1 deletions(-)

M tests/bare-tests.lisp

@@ 42,7 42,11 @@
   (test-binary-type uint
     :stream (buf #(#x8B #xCA #x99 #x01))
     :result (ok (= #x26650B))
-    :bytes 4))
+    :bytes 4)
+  (test-binary-type uint
+    :stream (buf #(#xFF #xFF #xFF #xFF #xFF #xFF #xFF #xFF #x3F))
+    :result (ok (= #x3FFFFFFFFFFFFFFF))
+    :bytes 9))
 
 (deftest read-u8
   (test-binary-type u8