1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
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");
|
