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;