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