fix code running 2x in dynamic schema_base_class

[dbsrgits/DBIx-Class-Schema-Loader.git] / t / lib / DBIx / Class / TestSchemaComponent.pm

diff --git a/t/lib/DBIx/Class/TestSchemaComponent.pm b/t/lib/DBIx/Class/TestSchemaComponent.pm
index 6e83dc6..e277880 100644 (file)
--- a/t/lib/DBIx/Class/TestSchemaComponent.pm
+++ b/t/lib/DBIx/Class/TestSchemaComponent.pm
@@ -8,7 +8,7 @@ our $test_component_ok = 0;
 sub connection {
     my ($self, @info) = @_;
 
-    $test_component_ok = 1;
+    $test_component_ok++;
 
     return $self->next::method(@info);
 }