1 files changed, 48 insertions, 0 deletions
diff --git a/cpan/ExtUtils-MakeMaker/t/installed_file.t b/cpan/ExtUtils-MakeMaker/t/installed_file.t
new file mode 100644
index 0000000000..58516bc611
--- /dev/null
+++ b/cpan/ExtUtils-MakeMaker/t/installed_file.t
@@ -0,0 +1,48 @@
+#!/usr/bin/perl -w
+
+# Test MM->_installed_file_for_module()
+
+BEGIN {
+    chdir 't' if -d 't';
+}
+
+use strict;
+use warnings;
+use less;
+
+use lib './lib';
+use ExtUtils::MakeMaker;
+use Test::More;
+use File::Spec;
+
+
+sub path_is {
+    my($have, $want, $name) = @_;
+
+    $have = File::Spec->canonpath($have);
+    $want = File::Spec->canonpath($want);
+
+    my $builder = Test::More->builder;
+    return $builder->is_eq( $have, $want, $name );
+}
+
+# Test when a module is not installed
+{
+    ok !MM->_installed_file_for_module("aaldkfjaldj"), "Module not installed";
+    ok !MM->_installed_file_for_module("aaldkfjaldj::dlajldkj");
+}
+
+# Try a single name module
+{
+    my $want = $INC{'less.pm'};
+    path_is( MM->_installed_file_for_module("less"), $want,  "single name module" );
+}
+
+# And a tuple
+{
+    my $want = $INC{"Test/More.pm"};
+    path_is( MM->_installed_file_for_module("Test::More"), $want, "Foo::Bar style" );
+}
+
+
+done_testing(4);