Quotes fixed, see also perl #36079

[p5sagit/p5-mst-13.2.git] / lib / version.t

diff --git a/lib/version.t b/lib/version.t
index c91d988..8636a3f 100644 (file)
--- a/lib/version.t
+++ b/lib/version.t
@@ -4,7 +4,7 @@
 
 #########################
 
-use Test::More tests => 168;
+use Test::More tests => 170;
 
 diag "Tests with base class" unless $ENV{PERL_CORE};
 
@@ -48,7 +48,7 @@ sub BaseTests {
        # Test quoted number processing
        diag "tests with quoted numbers" unless $ENV{PERL_CORE};
        $version = $CLASS->new("5.005_03");
-       is ( "$version" , "5.5_30" , '"5.005_03" eq "5.5_30"' );
+       is ( "$version" , "5.005_030" , '"5.005_03" eq "5.005_030"' );
        $version = $CLASS->new("v1.23");
        is ( "$version" , "1.23.0" , '"v1.23" eq "1.23.0"' );
        
@@ -222,6 +222,8 @@ sub BaseTests {
        diag "testing CVS Revision" unless $ENV{PERL_CORE};
        $version = new version qw$Revision: 1.2$;
        ok ( $version eq "1.2.0", 'qw$Revision: 1.2$ eq 1.2.0' );
+       $version = new version qw$Revision: 1.2.3.4$;
+       ok ( $version eq "1.2.3.4", 'qw$Revision: 1.2.3.4$ eq 1.2.3.4' );
        
        # test reformed UNIVERSAL::VERSION
        diag "Replacement UNIVERSAL::VERSION tests" unless $ENV{PERL_CORE};