added example for extracting additional information from test applica…

…tions
mojolicious · Nov 19, 2012 · 536ea37 · 536ea37
1 parent aac4688
commit 536ea37
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -1,5 +1,5 @@
 
-3.58  2012-11-18
+3.58  2012-11-19
   - Improved documentation.
   - Improved tests.
   - Fixed state bugs in Mojo::Content::MultiPart.

diff --git a/lib/Test/Mojo.pm b/lib/Test/Mojo.pm
@@ -431,6 +431,10 @@ Access application with L<Mojo::UserAgent/"app">.
       if $self->req->url->path->contains('/user');
   });
 
+  # Extract additional information
+  my $stash;
+  $t->app->hook(after_dispatch => sub { $stash = shift->stash });
+
 =head2 C<content_is>
 
   $t = $t->content_is('working!');

diff --git a/t/mojolicious/group_lite_app.t b/t/mojolicious/group_lite_app.t
@@ -205,6 +205,10 @@ get '/one_format' => [format => 'xml'] => {text => 'One format.'};
 
 my $t = Test::Mojo->new;
 
+# Preserve stash
+my $stash;
+$t->app->hook(after_dispatch => sub { $stash = shift->stash });
+
 # GET /expiration (zero expiration persists)
 $t->ua->max_redirects(1);
 $t->get_ok('/expiration?redirect=1')->status_is(200)
@@ -237,6 +241,7 @@ $t->get_ok('/param_auth')->status_is(200)
   ->header_is(Server         => 'Mojolicious (Perl)')
   ->header_is('X-Powered-By' => 'Mojolicious (Perl)')
   ->content_is("Not Bender!\n");
+is $stash->{_name}, undef, 'no "_name" value';
 
 # GET /param_auth?name=Bender
 $t->get_ok('/param_auth?name=Bender')->status_is(200)
@@ -259,6 +264,7 @@ $t->get_ok('/param_auth/too?name=Bender')->status_is(200)
 $t->get_ok('/bridge2stash' => {'X-Flash' => 1})->status_is(200)
   ->content_is("stash too!!!!!!!\n");
 ok $t->tx->res->cookie('mojolicious')->expires, 'has expiration';
+is $stash->{_name}, 'stash', 'right "_name" value';
 
 # GET /bridge2stash (with cookies, session and flash)
 $t->get_ok('/bridge2stash')->status_is(200)
@@ -326,6 +332,7 @@ $t->get_ok('/with/under/count' => {'X-Bender' => 'Rodriguez'})->status_is(200)
   ->header_is(Server         => 'Mojolicious (Perl)')
   ->header_is('X-Powered-By' => 'Mojolicious (Perl)')
   ->header_is('X-Under'      => 1)->content_is("counter\n");
+is $stash->{_name}, undef, 'no "_name" value';
 
 # GET /bridge2stash (again)
 $t->get_ok('/bridge2stash' => {'X-Flash' => 1})->status_is(200)