Sync variable-length-quantity tests (#432)

Author: BNAndras

exercises/practice/variable-length-quantity/.meta/tests.toml

@@ -15,6 +15,9 @@ description = "Encode a series of integers, producing a series of bytes. -> zero
 [be44d299-a151-4604-a10e-d4b867f41540]
 description = "Encode a series of integers, producing a series of bytes. -> arbitrary single byte"
 
+[890bc344-cb80-45af-b316-6806a6971e81]
+description = "Encode a series of integers, producing a series of bytes. -> asymmetric single byte"
+
 [ea399615-d274-4af6-bbef-a1c23c9e1346]
 description = "Encode a series of integers, producing a series of bytes. -> largest single byte"
 
@@ -24,6 +27,9 @@ description = "Encode a series of integers, producing a series of bytes. -> smal
 [63955a49-2690-4e22-a556-0040648d6b2d]
 description = "Encode a series of integers, producing a series of bytes. -> arbitrary double byte"
 
+[4977d113-251b-4d10-a3ad-2f5a7756bb58]
+description = "Encode a series of integers, producing a series of bytes. -> asymmetric double byte"
+
 [29da7031-0067-43d3-83a7-4f14b29ed97a]
 description = "Encode a series of integers, producing a series of bytes. -> largest double byte"
 
@@ -33,6 +39,9 @@ description = "Encode a series of integers, producing a series of bytes. -> smal
 [5df0bc2d-2a57-4300-a653-a75ee4bd0bee]
 description = "Encode a series of integers, producing a series of bytes. -> arbitrary triple byte"
 
+[6731045f-1e00-4192-b5ae-98b22e17e9f7]
+description = "Encode a series of integers, producing a series of bytes. -> asymmetric triple byte"
+
 [f51d8539-312d-4db1-945c-250222c6aa22]
 description = "Encode a series of integers, producing a series of bytes. -> largest triple byte"
 
@@ -42,6 +51,9 @@ description = "Encode a series of integers, producing a series of bytes. -> smal
 [11ed3469-a933-46f1-996f-2231e05d7bb6]
 description = "Encode a series of integers, producing a series of bytes. -> arbitrary quadruple byte"
 
+[b45ef770-cbba-48c2-bd3c-c6362679516e]
+description = "Encode a series of integers, producing a series of bytes. -> asymmetric quadruple byte"
+
 [d5f3f3c3-e0f1-4e7f-aad0-18a44f223d1c]
 description = "Encode a series of integers, producing a series of bytes. -> largest quadruple byte"
 
@@ -51,6 +63,9 @@ description = "Encode a series of integers, producing a series of bytes. -> smal
 [5f34ff12-2952-4669-95fe-2d11b693d331]
 description = "Encode a series of integers, producing a series of bytes. -> arbitrary quintuple byte"
 
+[9be46731-7cd5-415c-b960-48061cbc1154]
+description = "Encode a series of integers, producing a series of bytes. -> asymmetric quintuple byte"
+
 [7489694b-88c3-4078-9864-6fe802411009]
 description = "Encode a series of integers, producing a series of bytes. -> maximum 32-bit integer input"
 

exercises/practice/variable-length-quantity/variable-length-quantity-test.rkt

@@ -18,6 +18,10 @@
                       (encode 64)
                       '(64))
 
+        (test-equal? "asymmetric single byte"
+                      (encode 83)
+                      '(83))
+
         (test-equal? "largest single byte"
                       (encode 127)
                       '(127))
@@ -31,6 +35,10 @@
                       (encode 8192)
                       '(192 0))
 
+        (test-equal? "asymmetric double byte"
+                      (encode 173)
+                      '(129 45))
+
         (test-equal? "largest double byte"
                       (encode 16383)
                       '(255 127))
@@ -44,6 +52,14 @@
                       (encode 1048576)
                       '(192 128 0))
 
+        (test-equal? "asymmetric triple byte"
+                      (encode 120220)
+                      '(135 171 28))
+
+        (test-equal? "largest triple byte"
+                      (encode 2097151)
+                      '(255 255 127))
+
         ;;; 4-byte results
         (test-equal? "smallest quadruple byte"
                       (encode 2097152)
@@ -53,6 +69,10 @@
                       (encode 134217728)
                       '(192 128 128 0))
 
+        (test-equal? "asymmetric quadruple byte"
+                      (encode 3503876)
+                      '(129 213 238 4))
+
         (test-equal? "largest quadruple byte"
                       (encode 268435455)
                       '(255 255 255 127))
@@ -66,6 +86,10 @@
                       (encode 4278190080)
                       '(143 248 128 128 0))
 
+        (test-equal? "asymmetric quintuple byte"
+                      (encode 2254790917)
+                      '(136 179 149 194 5))
+
         (test-equal? "maximum 32-bit integer input"
                       (encode 4294967295)
                       '(143 255 255 255 127))
@@ -124,5 +148,4 @@
 
   (begin
     (run-tests encode-tests)
-    (run-tests decode-tests)
-    ))
+    (run-tests decode-tests)))