mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-10 21:23:57 -05:00
remove test that depends on 4.02
This commit is contained in:
parent
1b200ff695
commit
0c7280a8f4
1 changed files with 0 additions and 6 deletions
|
|
@ -79,12 +79,6 @@ let text out (s:string): unit =
|
||||||
"a b\nc" (sprintf_no_color "@[<h>%a@]%!" text "a b\nc")
|
"a b\nc" (sprintf_no_color "@[<h>%a@]%!" text "a b\nc")
|
||||||
*)
|
*)
|
||||||
|
|
||||||
(*$Q
|
|
||||||
Q.(printable_string) (fun s -> \
|
|
||||||
sprintf_no_color "@[<hv2>%a@]%!" text s = \
|
|
||||||
sprintf_no_color "@[<hv2>%a@]%!" Format.pp_print_text s)
|
|
||||||
*)
|
|
||||||
|
|
||||||
let list ?(sep=return ",@ ") pp fmt l =
|
let list ?(sep=return ",@ ") pp fmt l =
|
||||||
let rec pp_list l = match l with
|
let rec pp_list l = match l with
|
||||||
| x::((_::_) as l) ->
|
| x::((_::_) as l) ->
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue