Skip to content
Browse files

Add test to cover one more statement in identify_distros_from_derived…

…_list().
  • Loading branch information...
1 parent 38897c7 commit 5b6f212c34c16b16c366654c50a1055255f095b7 @jkeenan committed Feb 22, 2010
Showing with 7 additions and 1 deletion.
  1. +7 −1 t/002_identify_distros.t
View
8 t/002_identify_distros.t
@@ -10,14 +10,20 @@ use File::Spec;
use File::Temp qw( tempfile tempdir );
use IO::CaptureOutput qw( capture );
use Tie::File;
-use Test::More qw(no_plan); # tests => 26;
+use Test::More tests => 30;
my ( $self, $rv, @list, $phony_minicpan, $tdir, $id_dir );
$self = CPAN::Mini::Visit::Simple->new({});
isa_ok ($self, 'CPAN::Mini::Visit::Simple');
eval {
+ $self->identify_distros_from_derived_list({});
+};
+like($@, qr/identify_distros_from_derived_list\(\) needs 'list' element/,
+ "Got expected error message for absent 'list' element in hashref" );
+
+eval {
$self->identify_distros_from_derived_list({
list => {},
});

0 comments on commit 5b6f212

Please sign in to comment.
Something went wrong with that request. Please try again.