diff options
| author | John Peacock <jpeacock@rowman.com> | 2005-12-06 03:31:32 -0500 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-12-06 16:53:46 +0000 |
| commit | 05f9f7bb7728f3c6ba669b2c4adc66fe958a9b51 (patch) | |
| tree | b933fad56d3721cf48fb26421da312819fc0fa59 /t | |
| parent | 29d14c727b109ef9b5e0b911814371d62839c7ba (diff) | |
| download | perl-05f9f7bb7728f3c6ba669b2c4adc66fe958a9b51.tar.gz | |
Re: stringification of v-string references
Message-ID: <439592B4.2050101@rowman.com>
Date: Tue, 06 Dec 2005 08:31:32 -0500
p4raw-id: //depot/perl@26280
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/ref.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/op/ref.t b/t/op/ref.t index 81a6543c34..d4fb4fdc1b 100755 --- a/t/op/ref.t +++ b/t/op/ref.t @@ -8,7 +8,7 @@ BEGIN { require 'test.pl'; use strict qw(refs subs); -plan (96); +plan (98); # Test glob operations. @@ -54,6 +54,11 @@ $BAR = \$BAZ; $BAZ = "hit"; is ($$$FOO, 'hit'); +# test that ref(vstring) makes sense +my $vstref = \v1; +is (ref($vstref), "VSTRING", "ref(vstr) eq VSTRING"); +like ( $vstref, qr/VSTRING\(0x[0-9a-f]+\)/, '\vstr is also VSTRING'); + # Test references to real arrays. my $test = curr_test(); |