use HTTP::Headers;
use HTTP::Headers::Util 'split_header_words';
use HTTP::Request::Common;
+use Path::Class::Dir;
{
my $creq;
is( $creq->{parameters}->{ $upload->filename },
$upload->filename, 'legacy param method ok' );
- ok( !-e $upload->tempname, 'Upload temp file was deleted' );
+ SKIP:
+ {
+ if ( $ENV{CATALYST_SERVER} ) {
+ skip 'Not testing for deleted file on remote server', 1;
+ }
+ ok( !-e $upload->tempname, 'Upload temp file was deleted' );
+ }
}
}
is( $upload->filename, $parameters{filename}, 'Upload filename' );
is( $upload->size, length( $part->content ), 'Upload Content-Length' );
- ok( !-e $upload->tempname, 'Upload temp file was deleted' );
+ SKIP:
+ {
+ if ( $ENV{CATALYST_SERVER} ) {
+ skip 'Not testing for deleted file on remote server', 1;
+ }
+ ok( !-e $upload->tempname, 'Upload temp file was deleted' );
+ }
}
}
}
# test uploadtmp config var
-
+SKIP:
{
+ if ( $ENV{CATALYST_SERVER} ) {
+ skip 'Not testing uploadtmp on remote server', 13;
+ }
+
my $creq;
my $dir = "$FindBin::Bin/";
local TestApp->config->{ uploadtmp } = $dir;
+ $dir = Path::Class::Dir->new( $dir );
my $request = POST(
'http://localhost/dump/request/',