Upgrade to File::Path 2.07_03

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

diff --git a/lib/version.t b/lib/version.t
index a839d5d..47989e3 100644 (file)
--- a/lib/version.t
+++ b/lib/version.t
@@ -551,7 +551,13 @@ SKIP: {
        is $alpha2, $alpha1, "Don't fall for Data::Dumper's tricks";
     }
 
-
+    {
+       # http://rt.perl.org/rt3/Ticket/Display.html?id=56606
+       my $badv = bless { version => [1,2,3] }, "version";
+       is $badv, '1.002003', "Deal with badly serialized versions from YAML";  
+       my $badv2 = bless { qv => 1, version => [1,2,3] }, "version";
+       is $badv2, 'v1.2.3', "Deal with badly serialized versions from YAML ";  
+    }
 }
 
 1;