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

#!./perl

# $RCSfile: decl.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:19 $

# check to see if subroutine declarations work everwhere

sub one {
    print "ok 1\n";
}
format one =
ok 5
.

print "1..7\n";

do one();
do two();

sub two {
    print "ok 2\n";
}
format two =
@<<<
$foo
.

if ($x eq $x) {
    sub three {
	print "ok 3\n";
    }
    do three();
}

do four();
$~ = 'one';
write;
$~ = 'two';
$foo = "ok 6";
write;
$~ = 'three';
write;

format three =
ok 7
.

sub four {
    print "ok 4\n";
}
Commit	Line	Data
8d063cd8 LW	1	#!./perl
8d063cd8 LW	2
79072805	3	# $RCSfile: decl.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:19 $
8d063cd8 LW	4
	5	# check to see if subroutine declarations work everwhere
	6
	7	sub one {
	8	print "ok 1\n";
	9	}
	10	format one =
	11	ok 5
	12	.
	13
	14	print "1..7\n";
	15
	16	do one();
	17	do two();
	18
	19	sub two {
	20	print "ok 2\n";
	21	}
	22	format two =
	23	@<<<
	24	$foo
	25	.
	26
	27	if ($x eq $x) {
	28	sub three {
	29	print "ok 3\n";
	30	}
	31	do three();
	32	}
	33
	34	do four();
	35	$~ = 'one';
	36	write;
	37	$~ = 'two';
	38	$foo = "ok 6";
	39	write;
	40	$~ = 'three';
	41	write;
	42
	43	format three =
	44	ok 7
	45	.
	46
	47	sub four {
	48	print "ok 4\n";
	49	}