X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F01core.t;h=5ccdd4014d2552ea2f57efdd5e742519bc09fdae;hb=227d4dee52a91339e04dd509712ac062450bbb82;hp=fbc1851d1758a955f6cd46611883374da76e7b77;hpb=8d5134b09734852f9c11a3fd6b1c8f6551637b53;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/t/01core.t b/t/01core.t
index fbc1851..5ccdd40 100644
--- a/t/01core.t
+++ b/t/01core.t
@@ -1,6 +1,6 @@
 use Test::More;
 
-plan tests => 22;
+plan tests => 23;
 
 use lib qw(t/lib);
 
@@ -90,3 +90,7 @@ ok($new->in_storage, 'insert_or_update insert ok');
 $new->position(5);
 $new->insert_or_update;
 is( DBICTest::Track->find(100)->position, 5, 'insert_or_update update ok');
+
+eval { DBICTest::Track->load_components('DoesNotExist'); };
+
+ok $@, $@;