blob: 52fd8ea46e4d98e208dc5c24ac0db16fe8bf755a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
open CfimOfJson
open Logging
open Print
module T = Types
module A = CfimAst
module I = Interpreter
type test = Test [@@deriving show]
let _ = show_test Test
(* This is necessary to have a backtrace when raising exceptions - for some
* reason, the -g option doesn't work *)
let () = Printexc.record_backtrace true
let () =
let json = Yojson.Basic.from_file "../charon/charon/tests/test1.cfim" in
match cfim_module_of_json json with
| Error s -> log#error "error: %s\n" s
| Ok m ->
(* Print the module *)
log#ldebug (lazy ("\n" ^ Print.Module.module_to_string m ^ "\n"));
(* Test the unit functions *)
I.test_all_unit_functions m.types m.functions
|
