Commit | Line | Data |
e5963c1b |
1 | #!perl |
2 | |
3 | use DBIx::Class::Fixtures; |
4 | use Test::More tests => 3; |
5 | |
6 | my $config_dir = 't/var/configs'; |
7 | my $imaginary_config_dir = 't/var/not_there'; |
8 | |
9 | eval { |
10 | DBIx::Class::Fixtures->new({ }); |
11 | }; |
12 | ok($@, 'new errors without config dir'); |
13 | |
14 | eval { |
15 | DBIx::Class::Fixtures->new({ config_dir => $imaginary_config_dir }); |
16 | }; |
17 | ok($@, 'new errors with non-existent config dir'); |
18 | |
19 | ok(my $fixtures = DBIx::Class::Fixtures->new({ config_dir => $config_dir }), 'object created with correct config dir'); |
570384ac |
20 | |