Changeset 26765

Timestamp:

12/15/08 17:02:55 (5 years ago)

Author:

yappo

Message:

svn merge -r26761:26763 ../../trunk/ ./

Location:

lang/perl/HTTP-Engine/branches/maintenance_0.0.x/t

Files:

• 020_interface/server_simple.t (modified) (1 diff)
• 020_interface/test_upload.t (modified) (1 diff)
• Utils.pm (modified) (1 diff)

lang/perl/HTTP-Engine/branches/maintenance_0.0.x/t/020_interface/server_simple.t

@@ -1 +1 @@
 use strict;
 use warnings;
+use t::Utils;
 use Test::More;
 eval "use HTTP::Server::Simple";

lang/perl/HTTP-Engine/branches/maintenance_0.0.x/t/020_interface/test_upload.t

@@ -1 +1 @@
 use strict;
 use warnings;
+use t::Utils;
 use HTTP::Engine;
 use HTTP::Headers;

lang/perl/HTTP-Engine/branches/maintenance_0.0.x/t/Utils.pm

@@ -6 +6 @@
 use HTTP::Request::AsCGI;
 use Test::TCP qw/test_tcp empty_port/;
+use HTTP::Engine::RequestBuilder::CGI;
+use HTTP::Engine::RequestBuilder::NoEnv;
+use File::Temp qw/tempdir/;
 
 use IO::Socket::INET;
+
+{
+    no warnings 'redefine';
+    my $tmpdir = tempdir( CLEANUP => 1 );
+    *HTTP::Engine::RequestBuilder::CGI::upload_tmp   = sub {
+        my $self = shift;
+        $self->{upload_tmp} ||= $tmpdir;
+        $self->{upload_tmp} = shift if @_;
+        $self->{upload_tmp};
+    };
+    *HTTP::Engine::RequestBuilder::NoEnv::upload_tmp = sub {
+        my $self = shift;
+        $self->{upload_tmp} ||= $tmpdir;
+        $self->{upload_tmp} = shift if @_;
+        $self->{upload_tmp};
+    };
+}
 
 use Sub::Exporter -setup => {