diff options
| -rw-r--r-- | testsuite/tests/typing-gadts/pr5689.ml | 2 | ||||
| -rw-r--r-- | testsuite/tests/typing-modules/Makefile | 5 | ||||
| -rw-r--r-- | testsuite/tests/typing-modules/aliases.ml.reference | 8 |
3 files changed, 12 insertions, 3 deletions
diff --git a/testsuite/tests/typing-gadts/pr5689.ml b/testsuite/tests/typing-gadts/pr5689.ml index 304f8e6cd..856ddc273 100644 --- a/testsuite/tests/typing-gadts/pr5689.ml +++ b/testsuite/tests/typing-gadts/pr5689.ml @@ -9,7 +9,7 @@ type _ inline_t = let uppercase seq = let rec process: type a. a inline_t -> a inline_t = function - | Text txt -> Text (String.uppercase txt) + | Text txt -> Text (String.uppercase_ascii txt) | Bold xs -> Bold (List.map process xs) | Link lnk -> Link lnk | Mref (lnk, xs) -> Mref (lnk, List.map process xs) diff --git a/testsuite/tests/typing-modules/Makefile b/testsuite/tests/typing-modules/Makefile index 02fc5fb0b..c9433b2ec 100644 --- a/testsuite/tests/typing-modules/Makefile +++ b/testsuite/tests/typing-modules/Makefile @@ -10,5 +10,6 @@ # # ######################################################################### -include ../../makefiles/Makefile.toplevel -include ../../makefiles/Makefile.common +BASEDIR=../.. +include $(BASEDIR)/makefiles/Makefile.toplevel +include $(BASEDIR)/makefiles/Makefile.common diff --git a/testsuite/tests/typing-modules/aliases.ml.reference b/testsuite/tests/typing-modules/aliases.ml.reference index 6469844b4..724f01389 100644 --- a/testsuite/tests/typing-modules/aliases.ml.reference +++ b/testsuite/tests/typing-modules/aliases.ml.reference @@ -8,6 +8,8 @@ val escaped : char -> string val lowercase : char -> char val uppercase : char -> char + val lowercase_ascii : char -> char + val uppercase_ascii : char -> char type t = char val compare : t -> t -> int val equal : t -> t -> bool @@ -21,6 +23,8 @@ val escaped : char -> string val lowercase : char -> char val uppercase : char -> char + val lowercase_ascii : char -> char + val uppercase_ascii : char -> char type t = char val compare : t -> t -> int val equal : t -> t -> bool @@ -37,6 +41,8 @@ val escaped : char -> string val lowercase : char -> char val uppercase : char -> char + val lowercase_ascii : char -> char + val uppercase_ascii : char -> char type t = char val compare : t -> t -> int val equal : t -> t -> bool @@ -49,6 +55,8 @@ val escaped : char -> string val lowercase : char -> char val uppercase : char -> char + val lowercase_ascii : char -> char + val uppercase_ascii : char -> char type t = char val compare : t -> t -> int val equal : t -> t -> bool |