blob: 0ca2a5c010544176ae3e9d34a873ed0370be189f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
open Swig
open Constover
let test_str = "test" to string
let _ =
assert ((_test (test_str) as string) = "test");
assert ((_test_pconst (test_str) as string) = "test_pconst");
;;
let f = new_Foo '()
let _ =
assert ((f -> "test" (test_str) as string) = "test");
assert ((f -> "test_pconst" (test_str) as string) = "test_pconst");
assert ((f -> "test_constm" (test_str) as string) = "test_constmethod");
assert ((f -> "test_pconstm" (test_str) as string) = "test_pconstmethod");
;;
|