Commit | Line | Data |
---|---|---|
49c1f684 | 1 | #!/usr/bin/perl |
2 | # vim: set ft=perl: | |
3 | # | |
4 | # Test that the filename can be set with an ArrayRef as well as a Str. | |
5 | # | |
6 | ||
7 | use strict; | |
8 | ||
9 | use SQL::Translator; | |
10 | use Test::More tests => 2; | |
11 | ||
12 | my $datafile = "t/data/mysql/Apache-Session-MySQL.sql"; | |
13 | my $tr0 = SQL::Translator->new(filename => $datafile); | |
14 | my $tr1 = SQL::Translator->new(filename => [$datafile]); | |
15 | ok($tr0, "filename takes a Str"); | |
16 | ok($tr1, "filename takes an ArrayRef"); |