diff options
| author | John Peacock <jpeacock@rowman.com> | 2007-10-24 18:04:45 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-25 08:46:27 +0000 |
| commit | 72287d960b27266568e4ac3e7defc1c830eec00b (patch) | |
| tree | 00bca7ea9f79a061ffdaf729a4653df4d65d0758 /lib/version.t | |
| parent | 14c4693962e26696a60cec3d9cead6b9b4818149 (diff) | |
| download | perl-72287d960b27266568e4ac3e7defc1c830eec00b.tar.gz | |
Bring version.pm core into compliance with CPAN release
Message-ID: <471FF9BD.40204@havurah-software.org>
p4raw-id: //depot/perl@32189
Diffstat (limited to 'lib/version.t')
| -rw-r--r-- | lib/version.t | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lib/version.t b/lib/version.t index 9d0554c71a..a839d5d6c3 100644 --- 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; |