t/31dumper.t

   1 #!/usr/bin/perl
   2 # vim: set ft=perl:
   3 #
   4
   5 use strict;
   6 use FindBin qw/$Bin/;
   7 use Test::More;
   8 use SQL::Translator;
   9 use Test::SQL::Translator qw(maybe_plan);
  10
  11 BEGIN {
  12     maybe_plan(
  13         1,
  14         'SQL::Translator::Parser::SQLite',
  15         'SQL::Translator::Producer::Dumper'
  16     );
  17 }
  18
  19 my $file            = "$Bin/data/sqlite/create.sql";
  20 my $t               = SQL::Translator->new(
  21     from            => 'SQLite',
  22     to              => 'Dumper',
  23     producer_args   => {
  24         skip        => $skip,
  25         skiplike    => $skiplike,
  26         db_user     => $db_user,
  27         db_password => $db_pass,
  28         dsn         => $dsn,
  29     }
  30 );
  31
  32 my $output = $t->translate( $file );