X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F004_basic_file_w_customs.t;fp=t%2F004_basic_file_w_customs.t;h=0c663cd43f3a5f0914a33898f725ee2b7f6c3506;hb=852657925d5400d65df324678b7a0ce7558ced95;hp=de79650cf18681a063ace3c9ea33d09e50df9a36;hpb=98b27b3116e950ce0fc00ac2b7a7795b7ead6a11;p=catagits%2FWeb-Session.git

diff --git a/t/004_basic_file_w_customs.t b/t/004_basic_file_w_customs.t
old mode 100644
new mode 100755
index de79650..0c663cd
--- a/t/004_basic_file_w_customs.t
+++ b/t/004_basic_file_w_customs.t
@@ -20,13 +20,13 @@ if ( !-d $TMP ) {
 }
 
 t::lib::TestSession::run_all_tests(
-    store           => Plack::Session::Store::File->new(
+    store  => Plack::Session::Store::File->new(
         dir          => $TMP,
         serializer   => sub { YAML::DumpFile( reverse @_ ) }, # YAML takes it's args the opposite of Storable
         deserializer => sub { YAML::LoadFile( @_ ) },
     ),
-    state           => Plack::Session::State->new,
-    request_creator => sub {
+    state  => Plack::Session::State->new,
+    env_cb => sub {
         open my $in, '<', \do { my $d };
         my $env = {
             'psgi.version'    => [ 1, 0 ],
@@ -35,10 +35,8 @@ t::lib::TestSession::run_all_tests(
             'psgi.url_scheme' => 'http',
             SERVER_PORT       => 80,
             REQUEST_METHOD    => 'GET',
+            QUERY_STRING      => join "&" => map { $_ . "=" . $_[0]->{ $_ } } keys %{$_[0] || +{}},
         };
-        my $r = Plack::Request->new( $env );
-        $r->parameters( @_ );
-        $r;
     },
 );