You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
31 lines
496 B
31 lines
496 B
9 years ago
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Test::More tests => 5;
|
||
|
|
|
||
|
|
require_ok('Subtitle::BASE');
|
||
|
|
|
||
|
|
{
|
||
|
|
package Subtitle::Dummy;
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use base 'Subtitle::BASE';
|
||
|
|
|
||
|
|
sub new {
|
||
|
|
my $class = shift;
|
||
|
|
my $self = { log => [] };
|
||
|
|
return bless ($self, $class);
|
||
|
|
};
|
||
|
|
1;
|
||
|
|
}
|
||
|
|
|
||
|
|
my $obj = Subtitle::Dummy->new;
|
||
|
|
isa_ok($obj, 'Subtitle::Dummy');
|
||
|
|
|
||
|
|
is(scalar @{ $obj->{log} }, 0);
|
||
|
|
$obj->log(warn => "something");
|
||
|
|
is(scalar @{ $obj->{log} }, 1);
|
||
|
|
is($obj->{log}->[0], 'W: something');
|
||
|
|
|
||
|
|
exit 0;
|