Adding test for Dumper producer.

diff --git a/t/31dumper.t b/t/31dumper.t
new file mode 100644 (file)
index 0000000..ac2df91
--- /dev/null
+++ b/t/31dumper.t
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+# vim: set ft=perl:
+#
+
+use strict;
+use FindBin qw/$Bin/;
+use Test::More;
+use SQL::Translator;
+use Test::SQL::Translator qw(maybe_plan);
+
+BEGIN {
+    maybe_plan(
+        1, 
+        'SQL::Translator::Parser::SQLite',
+        'SQL::Translator::Producer::Dumper'
+    );
+}
+
+my $file            = "$Bin/data/sqlite/create.sql";
+my $t               = SQL::Translator->new(
+    from            => 'SQLite',
+    to              => 'Dumper',
+    producer_args   => {
+        skip        => $skip,
+        skiplike    => $skiplike,
+        db_user     => $db_user,
+        db_password => $db_pass,
+        dsn         => $dsn,
+    }
+);
+
+my $output = $t->translate( $file );