Commit | Line | Data |
---|---|---|
2d981f27 | 1 | #!./perl |
2 | ||
3 | BEGIN { | |
4 | chdir 't' if -d 't'; | |
5 | @INC = '../lib'; | |
6 | require Config; import Config; | |
7 | } | |
8 | ||
9 | use Test::More 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 |