X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fstorage%2Fcursor.t;h=e6c0ba7f06bc6ca80ca9ec1efd5cd0c23204f2f2;hb=e705f5290cf384194c31a807c9bb722c7a167dfd;hp=fb5f0ccdb7280df5f0bd2175fb8fc33034b05278;hpb=db29433c74a98967f61f117bd508c06055db2892;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/storage/cursor.t b/t/storage/cursor.t
index fb5f0cc..e6c0ba7 100644
--- a/t/storage/cursor.t
+++ b/t/storage/cursor.t
@@ -13,4 +13,15 @@ lives_ok {
   is($schema->resultset("Artist")->search(), 3, "Three artists returned");
 } 'Custom cursor autoloaded';
 
+SKIP: {
+  eval { require Class::Unload }
+    or skip 'component_class reentrancy test requires Class::Unload', 1;
+
+  Class::Unload->unload('DBICTest::Cursor');
+
+  lives_ok {
+    is($schema->resultset("Artist")->search(), 3, "Three artists still returned");
+  } 'Custom cursor auto re-loaded';
+}
+
 done_testing;