Examples/test-suite/perl5/typedef_class_runme.pl

#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 6;
BEGIN { use_ok('typedef_class') }
require_ok('typedef_class');

# adapted from ../python/typedef_class_runme.py

my $a = typedef_class::RealA->new();
isa_ok($a, 'typedef_class::RealA');
$a->{a} = 3;
is($a->{a}, 3);
my $b = typedef_class::B->new();
isa_ok($b, 'typedef_class::B');
is($b->testA($a), 3);