view release on metacpan or  search on metacpan

t/001.t  view on Meta::CPAN

$count=join ", ", map {$obj->worker($_)->client} 0..15;
t_debug "client: ".$count;

ok !defined($obj->worker(17)), 'worker(17) - undef (out of range)';
ok !defined($obj->worker(-1)), 'worker(-1) - undef (out of range)';

my %summary;
my @keys=qw/. _ S R W K L D C G I bw iw cw nr nb/;
@summary{@keys}=$obj->summary(@keys);

use Data::Dumper;
t_debug Dumper \%summary;

is_deeply \%summary, {
		      '.' => '13',
		      'C' => '0',
		      'D' => '0',
		      'G' => '0',
		      'I' => '0',
		      'K' => '0',
		      'L' => '0',