Sign in
fuchsia
/
third_party
/
swig
/
decfe5dd8181d962e8b05ea531650d8589dc2b30
/
.
/
trunk
/
Examples
/
test-suite
/
perl5
/
global_vars_runme.pl
blob: b645f7bacb2e8818de212670b1c216df7dc4b485 [
file
] [
log
] [
blame
]
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"
);