Adapt properly More.t to run in the core

[perl5.git] / lib / version.t

diff --git a/lib/version.t b/lib/version.t
index 9d0554c..a839d5d 100644 (file)
--- a/lib/version.t
+++ b/lib/version.t
@@ -5,6 +5,7 @@
 #########################
 
 use Test::More qw(no_plan);
+use Data::Dumper;
 require Test::Harness;
 no warnings 'once';
 *Verbose = \$Test::Harness::Verbose;
@@ -541,6 +542,16 @@ SKIP: {
        like($warning, qr/Integer overflow in version/, "Too large version");
     }
 
+    {
+       # http://rt.cpan.org/Public/Bug/Display.html?id=30004
+       my $v1 = $CLASS->new("v0.1_1");
+       (my $alpha1 = Dumper($v1)) =~ s/.+'alpha' => ([^,]+),.+/$1/ms;
+       my $v2 = $CLASS->new($v1);
+       (my $alpha2 = Dumper($v2)) =~ s/.+'alpha' => ([^,]+),.+/$1/ms;
+       is $alpha2, $alpha1, "Don't fall for Data::Dumper's tricks";
+    }
+
+
 }
 
 1;