[perl5.git] / t / comp / bproto.t

#!./perl
#
# check if builtins behave as prototyped
#

BEGIN {
    chdir 't' if -d 't';
    unshift @INC, '../lib';
}

print "1..7\n";

my $i = 1;

sub foo {}
my $bar = "bar";

sub test_too_many {
    eval $_[0];
    print "not " unless $@ =~ /^Too many arguments/;
    printf "ok %d\n",$i++;
}

sub test_no_error {
    eval $_[0];
    print "not " if $@;
    printf "ok %d\n",$i++;
}

test_too_many($_) for split /\n/,
q[	defined(&foo, $bar);
	undef(&foo, $bar);
	uc($bar,$bar);
];

test_no_error($_) for split /\n/,
q[	scalar(&foo,$bar);
	defined &foo, &foo, &foo;
	undef &foo, $bar;
	uc $bar,$bar;
];
Commit	Line	Data
62c18ce2 GS	1	#!./perl
	2	#
	3	# check if builtins behave as prototyped
	4	#
	5
	6	BEGIN {
	7	chdir 't' if -d 't';
	8	unshift @INC, '../lib';
	9	}
	10
	11	print "1..7\n";
	12
	13	my $i = 1;
	14
	15	sub foo {}
	16	my $bar = "bar";
	17
	18	sub test_too_many {
	19	eval $_[0];
	20	print "not " unless $@ =~ /^Too many arguments/;
	21	printf "ok %d\n",$i++;
	22	}
	23
	24	sub test_no_error {
	25	eval $_[0];
	26	print "not " if $@;
	27	printf "ok %d\n",$i++;
	28	}
	29
	30	test_too_many($_) for split /\n/,
	31	q[ defined(&foo, $bar);
	32	undef(&foo, $bar);
	33	uc($bar,$bar);
	34	];
	35
	36	test_no_error($_) for split /\n/,
	37	q[ scalar(&foo,$bar);
	38	defined &foo, &foo, &foo;
	39	undef &foo, $bar;
	40	uc $bar,$bar;
	41	];