[perl5.git] / ext / XS-APItest / t / sviscow.t

use strict;

use Test::More tests => 1;

use XS::APItest;
use Hash::Util 'lock_value';
use warnings; no warnings 'once', 'Hash::Util';

my %h;
$h{g} = *foo;
lock_value %h, 'g';

ok(!SvIsCOW($h{g}), 'SvIsCOW is honest when it comes to globs');
Commit	Line	Data
fa819c1c	1	use strict;
fa819c1c FC	2
	3	use Test::More tests => 1;
	4
	5	use XS::APItest;
	6	use Hash::Util 'lock_value';
eb611d08	7	use warnings; no warnings 'once', 'Hash::Util';
fa819c1c FC	8
	9	my %h;
	10	$h{g} = *foo;
	11	lock_value %h, 'g';
	12
	13	ok(!SvIsCOW($h{g}), 'SvIsCOW is honest when it comes to globs');