Changeset 32083

Timestamp:

04/07/09 19:19:55 (4 years ago)

Author:

tokuhirom

Message:

$args->{session} is required for this hook point

Files:

• lang/perl/Moxy/trunk/t/Plugins/RefererCutter.t (modified) (2 diffs)

lang/perl/Moxy/trunk/t/Plugins/RefererCutter.t

@@ -5 +5 @@
 use HTTP::Request;
 use Test::More tests => 2;
+use HTTP::Session::State::Test;
+use HTTP::Session::Store::Test;
+use CGI;
 
 Moxy->load_plugins(qw/RefererCutter/);
@@ -20 +23 @@
 $req->header('Referer' => 'http://wassr.jp/');
 $req->header('X-Moe' => 'nishiohirokazu');
-$m->run_hook('request_filter' => { request => $req });
+$m->run_hook('request_filter' => { request => $req, session => HTTP::Session->new(
+    state => HTTP::Session::State::Test->new(
+        session_id => 'fkldsaaljasdfafaa',
+    ),
+    store => HTTP::Session::Store::Test->new,
+    request => CGI->new(),
+)});
 is $req->header('X-Moe') => 'nishiohirokazu';
 ok !$req->header('Referer');