tests: Fix tests for serialization of negative :int32 values

diff --git a/tests/serialization-tests.lisp b/tests/serialization-tests.lisp
index 9aa07d2c2543aaaea1c68c9291de6a8c3246dd49..cf66a25f3170dec3c8561d98e01e1dea13d5d7aa 100644 (file)
--- a/tests/serialization-tests.lisp
+++ b/tests/serialization-tests.lisp
@@ -106,7 +106,7 @@
           (tser6  (serialize-object-to-bytes test6 'basic-test6))
           (tser7  (serialize-object-to-bytes test7 'basic-test7)))
       (assert-true (equalp tser1 #(#x08 #x96 #x01)))
-      (assert-true (equalp tser1b #(#x08 #xEA #xFE #xFF #xFF #x0F)))
+      (assert-true (equalp tser1b #(#x08 #xEA #xFE #xFF #xFF #xFF #xFF #xFF #xFF #xFF #x01)))
       (assert-true (equalp tser2 #(#x12 #x07 #x74 #x65 #x73 #x74 #x69 #x6E #x67)))
       (assert-true (equalp tser3 #(#x1A #x03 #x08 #x96 #x01)))
       (assert-true (equalp tser4 #(#x1A #x09 #x12 #x07 #x74 #x65 #x73 #x74 #x69 #x6E #x67)))
@@ -180,7 +180,7 @@
           (tser6  (serialize-object-to-bytes test6 'basic-test6))
           (tser7  (serialize-object-to-bytes test7 'basic-test7)))
       (assert-true (equalp tser1 #(#x08 #x96 #x01)))
-      (assert-true (equalp tser1b #(#x08 #xEA #xFE #xFF #xFF #x0F)))
+      (assert-true (equalp tser1b #(#x08 #xEA #xFE #xFF #xFF #xFF #xFF #xFF #xFF #xFF #x01)))
       (assert-true (equalp tser2 #(#x12 #x07 #x74 #x65 #x73 #x74 #x69 #x6E #x67)))
       (assert-true (equalp tser3 #(#x1A #x03 #x08 #x96 #x01)))
       (assert-true (equalp tser4 #(#x1A #x09 #x12 #x07 #x74 #x65 #x73 #x74 #x69 #x6E #x67)))

diff --git a/tests/wire-tests.lisp b/tests/wire-tests.lisp
index eb9ba09610d79e2c22ce280e6ef9f83166f6feb4..3add1c9feb839915432e4982c8ab12584d85cf49 100644 (file)
--- a/tests/wire-tests.lisp
+++ b/tests/wire-tests.lisp
@@ -114,8 +114,8 @@
             '((#x0 (#x00))
               (#x1 (#x01))
               (#x7fffffff (#xff #xff #xff #xff #x07))
-              (#x-80000000 (#x80 #x80 #x80 #x80 #x08))
-              (#x-1 (#xff #xff #xff #xff #x0f))))
+              (#x-80000000 (#x80 #x80 #x80 #x80 #x80 #x80 #x80 #x80 #x80 #x08))
+              (#x-1 (#xff #xff #xff #xff #xff #xff #xff #xff #xff #x0f))))
     (verify #'encode-fixed32
             #'decode-fixed32
             '((#x0 (#x00 #x00 #x00 #x00))