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

 1#!/usr/bin/perl
 2use strict;
 3use warnings;
 4use Test::More tests => 6;
 5BEGIN { use_ok('typedef_class') }
 6require_ok('typedef_class');
 7
 8# adapted from ../python/typedef_class_runme.py
 9
10my $a = typedef_class::RealA->new();
11isa_ok($a, 'typedef_class::RealA');
12$a->{a} = 3;
13is($a->{a}, 3);
14my $b = typedef_class::B->new();
15isa_ok($b, 'typedef_class::B');
16is($b->testA($a), 3);