cvs commit: modperl-2.0/t/response/TestAPR perlio.pm
stas2002/06/21 08:45:06 Modified:t/response/TestAPR perlio.pm Log: only a comments fixes Revision ChangesPath 1.12 +2 -2 modperl-2.0/t/response/TestAPR/perlio.pm Index: perlio.pm === RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/perlio.pm,v retrieving revision 1.11 retrieving revision 1.12 diff -u -r1.11 -r1.12 --- perlio.pm 21 Jun 2002 15:28:43 - 1.11 +++ perlio.pm 21 Jun 2002 15:45:06 - 1.12 -12,8 +12,8 use Apache::Const -compile = 'OK'; use constant HAVE_PERLIO = eval { require APR::PerlIO }; -#XXX: feel free to enable if largefile support is not enabled in Perl #XXX: APR::LARGE_FILES_CONFLICT constant? +#XXX: you can set to zero if largefile support is not enabled in Perl use constant LARGE_FILES_CONFLICT = 1; sub handler { -197,7 +197,7 # buffer up $oldfh = select($wfh); $| = 0; select($oldfh); -print $wfh $expected; # must be flushed to disk immediately +print $wfh $expected; # should be buffered up and not flushed ok t_cmp(undef, scalar($rfh),
cvs commit: modperl-2.0/t/response/TestAPR perlio.pm
stas2002/06/15 12:08:21 Modified:t/response/TestAPR perlio.pm Log: disable the failing tests with 5.8.0-RC2 while reworking APR PerlIO layer Revision ChangesPath 1.9 +1 -1 modperl-2.0/t/response/TestAPR/perlio.pm Index: perlio.pm === RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/perlio.pm,v retrieving revision 1.8 retrieving revision 1.9 diff -u -r1.8 -r1.9 --- perlio.pm 31 May 2002 02:19:11 - 1.8 +++ perlio.pm 15 Jun 2002 19:08:21 - 1.9 -27,7 +27,7 #$tests += $lfs_tests if USE_LARGE_FILES; #XXX -plan $r, tests = $tests, have_perl 'iolayers'; +plan $r, tests = $tests, todo = [5,8], have_perl 'iolayers'; my $vars = Apache::Test::config()-{vars}; my $dir = catfile $vars-{documentroot}, perlio;
cvs commit: modperl-2.0/t/response/TestAPR perlio.pm
dougm 2002/06/15 16:48:58 Modified:t/response/TestAPR perlio.pm Log: disabling tests until perlio issues are sorted out Revision ChangesPath 1.10 +3 -3 modperl-2.0/t/response/TestAPR/perlio.pm Index: perlio.pm === RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/perlio.pm,v retrieving revision 1.9 retrieving revision 1.10 diff -u -r1.9 -r1.10 --- perlio.pm 15 Jun 2002 19:08:21 - 1.9 +++ perlio.pm 15 Jun 2002 23:48:58 - 1.10 -22,12 +22,12 return Apache::OK; } -my $tests = 11; +my $tests = 2; #XXX 11; my $lfs_tests = 3; #$tests += $lfs_tests if USE_LARGE_FILES; #XXX -plan $r, tests = $tests, todo = [5,8], have_perl 'iolayers'; +plan $r, tests = $tests, have_perl 'iolayers'; my $vars = Apache::Test::config()-{vars}; my $dir = catfile $vars-{documentroot}, perlio; -66,7 +66,7 expected failure); } } - +return Apache::OK; #XXX remove when perlio issues are sorted out # seek/tell() tests #XXX: feel free to enable if largefile support is not enabled in Perl if (0) {