[dbsrgits/DBIx-Class-Fixtures.git] / t / 01-new.t

#!perl

use DBIx::Class::Fixtures;
use Test::More tests => 3;
use Test::TempDir::Tiny;
use IO::All;

my $tempdir = tempdir;

my $config_dir = io->catfile(qw't var configs')->name;
my $imaginary_config_dir = io->catfile(qw't var not_there')->name;

eval {
  DBIx::Class::Fixtures->new({ });
};
ok($@, 'new errors without config dir');

eval {
  DBIx::Class::Fixtures->new({ config_dir => $imaginary_config_dir });
};
ok($@, 'new errors with non-existent config dir');

ok(my $fixtures = DBIx::Class::Fixtures->new({ config_dir => $config_dir }), 'object created with correct config dir');
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;
01a3246a	9
66d02e24	10	my $config_dir = io->catfile(qw't var configs')->name;
66d02e24	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