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