From 97b2fe76ae7d27c42cd1fead8dee9e4d351cc1a3 Mon Sep 17 00:00:00 2001 From: Damien Doligez Date: Fri, 6 Feb 2015 21:54:40 +0000 Subject: replace use of deprecated String.uppercase git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@15816 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- testsuite/tests/lib-scanf/tscanf.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- cgit v1.2.1