tests: let the large integer literal overflow on 32-bit platforms

the alternative is it not compiling at all...
mirage · Jul 13, 2017 · a8954c1 · a8954c1
1 parent 967fd58
commit a8954c1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib_test/tests.ml b/lib_test/tests.ml
@@ -123,7 +123,7 @@ let check_alignment_zero () =
     Invalid_argument _ -> ()
 
 let check_alignment_large () =
-  assert_equal (Cstruct.(check_alignment (create 1) 4294967296)) false
+  assert_equal (Cstruct.(check_alignment (create 1) (Int64.to_int 4294967296L))) false
 
 let _ =
   let suite =