diff options
Diffstat (limited to 'contrib/perl5/t/cmd/elsif.t')
-rwxr-xr-x | contrib/perl5/t/cmd/elsif.t | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/contrib/perl5/t/cmd/elsif.t b/contrib/perl5/t/cmd/elsif.t deleted file mode 100755 index 7eace16..0000000 --- a/contrib/perl5/t/cmd/elsif.t +++ /dev/null @@ -1,25 +0,0 @@ -#!./perl - -# $RCSfile: elsif.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:08 $ - -sub foo { - if ($_[0] == 1) { - 1; - } - elsif ($_[0] == 2) { - 2; - } - elsif ($_[0] == 3) { - 3; - } - else { - 4; - } -} - -print "1..4\n"; - -if (($x = &foo(1)) == 1) {print "ok 1\n";} else {print "not ok 1 '$x'\n";} -if (($x = &foo(2)) == 2) {print "ok 2\n";} else {print "not ok 2 '$x'\n";} -if (($x = &foo(3)) == 3) {print "ok 3\n";} else {print "not ok 3 '$x'\n";} -if (($x = &foo(4)) == 4) {print "ok 4\n";} else {print "not ok 4 '$x'\n";} |