blob: 64176d88f82b0ffd4f410a6431c1690a960e1629 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
(*************************************************************************)
(* *)
(* OCaml *)
(* *)
(* Pierre Weis, projet Estime, INRIA Rocquencourt *)
(* *)
(* Copyright 2009 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *)
(* under the terms of the Q Public License version 1.0. *)
(* *)
(*************************************************************************)
(*
A testbed file for the module Format.
*)
open Testing;;
open Format;;
(* BR#4769 *)
let test0 () =
let b = Buffer.create 10 in
let msg = "Hello world!" in
Format.bprintf b "%s" msg;
let s = Buffer.contents b in
s = msg
;;
test (test0 ())
;;
|
