yah its calling it properly:
my $apr = Apache::Request->new(
shift,
POST_MAX => 10 * 1024 * 1024, # in bytes, so 10M
DISABLE_UPLOADS => 0
);
how would one make a test to make sure the file is uploading properly?
and what about multipart form?
##how to post the file???!!!
{
my $response = GET '/otherthing?funk=rock&file1=README';
chomp(my $content = $response->content);
ok t_cmp(qr{<html><body>},
$content,
'OtherThing.pm');
}
works for find ing out there is a page loading
using t_is_equal() should be able to compare the $apr objects , but im
unsure how to pull it into the tests!
again i can get this all to work if i *dont* pass a file
as soon as i start that things start wonking out
either the parameters pass *OR* the file is downloads, but i cant get
both to happen
On Thu, 2004-01-29 at 16:38, Stas Bekman wrote:
> Clayton Cottingham wrote:
> > ok thanks for the patience!
> >
> > i managed to
> > a) get the base bug report template to go under freebsd and
>
> good.
>
> > b) had my modules fail and generate error log
> >
> > which is telling me that this isnt correct:
> >
> > my $apr = Apache::Request->new(
> > shift,
> > POST_MAX => 10 * 1024 * 1024, # in bytes, so 10M
> > DISABLE_UPLOADS => 0
> > );
> >
> > my %args = $apr->args;
> >
> > with this :
> >
> > Odd number of elements in hash assignment at
> > /usr/home/clayton/bug-reporting-skeleton-mp1/t/PP/OtherThing.pm line 18.
> >
> >
> > from what ive read/been told this should be an issue correct?
> >
> > Apache::Request should be able to pass this right?
>
> I think, yes. check that your shift in the new() call is really getting $r and
> not undef (e.g. not shift()'ed before).
>
> __________________________________________________________________
> Stas Bekman JAm_pH ------> Just Another mod_perl Hacker
> http://stason.org/ mod_perl Guide ---> http://perl.apache.org
> mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com
> http://modperlbook.org http://apache.org http://ticketmaster.com
--
Clayton Cottingham - WinterMarket Networks
Virtual Reality Programming, Design & Evangelist
Phone:(604) 875-1213
Cell: (604) 506-7230
Vancouver, B.C. Canada
[EMAIL PROTECTED]
http://www.wintermarket.net
IM's icq:154964789 hotmail:[EMAIL PROTECTED]
yahoo:[EMAIL PROTECTED]
--
Reporting bugs: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html
