Sign in
fuchsia
/
third_party
/
swig
/
8a73e25fe2a1bd1bbffb052d47891238287aea7d
/
.
/
Examples
/
test-suite
/
perl5
/
inctest_runme.pl
blob: db78c66159ab438dc8ff4c54744b22a49fae3b6b [
file
] [
log
] [
blame
]
#!/usr/bin/perl
use
strict
;
use
warnings
;
use
Test
::
More
tests
=>
3
;
BEGIN
{
use_ok
(
'inctest'
)
}
require_ok
(
'inctest'
);
my
$things
=
inctest
::
MY_THINGS
->
new
();
my
$i
=
0
;
$things
->{
IntegerMember
}
=
$i
;
my
$d
=
$things
->{
DoubleMember
};
ok
(
1
);