diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2015-02-06 21:54:40 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2015-02-06 21:54:40 +0000 |
| commit | 97b2fe76ae7d27c42cd1fead8dee9e4d351cc1a3 (patch) | |
| tree | 58da80c10da4992bb57dc34977434f457d4895ee | |
| parent | a0727de0f365f96f9e6908628976e9fcac6e09f3 (diff) | |
| download | ocaml-97b2fe76ae7d27c42cd1fead8dee9e4d351cc1a3.tar.gz | |
replace use of deprecated String.uppercase
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@15816 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | testsuite/tests/lib-scanf/tscanf.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/lib-scanf/tscanf.ml b/testsuite/tests/lib-scanf/tscanf.ml index 33054b66e7..9dddd50da8 100644 --- a/testsuite/tests/lib-scanf/tscanf.ml +++ b/testsuite/tests/lib-scanf/tscanf.ml @@ -1351,7 +1351,7 @@ test (test54 ()) (* Creating digests for files. *) let add_digest_ib ob ib = - let digest s = String.uppercase (Digest.to_hex (Digest.string s)) in + let digest s = String.uppercase_ascii (Digest.to_hex (Digest.string s)) in let scan_line ib f = Scanf.bscanf ib "%[^\n\r]\n" f in let output_line_digest s = Buffer.add_string ob s; |