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

#!perl

use DBIx::Class::Fixtures;
use Test::More tests => 3;

my $config_dir = 't/var/configs';
my $imaginary_config_dir = 't/var/not_there';

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;
	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