1 files changed, 13 insertions, 0 deletions
diff --git a/t/04_pwhich.t b/t/04_pwhich.t
new file mode 100644
index 0000000..c73fd3f
--- /dev/null
+++ b/t/04_pwhich.t
@@ -0,0 +1,13 @@
+use strict;
+use warnings;
+
+use Test::More tests => 3;
+use File::Which;
+
+# Look for a very common program
+my $tool = 'perl';
+my $path = which($tool);
+ok( defined $path, "Found path to $tool" );
+ok( $path, "Found path to $tool" );
+ok( -f $path, "$tool exists" );
+