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");