Permalink
Browse files

makeまわりがぶっこわれておった

  • Loading branch information...
1 parent ad79978 commit 530753a222679cca199616311305a845eec4c505 @nekokak committed Nov 9, 2010
View
@@ -17,6 +17,8 @@ requires 'Class::Trigger';
requires 'Class::Data::Inheritable';
requires 'Template';
requires 'Template::Stash::EscapeHTML';
+requires 'Scalar::Util';
+requires 'FormValidator::Lite';
test_requires 'Test::More';
test_requires 'Test::Exception';
View
@@ -4,6 +4,8 @@ use warnings;
use utf8;
use UNIVERSAL::require;
+our $VERSION = '0.01';
+
sub import {
strict->import;
warnings->import;
@@ -8,7 +8,6 @@ my $psgi_handler;
Kamui::Web::Context->load_plugins([qw/Encode/]);
my $app = Mock::Web::Handler->new;
-$app->setup;
$psgi_handler = $app->handler;
subtest 'simple handler test' => sub {
@@ -3,6 +3,11 @@ use Test::More;
use Kamui::Web::Context;
use Mock::Web::Handler;
+BEGIN {
+ eval "use HTTP::MobileAgent";
+ plan skip_all => 'needs HTP::MobileAgent for testing' if $@;
+};
+
my $plugins = [qw/Mobile::Agent/];
Kamui::Web::Context->load_plugins($plugins);
@@ -4,6 +4,13 @@ use Kamui::Web::Context;
use Mock::Web::Handler;
use Mock::Container;
+BEGIN {
+ eval "use HTTP::MobileAgent";
+ plan skip_all => 'needs HTP::MobileAgent for testing' if $@;
+ eval "use HTML::MobileJpCSS";
+ plan skip_all => 'needs HTML::MobileJpCSS for testing' if $@;
+};
+
my $plugins = [qw/Encode Mobile::Agent Mobile::CSSFilter/];
Kamui::Web::Context->load_plugins($plugins);
@@ -3,6 +3,13 @@ use Test::More;
use Kamui::Web::Context;
use Mock::Web::Handler;
+BEGIN {
+ eval "use HTTP::MobileAgent";
+ plan skip_all => 'needs HTP::MobileAgent for testing' if $@;
+ eval "use HTML::StickyQuery::DoCoMoGUID";
+ plan skip_all => 'needs HTML::StickyQuery::DoCoMoGUID for testing' if $@;
+};
+
my $plugins = [qw/Encode Mobile::Agent Mobile::DoCoMoGUIDFilter/];
Kamui::Web::Context->load_plugins($plugins);
@@ -3,6 +3,11 @@ use Test::More;
use Kamui::Web::Context;
use Mock::Web::Handler;
+BEGIN {
+ eval "use HTTP::MobileAgent";
+ plan skip_all => 'needs HTP::MobileAgent for testing' if $@;
+};
+
my $plugins = [qw/Encode Mobile::EmojiFilter/];
Kamui::Web::Context->load_plugins($plugins);
@@ -2,5 +2,6 @@ package Mock::Web::Handler;
use Kamui::Web::Handler;
use_container 'Mock::Container';
+use_dispatcher 'Mock::Web::Dispatcher';
1;
View
@@ -2,7 +2,12 @@ use t::Utils;
use Test::More;
use Test::Exception;
use IO::Scalar;
-use Email::MIME::JP::Mobile;
+
+BEGIN {
+ eval "use Email::MIME::JP::Mobile";
+ plan skip_all => 'needs Email::MIME::JP::Mobile for testing' if $@;
+};
+
use Kamui::Mail;
use Mock::Container;

0 comments on commit 530753a

Please sign in to comment.