Improved test coverage

MANIFEST

@@ -6,3 +6,4 @@ README
 lib/AudioFile/Info.pm
 t/1.t
 t/2_pod.t
+t/3_pod_coverage.t

META.yml

@@ -1,15 +1,15 @@
 --- #YAML:1.0
 name: AudioFile-Info
-version: 1.05
+version: 1.07
+author:
+  - Dave Cross, E<lt>dave@dave.org.ukE<gt>
+abstract: Perl extension to get info from audio files.
 license: perl
-distribution_type: module
 requires:
+  YAML: 0
   perl: 5.6.0
-recommends: {}
-build_requires: {}
-conflicts: {}
 provides:
   AudioFile::Info:
     file: lib/AudioFile/Info.pm
-    version: 1.05
-generated_by: Module::Build version 0.20
+    version: 1.07
+generated_by: Module::Build version 0.2607

lib/AudioFile/Info.pm

@@ -239,3 +239,10 @@ This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.
 
 =cut
+
+#
+# $Log$
+# Revision 1.8  2005/03/01 09:48:30  dave
+# Improved test coverage
+#
+#

t/1.t

@@ -1,19 +1,17 @@
-# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl 1.t'
+use Test::More tests => 4;
+BEGIN { use_ok('AudioFile::Info') }
 
-#########################
+# Hard to test anything really as we don't have any plugins installed
+# at this point
+#
+# Hmm... ok, let's try and test some stuff that shouldn't work :)
 
-# change 'tests => 1' to 'tests => last_test_to_print';
+eval { AudioFile::Info->new };
+ok($@);
 
-use Test;
-BEGIN { plan tests => 1 };
-use AudioFile::Info;
-ok(1);
+eval { AudioFile::Info->new('file_with_no_ext') };
+ok($@);
 
-#########################
+eval { AudioFile::Info->new('file_with_bad_ext.foo') };
+ok($@);
 
-# Insert your test code below, the Test::More module is use()ed here so read
-# its man page ( perldoc Test::More ) for help writing this test script.
-#
-# Hard to test anything really as we don't have any plugins installed
-# at this point