From: John Peacock <jpeacock@rowman.com>
Date: Tue, 6 Dec 2005 08:31:32 +0000 (-0500)
Subject: Re: stringification of v-string references
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=05f9f7bb7728f3c6ba669b2c4adc66fe958a9b51;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/t/op/ref.t b/t/op/ref.t
index 81a6543..d4fb4fd 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();