[Omaha.pm] FW: Test::Harness jacks PERL5LIB which jacks our SEED tests under your new dynamic t directory thing...

["Jay Hannah" <jhannah@omnihotels.com>]

Below, a pretty geeky thing I hit recently. 

I have no idea why Test::Harness messes with $PERL5LIB and then puts it
back.

Survey: Besides my coworkers and Andy, does anyone out there use
Test::*? How many tests do you have? For software that does what? Anyone
else use PERL5LIB?

j
 



-----Original Message-----
From: Jay Hannah 
Sent: Friday, October 20, 2006 5:35 PM
To: Sean Baker
Cc: Trey Bianchini
Subject: Test::Harness jacks PERL5LIB which jacks our SEED tests under
your new dynamic t directory thing...


Doh..........


jhannah@razorbill:~/M/Pegasus/Message> prove -r
t/AALSRQ............................ok
t/AALSRQ_seed_1A....................Cannot read
'/usr/lib/perl5/site_perl/Omni/MVC:/usr/lib/perl5/5.8.7/i686-linux:/usr/
lib/perl5/5.8.7:/usr/lib/perl5/site_perl/5.8.7/i686-linux:/usr/lib/perl5
/site_perl/5.8.7:/usr/lib/perl5/site_perl:./Model/omares/Simple/smls_rat
es_avail.unl'.
[[[/usr/lib/perl5/site_perl/Omni/MVC:/usr/lib/perl5/5.8.7/i686-linux:/us
r/lib/perl5/5.8.7:/usr/lib/perl5/site_perl/5.8.7/i686-linux:/usr/lib/per
l5/site_perl/5.8.7:/usr/lib/perl5/site_perl:.]]] at
/usr/lib/perl5/site_perl/Omni/MVC/Model/DB/Informix.pm line 891, <DATA>
line 1.




jhannah@razorbill:~/M/Pegasus/Message> cat j.t die
"[[[$ENV{PERL5LIB}]]]"; jhannah@razorbill:~/M/Pegasus/Message> prove -r
j.t
j....[[[/usr/lib/perl5/site_perl/Omni/MVC:/usr/lib/perl5/5.8.7/i686-linu
x:/usr/lib/perl5/5.8.7:/usr/lib/perl5/site_perl/5.8.7/i686-linux:/usr/li
b/perl5/site_perl/5.8.7:/usr/lib/perl5/site_perl:.]]] at j.t line 1.
j....dubious
        Test returned status 255 (wstat 65280, 0xff00)
FAILED--1 test script could be run, alas--no output ever seen



  push @DB::typeahead,
    "o pager=less",
    "f Test/Harness/Straps.pm", "b 284",



j....Test::Harness::Straps::analyze_file(/usr/lib/perl5/5.8.7/Test/Harne
ss/Straps.pm:284):
284:        local $ENV{PERL5LIB} = $self->_INC2PERL5LIB;
 
DB<4> n
Test::Harness::Straps::analyze_file(/usr/lib/perl5/5.8.7/Test/Harness/St
raps.pm:285):
285:        if ( $Test::Harness::Debug ) {
 
DB<4> n
Test::Harness::Straps::analyze_file(/usr/lib/perl5/5.8.7/Test/Harness/St
raps.pm:291):
291:        my $line = $self->_command_line($file);
 
DB<4> n
Test::Harness::Straps::analyze_file(/usr/lib/perl5/5.8.7/Test/Harness/St
raps.pm:293):
293:        unless ( open(FILE, "$line|" )) {
 
DB<4> n
Test::Harness::Straps::analyze_file(/usr/lib/perl5/5.8.7/Test/Harness/St
raps.pm:298):
298:        my %results = $self->analyze_fh($file, \*FILE);
 
DB<4>
[[[/usr/lib/perl5/site_perl/Omni/MVC:/usr/lib/perl5/5.8.7/i686-linux:/us
r/lib/perl5/5.8.7:/usr/lib/perl5/site_perl/5.8.7/i686-linux:/usr/lib/per
l5/site_perl/5.8.7:/usr/lib/perl5/site_perl:.]]] at j.t line 1.
n
Test::Harness::Straps::analyze_file(/usr/lib/perl5/5.8.7/Test/Harness/St
raps.pm:299):
299:        my $exit    = close FILE;
 
DB<4> n
Test::Harness::Straps::analyze_file(/usr/lib/perl5/5.8.7/Test/Harness/St
raps.pm:300):
300:        $results{'wait'} = $?;
 
DB<4> n
Test::Harness::Straps::analyze_file(/usr/lib/perl5/5.8.7/Test/Harness/St
raps.pm:301):
301:        if( $? && $self->{_is_vms} ) {
 
DB<4> n
Test::Harness::Straps::analyze_file(/usr/lib/perl5/5.8.7/Test/Harness/St
raps.pm:305):
305:            $results{'exit'} = _wait2exit($?);
 
DB<4> n
Test::Harness::Straps::analyze_file(/usr/lib/perl5/5.8.7/Test/Harness/St
raps.pm:307):
307:        $results{passing} = 0 unless $? == 0;
 
DB<4> n
Test::Harness::Straps::analyze_file(/usr/lib/perl5/5.8.7/Test/Harness/St
raps.pm:309):
309:        $self->_restore_PERL5LIB();