added an extra test for an invalid version (normalization failure)

1 files changed, 44 insertions, 0 deletions

diff --git a/xt/games_cards_poker.t b/xt/games_cards_poker.t
new file mode 100644
index 0000000..06f18f9
--- /dev/null
+++ b/xt/games_cards_poker.t
@@ -0,0 +1,44 @@
+use strict;
+use warnings;
+use Test::More;
+
+plan skip_all => "requires WorePAN" unless eval "use WorePAN 0.03; 1";
+my @tests = (
+  ['P/PI/PIP/Games-Cards-Poker-1.2.4CCJ12M.tgz', 'Poker.pm', 'Games::Cards::Poker', 'undef'],
+);
+
+for my $test (@tests) {
+  my ($path, $pmfile, $package, $version) = @$test;
+  note "downloading $path...";
+
+  my $worepan = WorePAN->new(
+    no_network => 0,
+    use_backpan => 1,
+    cleanup => 1,
+    no_indices => 1,
+    files => [$path],
+  );
+
+  note "parsing $path...";
+
+  $worepan->walk(callback => sub {
+    my $dir = shift;
+    my $file = $dir->file($pmfile);
+    my $parser = Parse::PMFile->new;
+
+    my ($info, $errs);
+    eval {
+      local $SIG{ALRM} = sub { die "timeout\n" };
+      alarm 30;
+      ($info, $errs) = $parser->parse($file);
+      alarm 0;
+    };
+    ok !$@ && ref $info eq ref {} && $info->{$package}{version} eq $version, "returned no version";
+    ok !$@ && ref $errs eq ref {} && $errs->{$package}{normalize}, "returned invalid version";
+    note $@ if $@;
+    note explain $info;
+    note explain $errs;
+  });
+}
+
+done_testing;