From 14fd5c7061def9000190028683c0bdc2cb00157a Mon Sep 17 00:00:00 2001 From: Louis Gesbert Date: Tue, 23 Jul 2024 17:58:41 +0200 Subject: [PATCH] Rename String.x=>String.x_ascii where needed --- exercises/mooc/week2/seq4/ex1/test.ml | 2 +- exercises/mooc/week4/seq1/ex1/test.ml | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/exercises/mooc/week2/seq4/ex1/test.ml b/exercises/mooc/week2/seq4/ex1/test.ml index 6573bec..8dc4ebb 100644 --- a/exercises/mooc/week2/seq4/ex1/test.ml +++ b/exercises/mooc/week2/seq4/ex1/test.ml @@ -68,7 +68,7 @@ let sample_contact = names.(id) else names.(id mod len) ^ name (id / len) in id := !id + len + 2 ; - let name = String.capitalize (name !id) in + let name = String.capitalize_ascii (name !id) in let phone_number = (!id mod 23, !id mod 19, !id mod 7, !id mod 17) in { name ; phone_number } diff --git a/exercises/mooc/week4/seq1/ex1/test.ml b/exercises/mooc/week4/seq1/ex1/test.ml index 0ac02bf..a465995 100644 --- a/exercises/mooc/week4/seq1/ex1/test.ml +++ b/exercises/mooc/week4/seq1/ex1/test.ml @@ -13,7 +13,7 @@ let sample_string_ff = sample_cases [ printable_fun "((^) \"@\")" ((^) "@") ; printable_fun "(fun s -> s ^ s)" (fun s -> s ^ s) ; - printable_fun "String.uppercase" (String.uppercase) ] + printable_fun "String.uppercase_ascii" (String.uppercase_ascii) ] let exercise_1 = set_progress "Grading exercise 1." ;