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.
30 lines
496 B
30 lines
496 B
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;
|
|
|