From: Marcelo M. <mar...@us...> - 2006-02-04 00:02:53
|
Update of /cvsroot/swig/SWIG/Examples/test-suite/perl5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20502/perl5 Modified Files: voidtest_runme.pl Log Message: add test for 'void *' argument Index: voidtest_runme.pl =================================================================== RCS file: /cvsroot/swig/SWIG/Examples/test-suite/perl5/voidtest_runme.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** voidtest_runme.pl 4 Feb 2006 00:02:03 -0000 1.1 --- voidtest_runme.pl 4 Feb 2006 00:02:45 -0000 1.2 *************** *** 1,7 **** use voidtest; ! $f = new voidtest::Foo(); ! $v1 = voidtest::vfunc1($f); ! $v2 = voidtest::vfunc2($f); ! $v3 = voidtest::vfunc3($v1); ! $v4 = voidtest::vfunc4($f); --- 1,9 ---- use voidtest; ! if (1) { ! $f = new voidtest::Foo(); ! $v1 = voidtest::vfunc1($f); ! $v2 = voidtest::vfunc2($f); ! $v3 = voidtest::vfunc3($v1); ! $v4 = voidtest::vfunc4($f); ! } |