Skip to content

Commit 99836f0

Browse files
committed
test(ctypes): ensure all .h are present and used
1 parent 7ac582d commit 99836f0

File tree

5 files changed

+11
-1
lines changed

5 files changed

+11
-1
lines changed
Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+
#define BAR_VERSION 1
Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+
#define BAZ_VERSION 1
Lines changed: 5 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,2 +1,6 @@
11
let () =
2-
Printf.printf "%d\n" (C.Functions.add2 2)
2+
Printf.printf "%d\n" (C.Functions.add2 C.Types.foo_version);
3+
Printf.printf "%d\n" (C.Functions.add2 C.Types.bar_version);
4+
Printf.printf "%d\n" (C.Functions.add2 C.Types.baz_version);
5+
Printf.printf "%d\n" (C.Functions.add2 C.Types.qux_version);
6+
()
Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+
#define FOO_VERSION 1
Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,9 @@
11
module Types (F : Ctypes.TYPE) = struct
22
open F
33

4+
let foo_version = constant "FOO_VERSION" int
5+
let bar_version = constant "BAR_VERSION" int
6+
let baz_version = constant "BAZ_VERSION" int
47
let qux_version = constant "QUX_VERSION" int
58

69
end

0 commit comments

Comments
 (0)