summaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorPierre Weis <Pierre.Weis@inria.fr>2008-09-09 06:38:51 +0000
committerPierre Weis <Pierre.Weis@inria.fr>2008-09-09 06:38:51 +0000
commit5db36dd331934ae9bf48484f2b078c66a099c271 (patch)
treec0164c57f22a502480cce787501c429b29fb185e /test
parent2c1693ee00592b37efb1bee39d9aac18348bbfeb (diff)
A testbed for module Buffer.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@8999 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'test')
-rw-r--r--test/Moretest/tbuffer.ml27
1 files changed, 27 insertions, 0 deletions
diff --git a/test/Moretest/tbuffer.ml b/test/Moretest/tbuffer.ml
new file mode 100644
index 000000000..d48268db2
--- /dev/null
+++ b/test/Moretest/tbuffer.ml
@@ -0,0 +1,27 @@
+(* Dummy substitute function. *)
+
+open Testing;;
+open Buffer;;
+
+let identity s = s;;
+
+let b = Buffer.create 100;;
+
+(* Pattern with a '\\' character in it. *)
+let pat0 = "\\\\a" in
+let n0 = String.length pat0 in
+
+Buffer.add_substitute b identity pat0;
+
+test (String.length (Buffer.contents b) = n0)
+;;
+
+(* Pattern with a '\\' character at the end. *)
+let pat1 = "b\\" in
+let n1 = String.length pat1 in
+
+Buffer.clear b;
+Buffer.add_substitute b identity pat1;
+test (String.length (Buffer.contents b) = n1)
+;;
+