Upgrade to Devel::PPPort 3.08_07

[p5sagit/p5-mst-13.2.git] / ext / Devel / PPPort / t / ppphtest.t

diff --git a/ext/Devel/PPPort/t/ppphtest.t b/ext/Devel/PPPort/t/ppphtest.t
index 6148195..9a43c5d 100644 (file)
--- a/ext/Devel/PPPort/t/ppphtest.t
+++ b/ext/Devel/PPPort/t/ppphtest.t
@@ -26,9 +26,9 @@ BEGIN {
     require 'testutil.pl' if $@;
   }
 
-  if (202) {
+  if (203) {
     load();
-    plan(tests => 202);
+    plan(tests => 203);
   }
 }
 
@@ -46,7 +46,7 @@ package main;
 
 BEGIN {
   if ($ENV{'SKIP_SLOW_TESTS'}) {
-    for (1 .. 202) {
+    for (1 .. 203) {
       skip("skip: SKIP_SLOW_TESTS", 0);
     }
     exit 0;
@@ -222,6 +222,9 @@ my $o = ppport(qw(--help));
 ok($o =~ /^Usage:.*ppport\.h/m);
 ok($o =~ /--help/m);
 
+$o = ppport(qw(--version));
+ok($o =~ /^This is.*ppport.*\d+\.\d+(?:_?\d+)?\.$/);
+
 $o = ppport(qw(--nochanges));
 ok($o =~ /^Scanning.*test\.xs/mi);
 ok($o =~ /Analyzing.*test\.xs/mi);