diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-09 07:49:46 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-09 07:49:46 +0000 |
| commit | 3cd5fe909a6f80e52113146d92efed61d4efa234 (patch) | |
| tree | 9aceddf8002a9d7b6da45f1b0f8d62b0929012ca /t | |
| parent | f333445c29f1556015c4df0c417df8e1a742d36d (diff) | |
| download | perl-3cd5fe909a6f80e52113146d92efed61d4efa234.tar.gz | |
Test the vX => ... fix.
p4raw-id: //depot/perl@20085
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/ver.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/t/op/ver.t b/t/op/ver.t index acf6af7f35..79c36b6bc5 100755 --- a/t/op/ver.t +++ b/t/op/ver.t @@ -11,7 +11,7 @@ $DOWARN = 1; # enable run-time warnings now use Config; require "test.pl"; -plan( tests => 50 ); +plan( tests => 53 ); eval 'use v5.5.640'; is( $@, '', "use v5.5.640; $@"); @@ -254,3 +254,13 @@ is( ref(\$v), 'VSTRING', 'v-string objects' ); $v = v1.2_3; is( ref(\$v), 'VSTRING', 'v-string objects with v' ); is( sprintf("%vd", $v), '1.23', 'v-string ignores underscores' ); + +# [perl #16010] +%h = (v65 => 42); +ok( exists $h{v65}, "v-stringness is not engaged for vX" ); +%h = (v65.66 => 42); +ok( exists $h{chr(65).chr(66)}, "v-stringness is engaged for vX.Y" ); +%h = (65.66.67 => 42); +ok( exists $h{chr(65).chr(66).chr(67)}, "v-stringness is engaged for X.Y.Z" ); + + |