Changeset 17547

Timestamp:

08/12/08 23:20:36 (5 years ago)

Author:

yappo

Message:

add more tests

Location:

lang/perl/HTTP-Engine-Compat/trunk

Files:

• lib/HTTP/Engine/Compat.pm (modified) (1 diff)
• t/010_core/middleware-import.t (modified) (1 diff)
• t/010_core/response_redirect.t (modified) (1 diff)

lang/perl/HTTP-Engine-Compat/trunk/lib/HTTP/Engine/Compat.pm

@@ -87 +87 @@
     my $pkg;
     if (($pkg = $middleware) =~ s/^(\+)//) {
-        Class::MOP::load_class($pkg) or die $@;
+        Class::MOP::load_class($pkg);
     } else {
         $pkg = 'HTTP::Engine::Middleware::' . $middleware;

lang/perl/HTTP-Engine-Compat/trunk/t/010_core/middleware-import.t

@@ -4 +4 @@
 use lib 't/testlib';
 use HTTP::Engine::Compat middlewares => ['+t::DummyMiddlewareImport', 'Foo', 'Bar'];
-use Test::More tests => 1;
+use Test::More tests => 5;
 
 our $setup;
 is $main::setup, 'ok';
 
+do {
+    no strict 'refs';
+    no warnings 'redefine';
+    my $status = 'ng';
+    local *HTTP::Engine::Compat::load_middlewares = sub { $status = 'ok' };
+
+    HTTP::Engine::Compat->import( middlewares => +{} );
+    is $status, 'ng';
+    $status = 'ng';
+
+    HTTP::Engine::Compat->import( middlewares => [] );
+    is $status, 'ok';
+};
+
+do {
+    local $@;
+    eval {
+        HTTP::Engine::Compat->load_middlewares(qw/ Die /);
+    };
+    like $@, qr|Can't locate HTTPEx/Middleware/Die.pm|;
+};
+
+
+do {
+    local $@;
+    eval {
+        HTTP::Engine::Compat->load_middlewares(qw/ +Die /);
+    };
+    like $@, qr|Can't locate Die.pm|;
+};

lang/perl/HTTP-Engine-Compat/trunk/t/010_core/response_redirect.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More tests => 1;
+use Test::More tests => 8;
 use HTTP::Engine::Compat;
 use HTTP::Engine::Compat::Context;
 use HTTP::Engine::ResponseFinalizer;
 
-my $c = HTTP::Engine::Compat::Context->new;
-$c->req->method('POST');
-$c->req->base(URI->new('http://d.hatena.ne.jp/'));
-$c->res->redirect('/TKSK/');
-HTTP::Engine::ResponseFinalizer->finalize($c->req, $c->res);
-is $c->res->header('Location'), 'http://d.hatena.ne.jp/TKSK/';
+do {
+    my $c = HTTP::Engine::Compat::Context->new;
+    $c->req->method('POST');
+    $c->req->base(URI->new('http://d.hatena.ne.jp/'));
+    $c->res->redirect('/TKSK/');
+    HTTP::Engine::ResponseFinalizer->finalize($c->req, $c->res);
+    is $c->res->header('Location'), 'http://d.hatena.ne.jp/TKSK/';
+    is $c->res->status, 302;
+    is $c->res->redirect, '/TKSK/';
+    is $c->res->body, '302: Redirect';
+};
 
+do {
+    my $c = HTTP::Engine::Compat::Context->new;
+    $c->req->method('GET');
+    $c->req->base(URI->new('http://d.hatena.ne.jp/'));
+    $c->res->body('OK');
+    $c->res->redirect('/TKSK/' => 303);
+    HTTP::Engine::ResponseFinalizer->finalize($c->req, $c->res);
+    is $c->res->header('Location'), 'http://d.hatena.ne.jp/TKSK/';
+    is $c->res->status, 303;
+    is $c->res->redirect, '/TKSK/';
+    is $c->res->body, 'OK';
+};