add test

Author: plicease

lib/Test2/Require/ProgramInPath.pm

@@ -30,13 +30,13 @@ the reason why the test was skipped.  Currently `This test only runs if $program
 
 =cut
 
-    use File::Which qw( which );
+    use File::Which ();
     use Carp qw( confess );
     use parent qw( Test2::Require );
 
     sub skip ( $, $program = undef ) {
         confess "no program specified" unless defined $program;
-        return undef if which $program;
+        return undef if File::Which::which $program;
         return "This test only runs if $program is in the PATH";
     }
 }

t/test2_require_programinpath.t

@@ -1,6 +1,36 @@
 use Test2::V0 -no_srand => 1;
 use Test2::Require::ProgramInPath ();
 
-ok 1, 'todo';
+subtest 'skip' => sub {
+
+    plan 2;
+
+    local *File::Which::which = sub {
+        is(\@_, ['foo']);
+        return undef;
+    };
+
+    is(
+        Test2::Require::ProgramInPath->skip('foo'),
+        'This test only runs if foo is in the PATH',
+    );
+
+};
+
+subtest 'no skip' => sub {
+
+    plan 2;
+
+    local *File::Which::which = sub {
+        is(\@_, ['foo']);
+        return '/bin/foo';
+    };
+
+    is(
+        Test2::Require::ProgramInPath->skip('foo'),
+        U(),
+    );
+
+};
 
 done_testing;