Sign in
android
/
platform
/
external
/
swig
/
a8e1862aca759ef6159201fd61dd8536870de54c
/
.
/
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
);