packages: perl-Plack/perl-Plack-tests.patch (NEW) - added test patch

[aredridel]

Author: aredridel                    Date: Wed May 11 04:35:54 2011 GMT
Module: packages                      Tag: HEAD
---- Log message:
- added test patch

---- Files affected:
packages/perl-Plack:
   perl-Plack-tests.patch (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: packages/perl-Plack/perl-Plack-tests.patch
diff -u /dev/null packages/perl-Plack/perl-Plack-tests.patch:1.1
--- /dev/null	Wed May 11 06:35:54 2011
+++ packages/perl-Plack/perl-Plack-tests.patch	Wed May 11 06:35:49 2011
@@ -0,0 +1,26 @@
+diff -ur Plack-0.9978-o/t/Plack-Middleware/conditionalget_writer.t Plack-0.9978/t/Plack-Middleware/conditionalget_writer.t
+--- Plack-0.9978-o/t/Plack-Middleware/conditionalget_writer.t	2011-04-12 18:36:52.000000000 -0600
++++ Plack-0.9978/t/Plack-Middleware/conditionalget_writer.t	2011-05-10 22:14:27.000000000 -0600
+@@ -5,6 +5,7 @@
+ use HTTP::Request::Common;
+ use Plack::Test;
+ 
++
+ my $handler = builder {
+     enable 'ConditionalGET';
+ 
+@@ -26,12 +27,14 @@
+     my $cb = shift;
+ 
+     subtest 'streaming' => sub {
++	plan tests => 2;
+         my $res = $cb->( GET "http://localhost/streaming-klingklangklong" );
+         is $res->code, 200, 'Response HTTP status';
+         is $res->content, 'klingklangklong', 'Response content';
+     };
+ 
+     subtest 'streaming not modified' => sub {
++	plan tests => 2;
+         # the middleware does not support streaming interface but make it at least not die
+         my $res = $cb->( GET
+             "http://localhost/streaming-klingklangklong",
================================================================