Test Str and ArrayRef input for SQLT->filename

rporres · Oct 9, 2012 · 49c1f68 · 49c1f68
1 parent 62d2a1c
commit 49c1f68
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/t/74-filename-arrayref.t 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");