/trunk/Examples/test-suite/perl5/voidtest_runme.pl

 1use strict;
 2use warnings;
 3use Test::More tests => 7;
 4BEGIN { use_ok('voidtest') }
 5require_ok('voidtest');
 6
 7# adapted from ../python/voidtest_runme.py
 8voidtest::globalfunc();
 9my $f = voidtest::Foo->new();
10is($f->memberfunc(), undef);
11{ local $TODO = "opaque pointers hidden behind layer of indirection";
12my $v1 = voidtest::vfunc1($f);
13my $v2 = voidtest::vfunc2($f);
14is($v1, $v2);
15my $v3 = voidtest::vfunc3($v1);
16is($v3->this, $f->this);
17my $v4 = voidtest::vfunc4($f);
18is($v1, $v4);
19}
20ok(1, "done");