diff options
| -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(); |