1open Swig 2open Template_rename 3 4let _ = 5 let i = new_iFoo '() and d = new_dFoo '() in 6 assert (i -> blah_test (4) as int = 4); 7 assert (i -> spam_test (5) as int = 5); 8 assert (i -> groki_test (6) as int = 6); 9 assert (d -> blah_test (7) as int = 7); 10 assert (d -> spam (8) as int = 8); 11 assert (d -> grok_test (9) as int = 9) 12;; 13