view release on metacpan or  search on metacpan

t/tests.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More qw(no_plan);
use Path::Class;
use Mesoderm;
use SQL::Translator;
use Test::Differences;

my @tests = grep { /\.sql$/ } file(__FILE__)->absolute->parent->subdir('tests')->children;

foreach my $in (@tests) {
  (my $out = $in) =~ s/\.sql/.out/;

  my $sqlt = SQL::Translator->new(parser => 'MySQL',);

  $sqlt->translate({filename => $in});
  my $scaffold = Mesoderm->new(