Upgrade to Devel::PPPort 3.08_07

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

diff --git a/ext/Devel/PPPort/parts/inc/ppphtest b/ext/Devel/PPPort/parts/inc/ppphtest
index 41beb7a..80389a5 100644 (file)
--- a/ext/Devel/PPPort/parts/inc/ppphtest
+++ b/ext/Devel/PPPort/parts/inc/ppphtest
@@ -1,8 +1,8 @@
 ################################################################################
 ##
-##  $Revision: 31 $
+##  $Revision: 33 $
 ##  $Author: mhx $
-##  $Date: 2006/05/24 09:25:00 +0200 $
+##  $Date: 2006/07/03 22:54:26 +0200 $
 ##
 ################################################################################
 ##
@@ -15,11 +15,11 @@
 ##
 ################################################################################
 
-=tests plan => 202
+=tests plan => 203
 
 BEGIN {
   if ($ENV{'SKIP_SLOW_TESTS'}) {
-    for (1 .. 202) {
+    for (1 .. 203) {
       skip("skip: SKIP_SLOW_TESTS", 0);
     }
     exit 0;
@@ -195,6 +195,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);