added example for testing custom transactions

mojolicious · Apr 13, 2012 · 628330b · 628330b
1 parent e352a50
commit 628330b
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -1,6 +1,6 @@
 This file documents the revision history for Perl extension Mojolicious.
 
-2.81  2012-04-12
+2.81  2012-04-13
   - Improved all debug messages.
   - Improved documentation.
   - Improved tests.

diff --git a/lib/Test/Mojo.pm b/lib/Test/Mojo.pm
@@ -416,6 +416,13 @@ Current transaction, usually a L<Mojo::Transaction::HTTP> object.
   is $t->tx->res->json->{foo}, 'bar', 'right value';
   ok $t->tx->res->is_multipart, 'multipart content';
 
+  # Test custom transaction
+  my $tx = $t->ua->build_form_tx('/users' => {name => 'sri', id => 99});
+  $tx->req->method('PUT');
+  $t->tx($t->ua->start($tx))
+    ->status_is(200)
+    ->text_is('div#message' => 'User has been replaced.');
+
 =head2 C<ua>
 
   my $ua = $t->ua;