128 lines
2.6 KiB
OCaml
128 lines
2.6 KiB
OCaml
open! Core
|
|
open! Import
|
|
|
|
let%expect_test "bool_true" =
|
|
printf "%b" (globalize_bool true);
|
|
[%expect {| true |}]
|
|
;;
|
|
|
|
let%expect_test "bool_false" =
|
|
printf "%b" (globalize_bool false);
|
|
[%expect {| false |}]
|
|
;;
|
|
|
|
let%expect_test "char" =
|
|
let c = 'A' in
|
|
let c' = globalize_char c in
|
|
printf "%s" (Char.to_string c');
|
|
[%expect {| A |}]
|
|
;;
|
|
|
|
let%expect_test "float" =
|
|
let f = 5.5 in
|
|
let f' = globalize_float f in
|
|
printf "%f" f';
|
|
[%expect {| 5.500000 |}]
|
|
;;
|
|
|
|
let%expect_test "int" =
|
|
printf "%d" (globalize_int 42);
|
|
[%expect {| 42 |}]
|
|
;;
|
|
|
|
let%expect_test "int32" =
|
|
let i = 42l in
|
|
let i' = globalize_int32 i in
|
|
printf "%ld" i';
|
|
[%expect {| 42 |}]
|
|
;;
|
|
|
|
let%expect_test "int64" =
|
|
let i = 42L in
|
|
let i' = globalize_int64 i in
|
|
printf "%Ld" i';
|
|
[%expect {| 42 |}]
|
|
;;
|
|
|
|
let%expect_test "nativeint" =
|
|
let i = 42n in
|
|
let i' = globalize_nativeint i in
|
|
printf "%nd" i';
|
|
[%expect {| 42 |}]
|
|
;;
|
|
|
|
let%expect_test "string" =
|
|
let s = "hello" in
|
|
let s' = globalize_string s in
|
|
printf "%s" s';
|
|
[%expect {| hello |}]
|
|
;;
|
|
|
|
let%expect_test "array" =
|
|
let a = [| "one"; "two"; "three" |] in
|
|
let a' = globalize_array globalize_string a in
|
|
Array.iter ~f:print_endline a';
|
|
[%expect {|
|
|
one
|
|
two
|
|
three
|
|
|}]
|
|
;;
|
|
|
|
let%expect_test "list" =
|
|
let l = [ "one"; "two"; "three" ] in
|
|
let l' = globalize_list globalize_string l in
|
|
List.iter ~f:print_endline l';
|
|
[%expect {|
|
|
one
|
|
two
|
|
three
|
|
|}]
|
|
;;
|
|
|
|
let%expect_test "option" =
|
|
let o = Some "hello" in
|
|
let o' = globalize_option globalize_string o in
|
|
Option.iter ~f:print_endline o';
|
|
[%expect {| hello |}]
|
|
;;
|
|
|
|
let%expect_test "ref" =
|
|
let r = ref "hello" in
|
|
let r' = globalize_ref globalize_string r in
|
|
print_endline !r';
|
|
[%expect {| hello |}]
|
|
;;
|
|
|
|
let%expect_test "no sharing between globalized refs" =
|
|
let r = ref "initial" in
|
|
let r' = globalize_ref (fun _ -> assert false) r in
|
|
print_endline !r;
|
|
[%expect {| initial |}];
|
|
print_endline !r';
|
|
[%expect {| initial |}];
|
|
r := "local";
|
|
r' := "global";
|
|
print_endline !r;
|
|
[%expect {| local |}];
|
|
print_endline !r';
|
|
[%expect {| global |}]
|
|
;;
|
|
|
|
external get : 'a array -> int -> 'a = "%array_safe_get"
|
|
external set : 'a array -> int -> 'a -> unit = "%array_safe_set"
|
|
|
|
let%expect_test "no sharing between globalized arrays" =
|
|
let a = [| "initial" |] in
|
|
let a' = globalize_array (fun _ -> assert false) a in
|
|
print_endline (get a 0);
|
|
[%expect {| initial |}];
|
|
print_endline (get a' 0);
|
|
[%expect {| initial |}];
|
|
set a 0 "local";
|
|
set a' 0 "global";
|
|
print_endline (get a 0);
|
|
[%expect {| local |}];
|
|
print_endline (get a' 0);
|
|
[%expect {| global |}]
|
|
;;
|