diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-06-28 16:57:52 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-06-28 16:57:52 +0200 |
| commit | 439e01810c70f0dbcae1202b301da4e148e16485 (patch) | |
| tree | c2be907b6d7b6f014003207cfad360e51f434671 /lib/base | |
| parent | 40b9d4d925a92009ab916e8557c333c6e9e5d0ca (diff) | |
| download | perl-439e01810c70f0dbcae1202b301da4e148e16485.tar.gz | |
Move module part of the base.pm test suite in base.pm's test directory
Diffstat (limited to 'lib/base')
| -rw-r--r-- | lib/base/t/lib/HasSigDie.pm | 6 | ||||
| -rw-r--r-- | lib/base/t/sigdie.t | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lib/base/t/lib/HasSigDie.pm b/lib/base/t/lib/HasSigDie.pm new file mode 100644 index 0000000000..3368e04995 --- /dev/null +++ b/lib/base/t/lib/HasSigDie.pm @@ -0,0 +1,6 @@ +package HasSigDie; + +$SIG{__DIE__} = sub { "Die, Bart, Die!" }; + +1; + diff --git a/lib/base/t/sigdie.t b/lib/base/t/sigdie.t index 9237463907..4173c48d4e 100644 --- a/lib/base/t/sigdie.t +++ b/lib/base/t/sigdie.t @@ -3,7 +3,7 @@ BEGIN { if( $ENV{PERL_CORE} ) { chdir 't' if -d 't'; - @INC = qw(../lib ../t/lib); + @INC = qw(../lib ../lib/base/t/lib); } } |