diff options
Diffstat (limited to 't/cmd/elsif.t')
| -rw-r--r-- | t/cmd/elsif.t | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/t/cmd/elsif.t b/t/cmd/elsif.t new file mode 100644 index 0000000000..975acef4f7 --- /dev/null +++ b/t/cmd/elsif.t @@ -0,0 +1,25 @@ +#!./perl + +# $Header: elsif.t,v 4.0 91/03/20 01:49:21 lwall Locked $ + +sub foo { + if ($_[0] == 1) { + 1; + } + elsif ($_[0] == 2) { + 2; + } + elsif ($_[0] == 3) { + 3; + } + else { + 4; + } +} + +print "1..4\n"; + +if (($x = do foo(1)) == 1) {print "ok 1\n";} else {print "not ok 1 '$x'\n";} +if (($x = do foo(2)) == 2) {print "ok 2\n";} else {print "not ok 2 '$x'\n";} +if (($x = do foo(3)) == 3) {print "ok 3\n";} else {print "not ok 3 '$x'\n";} +if (($x = do foo(4)) == 4) {print "ok 4\n";} else {print "not ok 4 '$x'\n";} |