Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Adding more tests on character ranges. 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5986 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Pierre Weis 2003-11-30 22:44:03 +00:00
parent 464864e38e
commit b55dda9eaf
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
test/Moretest/tscanf.ml
View File

@ -766,10 +766,33 @@ let test39 () =
test (test39 ());;
(* Testing ranges. *)
let test40 () =
let s = "cba" in
let ib = Scanning.from_string s in
bscanf ib "%[^ab]%s%!" (fun s1 s2 -> s1 = "c" && s2 = "ba");;
test (test40 ());;
let test41 () =
let s = "cba" in
let ib = Scanning.from_string s in
bscanf ib "%[^abc]%[cba]%!" (fun s1 s2 -> s1 = "" && s2 = "cba");;
test (test41 ());;
let test42 () =
let s = "defcbaaghi" in
let ib = Scanning.from_string s in
bscanf ib "%[^abc]%[cba]%s%!" (fun s1 s2 s3 ->
s1 = "def" && s2 = "cbaa" && s3 = "ghi");;
test (test42 ());;
(*******
print_string "Test number is ";
print_int !test_num; print_string ". It should be 40.";
print_int !test_num; print_string ". It should be 42.";
print_newline();;
To be continued.