8b713d759d
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10403 626c5289-ae23-0410-ae9c-e8d60b6d4f22
20 lines
498 B
Perl
20 lines
498 B
Perl
use strict;
|
|
use warnings;
|
|
use Test::More tests => 7;
|
|
BEGIN { use_ok('voidtest') }
|
|
require_ok('voidtest');
|
|
|
|
# adapted from ../python/voidtest_runme.py
|
|
voidtest::globalfunc();
|
|
my $f = voidtest::Foo->new();
|
|
is($f->memberfunc(), undef);
|
|
{ local $TODO = "opaque pointers hidden behind layer of indirection";
|
|
my $v1 = voidtest::vfunc1($f);
|
|
my $v2 = voidtest::vfunc2($f);
|
|
is($v1, $v2);
|
|
my $v3 = voidtest::vfunc3($v1);
|
|
is($v3->this, $f->this);
|
|
my $v4 = voidtest::vfunc4($f);
|
|
is($v1, $v4);
|
|
}
|
|
ok(1, "done");
|