From 0f9a409cfbf065030f98d6cd933e7163b0de998f Mon Sep 17 00:00:00 2001
From: Alex 'AdUser' Z <ad_user@runbox.com>
Date: Tue, 24 Jul 2018 16:35:38 +1000
Subject: [PATCH] * t/format-ssa-event.t : check class inheritance

---
 t/format-ssa-event.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/t/format-ssa-event.t b/t/format-ssa-event.t
index f4c826d..083f1e8 100644
--- a/t/format-ssa-event.t
+++ b/t/format-ssa-event.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 30;
+use Test::More tests => 31;
 
 use Subtitle::Format::SSA::Event;
 
@@ -11,6 +11,7 @@ my ($fields, @fields, $format, $sample, $event, $output);
 $format = 'Format: Marked, Start, End, Style, Name, MarginL, MarginR, MarginV, Effect, Text';
 @fields = qw(marked start end style name marginl marginr marginv effect text);
 $event = Subtitle::Format::SSA::Event->new(type => 'ssa');
+can_ok($event, qw(new parse t_start t_end text));
 $fields = $event->parse_format_line($format);
 is(ref $fields, 'ARRAY');
 is_deeply($fields, \@fields);