1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Index: virt-v2v/common/mlstdutils/std_utils_tests.ml
===================================================================
--- virt-v2v.orig/common/mlstdutils/std_utils_tests.ml
+++ virt-v2v/common/mlstdutils/std_utils_tests.ml
@@ -152,9 +152,10 @@ let () =
assert_equal_stringlist ["a"; "b"; "c"; "d"] (String.nsplit ~max:10 " " "a b c d");
(* Test that nsplit can handle large strings. *)
- let xs = Array.to_list (Array.make 10_000_000 "xyz") in
- let xs_concat = String.concat " " xs in
- assert_equal_stringlist xs (String.nsplit " " xs_concat)
+ if Sys.int_size >= 32 then
+ let xs = Array.to_list (Array.make 10_000_000 "xyz") in
+ let xs_concat = String.concat " " xs in
+ assert_equal_stringlist xs (String.nsplit " " xs_concat)
(* Test Std_utils.String.lines_split. *)
let () =
|
