wehub-resource-sync
27 lines
683 B
OCaml
27 lines
683 B
OCaml
open! Core
|
|
|
|
let demangle_symbol_test symbol =
|
|
let demangle_symbol = Magic_trace_lib.Demangle_ocaml_symbols.demangle symbol in
|
|
print_s [%sexp (demangle_symbol : string option)]
|
|
;;
|
|
|
|
let%expect_test "real mangled symbol" =
|
|
demangle_symbol_test "camlAsync_unix__Unix_syscalls__to_string_57255";
|
|
[%expect {| (Async_unix.Unix_syscalls.to_string) |}]
|
|
;;
|
|
|
|
let%expect_test "proper hexcode" =
|
|
demangle_symbol_test "caml$3f";
|
|
[%expect {| (?) |}]
|
|
;;
|
|
|
|
let%expect_test "improper hexcode" =
|
|
demangle_symbol_test "caml$7l";
|
|
[%expect {| ($7l) |}]
|
|
;;
|
|
|
|
let%expect_test "when the symbol is not a demangled ocaml symbol" =
|
|
demangle_symbol_test "dr__$3e$21_358";
|
|
[%expect {| () |}]
|
|
;;
|