From: Ken Youens-Clark <kclark@cpan.org>
Date: Thu, 11 Mar 2004 17:13:27 +0000 (+0000)
Subject: Adding test for Dumper producer.
X-Git-Tag: v0.06~139
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3c5dc866414973dfc7f3dd4ca1bc5b2c2731575e;p=dbsrgits%2FSQL-Translator.git

Adding test for Dumper producer.
---

diff --git a/t/31dumper.t b/t/31dumper.t
new file mode 100644
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 );