Add very basic test suite

1 files changed, 28 insertions, 0 deletions

diff --git a/t/basic.t b/t/basic.t
new file mode 100644
index 0000000..7765048
--- /dev/null
+++ b/t/basic.t
@@ -0,0 +1,28 @@
+#!perl -T
+
+use strict;
+use warnings;
+use utf8;
+
+use Test::More tests => 9;
+
+use Music::Lyrics::LRC;
+
+my $lrc = Music::Lyrics::LRC->new();
+ok( defined $lrc, 'constructed' );
+
+my $pkg = 'Music::Lyrics::LRC';
+isa_ok( $lrc, $pkg );
+
+can_ok( $lrc,
+    qw(lyrics tags add_lyric set_tag unset_tag load save ts_to_msec msec_to_ts)
+);
+
+ok( $lrc->add_lyric( 0,  'lalala' ), 'add_lyric_0' );
+ok( $lrc->add_lyric( 10, 'doremi' ), 'add_lyric_10' );
+
+ok( my $lyrics = $lrc->lyrics, 'get_lyrics' );
+ok( @{$lyrics} == 2, 'lyrics_count' );
+
+ok( $lrc->set_tag( 'foo', 'bar' ), 'set_tag' );
+ok( $lrc->unset_tag('foo'), 'unset_tag' );