+ t/base.t

t/base.t

@@ -0,0 +1,30 @@
+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;