Re: [mp2] mod_perl test suite fails

Volker Kroll wrote:
> On Mon, 2003-12-15 at 10:29, Stas Bekman wrote:
>
>
> > no, no, it has nothing to do with the error_log, Can I see what you get when 
> > running:
> >
> > /usr/bin/perl -Mlib=/root/modperl-2.0/Apache-Test/lib -MApache::TestRun \
> > -e 'eval {Apache::TestRun::run_root_fs_test(99, 99, q[/root/modperl-2.0/t])}';
>
>
> OK
>
> > And this:
> >
> > /usr/bin/perl -Mlib=/root/modperl-2.0/Apache-Test/lib -MApache::TestRun \
> > -e 'Apache::TestRun::run_root_fs_test(99, 99, q[/root/modperl-2.0/t])';
>
> OK

That's very strange. two emails ago you said that this worked:
http://marc.theaimsgroup.com/?l=apache-modperl-dev&m=107123974823141&w=2

use File::Spec::Functions qw(catfile);
my($uid, $gid) = (getpwnam(qq[nobody]))[2..3];
$( = $) = $gid+0;
die qq[failed to change gid to $gid] if $( != $gid;
$< = $> = $uid+0;
die qq[failed to change uid to $uid] if $< != $uid;
my $dir = qq[/root];
my $file = catfile $dir, qq[.apache-test-file-$$-].time.int(rand);
END { unlink $file };
# -w
open TEST, qq[>$file] or die qq[failed to open $file: $!];
# -x
-f $file or die qq[$file cannot be looked up];
close TEST;
# -r
opendir DIR, $dir or die qq[failed to open dir $dir: $!];
defined readdir DIR or die qq[failed to read dir $dir: $!];
close DIR;
# all tests passed
print q{OK};

and started it out of a file.

I got:
failed to open /root/.apache-test-file-8981-10712397220: Permission
denied at test line 11.

----------------------------

Can you please look at run_root_fs_test()
in Apache/TestRun.pm and see what went wrong in transition? It should die with 
the same error as above.

You can modify the sub and test your changes, by running:

/usr/bin/perl -Mlib=/root/modperl-2.0/Apache-Test/lib -MApache::TestRun \
-e 'Apache::TestRun::run_root_fs_test(99, 99, q[/root/modperl-2.0/t])';

Thank you.
__________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org
mailto:stas@xxxxxxxxxx http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com