Started testing capabilities

ivanwills · Mar 26, 2015 · 57ccea4 · 57ccea4
1 parent 8507c29
commit 57ccea4
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 0 deletions.
diff --git a/t/lib/VCS/Which/Plugin/Blank.pm b/t/lib/VCS/Which/Plugin/Blank.pm
@@ -21,6 +21,7 @@ our $name    = 'Blank';
 our $exe     = 'blank';
 our $meta    = '.blank';
 
+sub installed { 1 }
 
 
 1;

diff --git a/t/which.t b/t/which.t
@@ -8,10 +8,27 @@ use lib qw{t/lib};
 use VCS::Which;
 
 new();
+capabilities();
 
 done_testing();
 
 sub new {
     my $vcsw = eval { VCS::Which->new };
     ok !$@, "No error creating" or diag $@;
+
+    $vcsw = eval { VCS::Which->new( dir => '.' ) };
+    ok !$@, "No error creating" or diag $@;
+
+    $vcsw = eval { VCS::Which->new( dir => 'Build.PL' ) };
+    ok !$@, "No error creating" or diag $@;
+}
+
+sub capabilities {
+    my $vcsw = eval { VCS::Which->new };
+
+    my %capabilities = $vcsw->capabilities;
+
+    # Only guarentee Blank installed
+    ok $capabilities{Blank}, "Blank test VCS installed";
 }
+