51 lines
1.4 KiB
Perl
51 lines
1.4 KiB
Perl
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use Test::More tests => 4;
|
||
|
|
BEGIN { use_ok 'director_binary_string' }
|
||
|
|
require_ok 'director_binary_string';
|
||
|
|
|
||
|
|
{
|
||
|
|
package DirectorBinaryStringCallback;
|
||
|
|
use base 'director_binary_string::Callback';
|
||
|
|
sub run {
|
||
|
|
my $ret = 0;
|
||
|
|
my ($self, $dataBufferAA, $dataBufferBB) = @_;
|
||
|
|
if(defined $dataBufferAA) {
|
||
|
|
$ret += ord($_) * 2 for(split('', $dataBufferAA));
|
||
|
|
}
|
||
|
|
if(defined $dataBufferBB) {
|
||
|
|
$ret += ord($_) * 3 for(split('', $dataBufferBB));
|
||
|
|
}
|
||
|
|
return $ret;
|
||
|
|
}
|
||
|
|
sub writeData {
|
||
|
|
my $ret = 0;
|
||
|
|
my ($self, $dataBufferAA) = @_;
|
||
|
|
if(defined $dataBufferAA) {
|
||
|
|
$ret += ord($_) * 2 for(split('', $dataBufferAA));
|
||
|
|
}
|
||
|
|
return $ret;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
{
|
||
|
|
print "Start\n";
|
||
|
|
my $caller = director_binary_string::Caller->new();
|
||
|
|
my $callback = DirectorBinaryStringCallback->new();
|
||
|
|
$caller->setCallback($callback);
|
||
|
|
my $sum = $caller->call();
|
||
|
|
my $sumData = $caller->callWriteData();
|
||
|
|
$caller->delCallback();
|
||
|
|
|
||
|
|
is($sum, 9*2*8 + 13*3*5, 'Unexpected sum: ' . $sum);
|
||
|
|
is($sumData, 9*2*8, 'Unexpected sumData: ' . $sumData);
|
||
|
|
|
||
|
|
# FIXME accessing abstract class or protected constructor
|
||
|
|
# It does make sense as writeData() is abstract
|
||
|
|
# director_binary_string::Callback->new()->run(undef, undef);
|
||
|
|
$callback = DirectorBinaryStringCallback->new();
|
||
|
|
$caller->setCallback($callback);
|
||
|
|
$caller->call_null();
|
||
|
|
$caller->delCallback();
|
||
|
|
}
|