1use strict; 2use warnings; 3use Test::More tests => 6; 4BEGIN { use_ok('global_vars') } 5require_ok('global_vars'); 6 7my $an = new global_vars::A(); 8isa_ok($an, 'global_vars::A'); 9$global_vars::ap = $an; 10is($global_vars::ap, $an, "global var assignment"); 11 12# Regression test for https://sourceforge.net/p/swig/bugs/564/ - changing the 13# value in C/C++ apparently wasn't reflected in Perl: 14$global_vars::x = 17; 15is($global_vars::x, 17, "global var assignment"); 16global_vars::init(); 17is($global_vars::x, 1234, "C++ global var change visible in Perl"); 18