Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Checking in changes prior to tagging of version 0.2002.

Changelog diff is:

diff --git a/Changes b/Changes
index 591ae8a..8125894 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension Starman

+0.2002 Sat Apr 17 18:44:24 PDT 2010
+        - Switch kyoto.jpg to use baybridge.jpg for testing
+
 0.2001 Tue Apr 13 21:45:15 PDT 2010
         - Fixed the way to set the default Delayed loader
  • Loading branch information...
commit 6c77f1c7917b7d9a8081e55c09d03143e485f84f 1 parent f30b520
@miyagawa authored
Showing with 7 additions and 4 deletions.
  1. +3 −0  Changes
  2. +1 −1  lib/Starman.pm
  3. +3 −3 t/chunked_req.t
View
3  Changes
@@ -1,5 +1,8 @@
Revision history for Perl extension Starman
+0.2002 Sat Apr 17 18:44:24 PDT 2010
+ - Switch kyoto.jpg to use baybridge.jpg for testing
+
0.2001 Tue Apr 13 21:45:15 PDT 2010
- Fixed the way to set the default Delayed loader
View
2  lib/Starman.pm
@@ -2,7 +2,7 @@ package Starman;
use strict;
use 5.008_001;
-our $VERSION = '0.2001';
+our $VERSION = '0.2002';
1;
__END__
View
6 t/chunked_req.t
@@ -8,7 +8,7 @@ use Digest::MD5;
$Plack::Test::Impl = "Server";
$ENV{PLACK_SERVER} = 'Starman';
-my $file = File::ShareDir::dist_dir('Plack') . "/kyoto.jpg";
+my $file = File::ShareDir::dist_dir('Plack') . "/baybridge.jpg";
my $app = sub {
my $env = shift;
@@ -33,8 +33,8 @@ test_psgi $app, sub {
my $res = $cb->($req);
- is $res->header('X-Content-Length'), 2397701;
- is Digest::MD5::md5_hex($res->content), '9c6d7249a77204a88be72e9b2fe279e8';
+ is $res->header('X-Content-Length'), 79838;
+ is Digest::MD5::md5_hex($res->content), '983726ae0e4ce5081bef5fb2b7216950';
};
done_testing;
Please sign in to comment.
Something went wrong with that request. Please try again.