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

#!./perl

my $test = 1;
sub ok {
    my($ok, $name) = @_;

    # You have to do it this way or VMS will get confused.
    printf "%s %d%s\n", $ok ? "ok" : "not ok",
                        $test,
                        defined $name ? " - $name" : '';

    printf "# Failed test at line %d\n", (caller)[2] unless $ok;

    $test++;
    return $ok;
}

print "1..1\n";

ok(defined [(1)x127,qr//,1]->[127], "qr// should extend the stack properly");
Commit	Line	Data
c8c13c22 JB	1	#!./perl
	2
	3	my $test = 1;
	4	sub ok {
	5	my($ok, $name) = @_;
	6
	7	# You have to do it this way or VMS will get confused.
	8	printf "%s %d%s\n", $ok ? "ok" : "not ok",
	9	$test,
	10	defined $name ? " - $name" : '';
	11
	12	printf "# Failed test at line %d\n", (caller)[2] unless $ok;
	13
	14	$test++;
	15	return $ok;
	16	}
	17
	18	print "1..1\n";
	19
	20	ok(defined [(1)x127,qr//,1]->[127], "qr// should extend the stack properly");
	21