[dbsrgits/DBIx-Class.git] / t / icdt / datetime_missing_deps.t

use strict;
use warnings;

use Test::More;
use Test::Exception;
use lib qw(t/lib);
use DBICTest;

my $no_class = '_DBICTEST_NONEXISTENT_CLASS_';

my $schema = DBICTest->init_schema();
$schema->storage->datetime_parser_type($no_class);

my $event = $schema->resultset('Event')->find(1);

# test that datetime_undef_if_invalid does not eat the missing dep exception
throws_ok {
  my $dt = $event->starts_at;
} qr{Can't locate ${no_class}\.pm};

done_testing;
Commit	Line	Data
24f5cbcb	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5	use Test::Exception;
	6	use lib qw(t/lib);
	7	use DBICTest;
	8
	9	my $no_class = '_DBICTEST_NONEXISTENT_CLASS_';
	10
	11	my $schema = DBICTest->init_schema();
	12	$schema->storage->datetime_parser_type($no_class);
	13
	14	my $event = $schema->resultset('Event')->find(1);
	15
	16	# test that datetime_undef_if_invalid does not eat the missing dep exception
	17	throws_ok {
	18	my $dt = $event->starts_at;
	19	} qr{Can't locate ${no_class}\.pm};
	20
	21	done_testing;