diff options
| author | Pierre Weis <Pierre.Weis@inria.fr> | 2008-09-09 06:38:51 +0000 |
|---|---|---|
| committer | Pierre Weis <Pierre.Weis@inria.fr> | 2008-09-09 06:38:51 +0000 |
| commit | 5db36dd331934ae9bf48484f2b078c66a099c271 (patch) | |
| tree | c0164c57f22a502480cce787501c429b29fb185e /test | |
| parent | 2c1693ee00592b37efb1bee39d9aac18348bbfeb (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.ml | 27 |
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) +;; + |