4
use Test::More tests => 12;
5
BEGIN { use_ok('apply_signed_char') }
6
require_ok('apply_signed_char');
8
# adapted from ../java/apply_signed_char_runme.java
11
is(apply_signed_char::CharValFunction($smallnum), $smallnum);
12
is(apply_signed_char::CCharValFunction($smallnum), $smallnum);
13
is(apply_signed_char::CCharRefFunction($smallnum), $smallnum);
15
$apply_signed_char::globalchar = $smallnum;
16
is($apply_signed_char::globalchar, $smallnum);
17
is($apply_signed_char::globalconstchar, -110);
19
my $d = new apply_signed_char::DirectorTest();
20
is($d->CharValFunction($smallnum), $smallnum);
21
is($d->CCharValFunction($smallnum), $smallnum);
22
is($d->CCharRefFunction($smallnum), $smallnum);
24
$d->{memberchar} = $smallnum;
25
is($d->{memberchar}, $smallnum);
26
is($d->{memberconstchar}, -112);