From 64831611d5d169e12f5079cc15449fc74f74e233 Mon Sep 17 00:00:00 2001 From: Calascibetta Romain Date: Mon, 18 Sep 2023 10:36:32 +0200 Subject: [PATCH] Fix our last test about LZO from MirageVPN --- lib/lzo.ml | 4 ++-- test/test_lzo.ml | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) 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 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 () ] )