diff options
Diffstat (limited to 'gnu/usr.bin/perl/perl/t/comp/decl.t')
-rwxr-xr-x | gnu/usr.bin/perl/perl/t/comp/decl.t | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/perl/t/comp/decl.t b/gnu/usr.bin/perl/perl/t/comp/decl.t new file mode 100755 index 0000000..f1c84c2 --- /dev/null +++ b/gnu/usr.bin/perl/perl/t/comp/decl.t @@ -0,0 +1,49 @@ +#!./perl + +# $Header: /home/cvs/386BSD/ports/lang/perl/t/comp/decl.t,v 1.1.1.1 1993/08/23 21:30:07 nate Exp $ + +# 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"; +} |