diff options
| author | Pierre Weis <Pierre.Weis@inria.fr> | 2015-09-21 17:40:50 +0000 |
|---|---|---|
| committer | Pierre Weis <Pierre.Weis@inria.fr> | 2015-09-21 17:40:50 +0000 |
| commit | 571b7e49e63d832674fbe8abe8bb8a3a29a82259 (patch) | |
| tree | 5c3cfe2baf825bd878a38adc26df7395cd68b4c3 | |
| parent | bdc8e004def151aaeebeca3cd40cabc5002cc8f5 (diff) | |
| download | ocaml-571b7e49e63d832674fbe8abe8bb8a3a29a82259.tar.gz | |
Consistently quoting quote and doublequote into string and character litterals.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@16435 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | testsuite/tests/lib-string/test_string.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/lib-string/test_string.ml b/testsuite/tests/lib-string/test_string.ml index 5043915085..17fdb3bd94 100644 --- a/testsuite/tests/lib-string/test_string.ml +++ b/testsuite/tests/lib-string/test_string.ml @@ -23,7 +23,7 @@ let reference n = else if n = 9 then "\\t" else if n = 10 then "\\n" else if n = 13 then "\\r" - else if n = Char.code '"' then "\\\"" + else if n = Char.code '\"' then "\\\"" else if n = Char.code '\\' then "\\\\" else if n < 32 || n > 126 then Printf.sprintf "\\%03d" n else char n |