Audit/simplify various ->is_* runmode specs

[dbsrgits/DBIx-Class.git] / t / storage / cursor.t

diff --git a/t/storage/cursor.t b/t/storage/cursor.t
index fb5f0cc..ce0be84 100644 (file)
--- 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';
 
+# test component_class reentrancy
+SKIP: {
+  DBIx::Class::Optional::Dependencies->skip_without( 'Class::Unload>=0.07' );
+
+  Class::Unload->unload('DBICTest::Cursor');
+
+  lives_ok {
+    is($schema->resultset("Artist")->search(), 3, "Three artists still returned");
+  } 'Custom cursor auto re-loaded';
+}
+
 done_testing;