+1 -1

test/test_fsr.ml

reviewed

··· 166 166 Fsr.v ~alarm:true ~bad_sn:false ~bad_mac:true ~bad_sa:false ~spi:0x42 167 167 ~arsn_lsb:0xFF 168 168 in 169 169 - let s = Format.asprintf "%a" Fsr.pp t in 169 169 + let s = Fmt.str "%a" Fsr.pp t in 170 170 let contains sub = 171 171 let rec check i = 172 172 if i + String.length sub > String.length s then false

+1

test/test_fsr.mli

reviewed

··· 1 1 val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the FSR test suite. *)