Rename String.x=>String.x_ascii where needed

ocaml-sf · Jul 23, 2024 · 14fd5c7 · 14fd5c7
1 parent 6d00e76
commit 14fd5c7
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
@@ -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." ;