# testing : $r->finfo->group() # expected: 4294967294 # received: -2 not ok 8
$ id ianh uid=501(ianh) gid=20(staff) groups=20(staff), 80(admin)
ok, well if neither perl nor apr give the real answer then we have no choice but to simply sweep it under the carpet - in both cases we merely pass along the results we're given, and if perl proper doesn't give the real answer either there must be a problem within the OS itself.
so, give this patch a whirl. I'm not happy about doing it, but as with win32 it seems we're kind of out of options if the two pieces of software we rely on can't give true answers on darwin.
--Geoff
The patch silences the error.
the only 'interesting' data point was that I have _13-dev running, (from about a month or two ago) and this test didn't fail then.
these are the remaining errors
t/filter/both_str_con_add....1..4
# Running under perl version 5.008003 for darwin
# Current time local: Thu Apr 15 19:50:28 2004
# Current time GMT: Thu Apr 15 09:50:28 2004
# Using Test.pm version 1.24
ok 1
# expected: mod_perl
# received:
not ok 2
# Failed test 2 in t/filter/both_str_con_add.t at line 22
# t/filter/both_str_con_add.t line 22 is: ok t_cmp($str, $reply);
# expected: 2.0
# received:
not ok 3
# Failed test 3 in t/filter/both_str_con_add.t at line 22 fail #2
# expected: rules
# received:
not ok 4
# Failed test 4 in t/filter/both_str_con_add.t at line 22 fail #3
FAILED tests 2-4
Failed 3/4 tests, 25.00% okay
t/protocol/echo_filter.......1..3
# Running under perl version 5.008003 for darwin
# Current time local: Thu Apr 15 19:50:29 2004
# Current time GMT: Thu Apr 15 09:50:29 2004
# Using Test.pm version 1.24
ok 1
# expected: hello
# received:
not ok 2
# Failed test 2 in t/protocol/echo_filter.t at line 19
# t/protocol/echo_filter.t line 19 is: ok t_cmp($_, $reply);
# expected: world
# received:
not ok 3
# Failed test 3 in t/protocol/echo_filter.t at line 19 fail #2
FAILED tests 2-3
Failed 2/3 tests, 33.33% okay
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
t/filter/both_str_con_add.t 4 3 75.00% 2-4
t/protocol/echo_filter.t 3 2 66.67% 2-3
[warning] server localhost:8529 shutdown
[ error] error running tests (please examine t/logs/error_log)
ianh:/usr/local/src/modperl-2.0 ianh$
------------------------------------------------------------------------
Index: Apache-Test/lib/Apache/TestConfig.pm
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm,v
retrieving revision 1.218
diff -u -r1.218 TestConfig.pm
--- Apache-Test/lib/Apache/TestConfig.pm 5 Apr 2004 04:35:21 -0000 1.218
+++ Apache-Test/lib/Apache/TestConfig.pm 8 Apr 2004 13:49:18 -0000
@@ -18,6 +18,7 @@
use warnings FATAL => 'all';
use constant WIN32 => $^O eq 'MSWin32';
+use constant OSX => $^O eq 'darwin';
use constant CYGWIN => $^O eq 'cygwin';
use constant NETWARE => $^O eq 'NetWare';
use constant SOLARIS => $^O eq 'solaris';
Index: t/response/TestAPR/finfo.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/finfo.pm,v
retrieving revision 1.8
diff -u -r1.8 finfo.pm
--- t/response/TestAPR/finfo.pm 14 Jan 2004 21:27:41 -0000 1.8
+++ t/response/TestAPR/finfo.pm 8 Apr 2004 13:49:19 -0000
@@ -8,6 +8,7 @@
use Apache::TestTrace;
use Apache::TestConfig;
use constant WIN32 => Apache::TestConfig::WIN32;
+use constant OSX => Apache::TestConfig::OSX;
use Apache::RequestRec ();
use APR::Finfo ();
@@ -55,10 +56,17 @@
our ($device, $inode, $protection, $nlink, $user, $group,
undef, $size, $atime, $mtime, $ctime) = stat $file;
- # skip certain tests on Win32 (and others?)
- # atime is wrong on NTFS, but OK on FAT32
- my %skip = WIN32 ?
- (map {$_ => 1} qw(device inode user group atime) ) : ();
+ # skip certain tests on Win32 and others
+ my %skip = ();
+
+ if (WIN32) {
+ # atime is wrong on NTFS, but OK on FAT32
+ %skip = map {$_ => 1} qw(device inode user group atime);
+ }
+ elsif (OSX) {
+ # both apr and perl report incorrect group values
+ %skip = (group => 1);
+ }
# compare stat fields between perl and apr_stat
{
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
