xplcidl/test.tcl

   1 #!/usr/bin/env tclsh
   2 load ./ctest_tcl.so
   3 set x [get_cppobj]
   4
   5 set expected voidfunc
   6 ITest_voidfunc $x
   7
   8 set expected intparm_simple
   9 ITest_intparm_simple $x 1
  10
  11 set expected intret
  12 set y [ITest_intret $x]
  13 puts "y is $y (should be 1)"
  14 set result [expr $y != 1]
  15 puts "result is $result"
  16 exit $result