Testing infrastructure adjustments

Author: symkat

Web/lib/BlogDB/Web/Test.pm

@@ -2,22 +2,22 @@ package BlogDB::Web::Test;
 use Import::Into;
 use Test::More;
 use Test::Deep;
-use Test::Mojo;
+use Test::Mojo::BlogDB;
 use Test::Postgresql58;
 
 push our @ISA, qw( Exporter );
-push our @EXPORT, qw(  );
+push our @EXPORT, qw( $run_code );
 
 sub import {
     shift->export_to_level(1);
     my $target = caller;
 
-    Mojo::Base->import::into($target, '-strict');
-    warnings  ->import::into($target);
-    strict    ->import::into($target);
-    Test::More->import::into($target);
-    Test::Deep->import::into($target);
-    Test::Mojo->import::into($target);
+    Mojo::Base        ->import::into($target, '-strict', '-signatures' );
+    warnings          ->import::into($target);
+    strict            ->import::into($target);
+    Test::More        ->import::into($target);
+    Test::Deep        ->import::into($target);
+    Test::Mojo::BlogDB->import::into($target);
 }
 
 our $pgsql = Test::Postgresql58->new()
@@ -49,4 +49,4 @@ sub load_psql_file {
     undef $dbh;
 }
 
-1;
+1;

Web/lib/Test/Mojo/BlogDB.pm

@@ -0,0 +1,31 @@
+package Test::Mojo::BlogDB;
+use parent 'Test::Mojo';
+use Data::Dumper;
+
+sub new {
+    my $class = shift;
+    my $self = $class->SUPER::new(@_);
+
+    $self->app->hook( after_dispatch => sub {
+        my ( $c ) = @_;
+        $self->stash( $c->stash );
+    });
+
+    return $self;
+}
+
+sub stash {
+    my $self = shift;
+    $self->{stash} = shift if @_;
+    return $self->{stash};
+}
+
+sub code_block  {
+    my ( $t, $code ) = @_;
+
+    $code->($t);
+
+    return $t;
+}
+
+1;