Repository: mirage/decompress (ocaml)

Issue:

Pull request description:
Fix our last test about LZO from MirageVPN

Patch:
diff --git a/lib/lzo.ml b/lib/lzo.ml
index 97144ff..42cc409 100644
--- a/lib/lzo.ml
+++ b/lib/lzo.ml
@@ -334,7 +334,7 @@ let fiber : (unit, [> error ]) t =
     read byte >>= fun h ->
     let state = State.of_int (Char.code chr land 0b11) in
     let off = (Char.code h lsl 2) + (Char.code chr lsr 2) + 2049 in
-    copy ~off ~len:1 state
+    copy ~off ~len:1 state >>= fun () -> m
   | '\016' .. '\031', _ ->
     let length = Char.code chr land 0b111 in
     let with_length len =
@@ -390,7 +390,7 @@ let fiber : (unit, [> error ]) t =
     transmit ~len:4 State._0 >>= fun () -> fiber
   | '\022' .. '\255' as chr ->
     let len = Char.code chr - 17 in
-    junk byte >>= fun () -> transmit ~len State._0
+    junk byte >>= fun () -> transmit ~len State._0 >>= fun () -> fiber
 
 let uncompress input output : (bigstring, [> error ]) result =
   let v = {i= input; i_pos= 0; o= output; o_pos= 0; state= State._0} in


Test patch:
diff --git a/test/test_lzo.ml b/test/test_lzo.ml
index b459fa8..801e8f5 100644
--- a/test/test_lzo.ml
+++ b/test/test_lzo.ml
@@ -604,7 +604,7 @@ let () =
       ( "lzo"
       , [
           test_lzo_0 (); test_lzo_1 (); test_lzo_2 (); test_lzo_3 ()
-        ; test_lzo_4 (); test_lzo_5 (); test_lzo_6 () (* ; test_lzo_7 () *)
+        ; test_lzo_4 (); test_lzo_5 (); test_lzo_6 () ; test_lzo_7 ()
         ; test_lzo_8 (); test_lzo_9 (); test_lzo_10 (); test_lzo_11 ()
         ; test_lzo_12 (); test_lzo_13 (); test_lzo_14 (); test_lzo_15 ()
         ] )