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