https://perl5.git.perl.org / perl5.git / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 1 | #!./perl -w | |
| 2 | ||
| 3 | BEGIN { | |
| 4 | chdir 't' if -d 't'; | |
| 5 | @INC = '../lib'; | |
| 6 | require './test.pl'; | |
| 7 | } | |
| 8 | ||
| 9 | plan( tests => 4 ); | |
| 10 | ||
| 11 | sub empty_sub {} | |
| 12 | ||
| 13 | is(empty_sub,undef,"Is empty"); | |
| 14 | is(empty_sub(1,2,3),undef,"Is still empty"); | |
| 15 | @test = empty_sub(); | |
| 16 | is(scalar(@test), 0, 'Didnt return anything'); | |
| 17 | @test = empty_sub(1,2,3); | |
| 18 | is(scalar(@test), 0, 'Didnt return anything'); | |
| 19 |