summaryrefslogtreecommitdiffstats
path: root/contrib/perl5/t/cmd/elsif.t
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/perl5/t/cmd/elsif.t')
-rwxr-xr-xcontrib/perl5/t/cmd/elsif.t25
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";}
OpenPOWER on IntegriCloud