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

#!./perl

# On platforms that don't support all of the filetest operators the code
# that faked the results of missing tests used to leave the test's
# argument on the stack.

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require './test.pl';
}

my @ops = split //, 'rwxoRWXOezsfdlpSbctugkTMBAC';

plan( tests => @ops * 1 );

for my $op (@ops) {
    ok( 1 == @{ [ eval "-$op 'TEST'" ] }, "-$op returns single value" );
}
Commit	Line	Data
c410dd6a AA	1	#!./perl
	2
	3	# On platforms that don't support all of the filetest operators the code
	4	# that faked the results of missing tests used to leave the test's
	5	# argument on the stack.
	6
	7	BEGIN {
	8	chdir 't' if -d 't';
	9	@INC = '../lib';
	10	require './test.pl';
	11	}
	12
	13	my @ops = split //, 'rwxoRWXOezsfdlpSbctugkTMBAC';
	14
	15	plan( tests => @ops * 1 );
	16
	17	for my $op (@ops) {
	18	ok( 1 == @{ [ eval "-$op 'TEST'" ] }, "-$op returns single value" );
	19	}