diff options
Diffstat (limited to 'ext/XS-APItest')
-rw-r--r-- | ext/XS-APItest/t/svpv_magic.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/XS-APItest/t/svpv_magic.t b/ext/XS-APItest/t/svpv_magic.t index 2212774f68..c57257e201 100644 --- a/ext/XS-APItest/t/svpv_magic.t +++ b/ext/XS-APItest/t/svpv_magic.t @@ -1,6 +1,6 @@ #!perl -w -use Test::More tests => 9; +use Test::More tests => 10; BEGIN { use_ok('XS::APItest') @@ -46,3 +46,5 @@ undef $f; is SvPVutf8($t), "\xc3\xbf", 'SvPVutf8 works with get-magic downgrading the SV'; is $f, 1, 'SvPVutf8 calls get-magic once'; +()="$t"; +is $f, 2, 'SvPVutf8 does not stop stringification from calling FETCH'; |