[perl5.git] / t / op / lock.t

#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = qw(. ../lib);
    require './test.pl';
}
plan tests => 5;

is \lock $foo, \$foo, 'lock returns a scalar argument';
is  lock @foo, \@foo, 'lock returns a ref to its array argument';
is  lock %foo, \%foo, 'lock returns a ref to its hash argument';
is  lock &foo, \&foo, 'lock returns a ref to its code argument';

sub eulavl : lvalue { $x }
is  lock &eulavl, \&eulavl, 'lock returns a ref to its lvalue sub arg';
Commit	Line	Data
f4df43b5 FC	1	#!./perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = qw(. ../lib);
	6	require './test.pl';
	7	}
	8	plan tests => 5;
	9
	10	is \lock $foo, \$foo, 'lock returns a scalar argument';
	11	is lock @foo, \@foo, 'lock returns a ref to its array argument';
	12	is lock %foo, \%foo, 'lock returns a ref to its hash argument';
f79aa60b	13	is lock &foo, \&foo, 'lock returns a ref to its code argument';
f4df43b5 FC	14
f4df43b5 FC	15	sub eulavl : lvalue { $x }
f79aa60b	16	is lock &eulavl, \&eulavl, 'lock returns a ref to its lvalue sub arg';