Fixed tests to work with older OCaml versions that lack `String.for_a…

…ll`.
c-cube · Jan 4, 2025 · a48c494 · a48c494
1 parent 1486cbf
commit a48c494
Showing 1 changed file with 36 additions and 3 deletions.
diff --git a/tests/core/t_char.ml b/tests/core/t_char.ml
@@ -43,8 +43,41 @@ q
   (fun c -> not @@ CCChar.is_digit_ascii c)
 ;;
 
-eq true (String.for_all CCChar.is_whitespace_ascii "\n\t \010\011\012\013");;
+eq true
+  (Stdlib.List.for_all CCChar.is_whitespace_ascii
+     [ '\n'; '\t'; ' '; '\010'; '\011'; '\012'; '\013' ])
+;;
 
 eq false
-  (String.for_all CCChar.is_whitespace_ascii
-     "Hello!--NOthina\055kag$$$%^bch\008h")
+  (Stdlib.List.for_all CCChar.is_whitespace_ascii
+     [
+       'H';
+       'e';
+       'l';
+       'l';
+       'o';
+       '!';
+       '-';
+       '-';
+       'N';
+       'O';
+       't';
+       'h';
+       'i';
+       'n';
+       'a';
+       '\055';
+       'k';
+       'a';
+       'g';
+       '$';
+       '$';
+       '$';
+       '%';
+       '^';
+       'b';
+       'c';
+       'h';
+       '\008';
+       'h';
+     ])