diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2007-11-12 11:13:58 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-11-12 22:16:41 +0000 |
| commit | 520974d5b0e293a154c61abceaf26077c8cafbd8 (patch) | |
| tree | 3b907886e765340f094f1e931ae4384b4b5cdfbd /t/comp | |
| parent | 46eb16f1dff3be6ceb73471f0435a4411a87318d (diff) | |
| download | perl-520974d5b0e293a154c61abceaf26077c8cafbd8.tar.gz | |
t/comp/opsubs.t
Message-ID: <4738C216.2040302@iki.fi>
p4raw-id: //depot/perl@32294
Diffstat (limited to 't/comp')
| -rw-r--r-- | t/comp/opsubs.t | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/t/comp/opsubs.t b/t/comp/opsubs.t index 3faca21424..a9b7ca8577 100644 --- a/t/comp/opsubs.t +++ b/t/comp/opsubs.t @@ -1,9 +1,20 @@ #!./perl -T +BEGIN { + chdir 't' if -d 't'; + @INC = '../lib'; +} + use warnings; use strict; $|++; +require "./test.pl"; + +plan(tests => 36); + +use vars qw($TODO); + =pod Even if you have a C<sub q{}>, calling C<q()> will be parsed as the @@ -12,8 +23,6 @@ This test verifies this behavior for nine different operators. =cut -use Test::More tests => 36; - sub m { return "m-".shift } sub q { return "q-".shift } sub qq { return "qq-".shift } |