1#!/usr/bin/perl 2use strict; 3use warnings; 4use Test::More tests => 12; 5BEGIN { use_ok('apply_signed_char') } 6require_ok('apply_signed_char'); 7 8# adapted from ../java/apply_signed_char_runme.java 9 10my $smallnum = -127; 11is(apply_signed_char::CharValFunction($smallnum), $smallnum); 12is(apply_signed_char::CCharValFunction($smallnum), $smallnum); 13is(apply_signed_char::CCharRefFunction($smallnum), $smallnum); 14 15$apply_signed_char::globalchar = $smallnum; 16is($apply_signed_char::globalchar, $smallnum); 17is($apply_signed_char::globalconstchar, -110); 18 19my $d = new apply_signed_char::DirectorTest(); 20is($d->CharValFunction($smallnum), $smallnum); 21is($d->CCharValFunction($smallnum), $smallnum); 22is($d->CCharRefFunction($smallnum), $smallnum); 23 24$d->{memberchar} = $smallnum; 25is($d->{memberchar}, $smallnum); 26is($d->{memberconstchar}, -112); 27