t/98source_load_error.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More tests => 1;
   5
   6 use lib qw(t/lib);
   7 eval {
   8   package DBICErrorTest::Schema;
   9
  10   use base 'DBIx::Class::Schema';
  11   __PACKAGE__->load_classes('SourceWithError');
  12 };
  13
  14 # Make sure the errors in components of resultset classes are reported right.
  15 like($@, qr!syntax error at t/lib/DBICErrorTest/SyntaxError.pm!);