Merge pull request #703 from rgrinberg/improve-configurator-tests
Improve configurator tests
This commit is contained in:
commit
efa6eb1447
|
@ -3,15 +3,18 @@ module Configurator = Configurator.V1
|
||||||
let () =
|
let () =
|
||||||
let module C_define = Configurator.C_define in
|
let module C_define = Configurator.C_define in
|
||||||
Configurator.main ~name:"c_test" (fun t ->
|
Configurator.main ~name:"c_test" (fun t ->
|
||||||
assert (
|
C_define.import t
|
||||||
C_define.import t
|
~includes:["caml/config.h"]
|
||||||
~includes:["caml/config.h"]
|
[ "CAML_CONFIG_H", C_define.Type.Switch
|
||||||
[ "CAML_CONFIG_H", C_define.Type.Switch
|
; "Page_log", C_define.Type.Int
|
||||||
; "Page_log", C_define.Type.Int
|
; "__func__", C_define.Type.String
|
||||||
] =
|
|
||||||
[ "CAML_CONFIG_H", C_define.Value.Switch true
|
|
||||||
; "Page_log", Int 12
|
|
||||||
]
|
]
|
||||||
);
|
|> List.iter (fun (n, v) ->
|
||||||
print_endline "Successfully import #define's"
|
Printf.printf "%s=%s\n"
|
||||||
|
n (match v with
|
||||||
|
| C_define.Value.String s -> s
|
||||||
|
| Int i -> string_of_int i
|
||||||
|
| Switch b -> string_of_bool b
|
||||||
|
)
|
||||||
|
)
|
||||||
)
|
)
|
||||||
|
|
|
@ -9,4 +9,6 @@ We're able to compile C program sucessfully
|
||||||
|
|
||||||
Importing #define's from code is successful
|
Importing #define's from code is successful
|
||||||
$ jbuilder exec import-define/run.exe
|
$ jbuilder exec import-define/run.exe
|
||||||
Successfully import #define's
|
CAML_CONFIG_H=true
|
||||||
|
Page_log=12
|
||||||
|
__func__=main
|
||||||
|
|
Loading…
Reference in New Issue