8b713d759d
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10403 626c5289-ae23-0410-ae9c-e8d60b6d4f22
11 lines
252 B
Perl
11 lines
252 B
Perl
use strict;
|
|
use warnings;
|
|
use Test::More tests => 4;
|
|
BEGIN { use_ok('global_vars') }
|
|
require_ok('global_vars');
|
|
|
|
my $an = new global_vars::A();
|
|
isa_ok($an, 'global_vars::A');
|
|
$global_vars::ap = $an;
|
|
is($global_vars::ap, $an, "global var assignment");
|
|
|