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

BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }

use strict;
use warnings;

use Test::More;
use Test::Exception;

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
c0329273	1	BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ \|\| $! ) }
c0329273	2
24f5cbcb	3	use strict;
	4	use warnings;
	5
	6	use Test::More;
	7	use Test::Exception;
c0329273	8
24f5cbcb	9	use DBICTest;
	10
	11	my $no_class = '_DBICTEST_NONEXISTENT_CLASS_';
	12
	13	my $schema = DBICTest->init_schema();
	14	$schema->storage->datetime_parser_type($no_class);
	15
	16	my $event = $schema->resultset('Event')->find(1);
	17
	18	# test that datetime_undef_if_invalid does not eat the missing dep exception
	19	throws_ok {
	20	my $dt = $event->starts_at;
	21	} qr{Can't locate ${no_class}\.pm};
	22
	23	done_testing;