37 lines
785 B
Diff
37 lines
785 B
Diff
![]() |
Index: CGI-PSGI-0.15/t/upload.t
|
||
|
===================================================================
|
||
|
--- CGI-PSGI-0.15.orig/t/upload.t
|
||
|
+++ CGI-PSGI-0.15/t/upload.t
|
||
|
@@ -1,5 +1,5 @@
|
||
|
use strict;
|
||
|
-use Test::More;
|
||
|
+use Test::More qw(no_plan);
|
||
|
use CGI::PSGI;
|
||
|
use CGI;
|
||
|
use IO::Handle;
|
||
|
@@ -28,7 +28,7 @@ my $env = {
|
||
|
is $body, "FOO";
|
||
|
}
|
||
|
|
||
|
-done_testing;
|
||
|
+# done_testing;
|
||
|
|
||
|
__DATA__
|
||
|
------BOUNDARY
|
||
|
Index: CGI-PSGI-0.15/t/http.t
|
||
|
===================================================================
|
||
|
--- CGI-PSGI-0.15.orig/t/http.t
|
||
|
+++ CGI-PSGI-0.15/t/http.t
|
||
|
@@ -1,4 +1,4 @@
|
||
|
-use Test::More;
|
||
|
+use Test::More qw(no_plan);
|
||
|
use CGI::PSGI;
|
||
|
use CGI;
|
||
|
|
||
|
@@ -25,4 +25,4 @@ $env->{HTTP_REFERER} = 'http://localh
|
||
|
is $q->referer, 'http://localhost/foo';
|
||
|
}
|
||
|
|
||
|
-done_testing;
|
||
|
+#done_testing;
|