t/31dumper.t

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