diff options
Diffstat (limited to 'Examples/test-suite/perl5/global_vars_runme.pl')
-rw-r--r-- | Examples/test-suite/perl5/global_vars_runme.pl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/Examples/test-suite/perl5/global_vars_runme.pl b/Examples/test-suite/perl5/global_vars_runme.pl index b645f7bac..6375aa7da 100644 --- a/Examples/test-suite/perl5/global_vars_runme.pl +++ b/Examples/test-suite/perl5/global_vars_runme.pl @@ -1,6 +1,6 @@ use strict; use warnings; -use Test::More tests => 4; +use Test::More tests => 6; BEGIN { use_ok('global_vars') } require_ok('global_vars'); @@ -9,3 +9,9 @@ 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"); |