t/31dumper.t

   1 #!/usr/bin/perl
   2 # vim: set ft=perl:
   3
   4 use strict;
   5 use Config;
   6 use FindBin qw/$Bin/;
   7 use Test::More;
   8 use File::Temp 'tempfile';
   9 use SQL::Translator;
  10 use Test::SQL::Translator qw(maybe_plan);
  11
  12 BEGIN {
  13     maybe_plan(
  14         5,
  15         'SQL::Translator::Parser::SQLite',
  16         'SQL::Translator::Producer::Dumper'
  17     );
  18 }
  19
  20 my $db_user         = 'nomar';
  21 my $db_pass         = 'gos0X!';
  22 my $dsn             = 'dbi:SQLite:dbname=/tmp/foo';
  23 my $file            = "$Bin/data/sqlite/create.sql";
  24 my $t               = SQL::Translator->new(
  25     from            => 'SQLite',
  26     to              => 'Dumper',
  27     producer_args   => {
  28         skip        => 'pet',
  29         skiplike    => '',
  30         db_user     => $db_user,
  31         db_password => $db_pass,
  32         dsn         => $dsn,
  33     }
  34 );
  35
  36 my $output = $t->translate( $file );
  37
  38 ok( $output, 'Got dumper script' );
  39
  40 my ( $fh, $filename ) = tempfile( 'XXXXXXXX' );
  41
  42 print $fh $output;
  43
  44 my $perl = $Config{'perlpath'};
  45 my $cmd  = "$perl -cw $filename";
  46 my $res  = `$cmd 2>&1`;
  47 like( $res, qr/syntax OK/, 'Generated script syntax is OK' );
  48
  49 like( $output, qr{DBI->connect\(\s*'$dsn',\s*'$db_user',\s*'$db_pass',},
  50     'Script contains correct DSN, db user and password' );
  51
  52 like( $output, qr/table_name\s*=>\s*'person',/, 'Found "person" table' );
  53 unlike( $output, qr/table_name\s*=>\s*'pet',/, 'Skipped "pet" table' );
  54
  55 unlink $filename;