view release on metacpan or  search on metacpan

t/01-test.t  view on Meta::CPAN

use strict;
use warnings;
use v5.020;

use lib 't/lib';
use WithSchemaTest;
use Dad;

use Test::More;
use File::Temp qw/tempdir/;
use Test::Fatal qw(lives_ok dies_ok);

my $dbh = WithSchemaTest::dbh();
my @connection = (sub { $dbh }, { ignore_version => 1 });

SCHEMA1: {
  # Each schema will use a different dir, to represent different modules coming
  # from different places.
  my $sql_dir = tempdir( CLEANUP => 1 );

  use_ok 'ResultClassOne_v1';