More tests changed when a new repo was added

[catagits/Gitalist.git] / t / model_collectionofrepos.t

diff --git a/t/model_collectionofrepos.t b/t/model_collectionofrepos.t
index ae1a6a9..4db6713 100644 (file)
--- a/t/model_collectionofrepos.t
+++ b/t/model_collectionofrepos.t
@@ -1,5 +1,11 @@
 use FindBin qw/$Bin/;
-BEGIN { do "$FindBin::Bin/../script/env" or die $@ }
+BEGIN {
+    my $env = "$FindBin::Bin/../script/env";
+    if (-r $env) {
+        do $env or die $@;
+    }
+}
+
 use strict;
 use warnings;
 
@@ -89,7 +95,19 @@ throws_ok { Gitalist::Model::CollectionOfRepos->COMPONENT($ctx_gen->(), { repos
 
 {
     my $i = test_with_config({ repo_dir => "$FindBin::Bin/lib/repositories"});
-    is scalar($i->repositories->flatten), 3, 'Found 3 repos';
+    is scalar($i->repositories->flatten), 6, 'Found 6 repos';
+}
+
+{
+    my $i = test_with_config({ repo_dir => "$FindBin::Bin/lib"});
+    is scalar($i->repositories->flatten), 6, 'Found 6 repos recursively';
+    isa_ok $i, 'Gitalist::Git::CollectionOfRepositories::FromDirectoryRecursive';
+}
+
+{
+    my $i = test_with_config({ repo_dir => "$FindBin::Bin/lib/repositories", search_recursively => 1 });
+    is scalar($i->repositories->flatten), 6, 'Found 6 repos recursively using config';
+    isa_ok $i, 'Gitalist::Git::CollectionOfRepositories::FromDirectoryRecursive';
 }
 
 {