diff options
| author | Yuval Kogman <nothingmuch@woobling.org> | 2008-06-29 01:40:34 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-01-02 14:18:30 +0100 |
| commit | b472f62a7910ee5203ec5d411f2f1f65943f5efd (patch) | |
| tree | af8feb5a2f406f1e6e86e660120d37d875aa53ac /t | |
| parent | 7e49475998c8ec327d9f30272b715a1e9c1fa3fd (diff) | |
| download | perl-b472f62a7910ee5203ec5d411f2f1f65943f5efd.tar.gz | |
add undef tests to t/op/smartmatch.t
Diffstat (limited to 't')
| -rw-r--r-- | t/op/smartmatch.t | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t index ed41aaa599..79b6b9b8b2 100644 --- a/t/op/smartmatch.t +++ b/t/op/smartmatch.t @@ -177,3 +177,18 @@ __DATA__ @nums { 1, '', 2, '' } @nums { 1, '', 12, '' } ! @nums { 11, '', 12, '' } + +# UNDEF +! 3 undef +! 1 undef +! [] undef +! {} undef +! \%::main undef +! [1,2] undef +! %hash undef +! @nums undef +! "foo" undef +! "" undef +! !1 undef +! \&foo undef +! sub { } undef |