From: Mateu X Hunter <hunter@missoula.org>
Date: Tue, 9 Oct 2012 21:20:02 +0000 (-0600)
Subject: Test Str and ArrayRef input for SQLT->filename
X-Git-Tag: v0.011016~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=49c1f684968755679d73ae98bf57f701a2f5d8da;p=dbsrgits%2FSQL-Translator.git

Test Str and ArrayRef input for SQLT->filename
---

diff --git a/t/74-filename-arrayref.t b/t/74-filename-arrayref.t
new file mode 100644
index 0000000..e07672b
--- /dev/null
+++ b/t/74-filename-arrayref.t
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+# vim: set ft=perl:
+#
+# Test that the filename can be set with an ArrayRef as well as a Str.
+#
+
+use strict;
+
+use SQL::Translator;
+use Test::More tests => 2;
+
+my $datafile = "t/data/mysql/Apache-Session-MySQL.sql";
+my $tr0 = SQL::Translator->new(filename => $datafile);
+my $tr1 = SQL::Translator->new(filename => [$datafile]);
+ok($tr0, "filename takes a Str");
+ok($tr1, "filename takes an ArrayRef");