+1 -1

ocaml-rice/fuzz/fuzz_rice.ml

reviewed

··· 115 115 end 116 116 117 117 let suite = 118 118 - ( "ccsds-121", 118 118 + ( "rice", 119 119 [ 120 120 test_case "roundtrip 8-bit" [ bytes ] test_roundtrip_8; 121 121 test_case "roundtrip 16-bit" [ bytes ] test_roundtrip_16;

+1 -1

ocaml-rice/lib/rice.ml

reviewed

··· 16 16 17 17 let config ?(block_size = 16) ?(bits_per_sample = 16) ?rsi () = 18 18 if block_size < 8 || block_size > 64 then 19 19 - invalid_arg (Fmt.str "block_size must be in 8..64, got %d" block_size); 19 19 + Fmt.invalid_arg "block_size must be in 8..64, got %d" block_size); 20 20 if bits_per_sample < 1 || bits_per_sample > 32 then 21 21 invalid_arg 22 22 (Fmt.str "bits_per_sample must be in 1..32, got %d" bits_per_sample);