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