Test non-existent files

davorg-cpan · Jul 16, 2020 · 8dafe3e · 8dafe3e
1 parent 583d420
commit 8dafe3e
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/t/04-files.t b/t/04-files.t
@@ -11,4 +11,14 @@ my $ogg = Ogg::Vorbis::Header::PurePerl->new($ogg_fh);
 ok($ogg, 'Create object from a filehandle');
 isa_ok($ogg, 'Ogg::Vorbis::Header::PurePerl');
 
+my $warn;
+$SIG{__WARN__} = sub {
+  $warn = "@_";
+};
+
+ok(! defined Ogg::Vorbis::Header::PurePerl->new('not-there.ogg'),
+   'Fail on a non-existent file');
+
+like($warn, qr/does not exist/, 'Correct warning');
+
 done_testing();