Re: lib, ext, cpan and dist [PATCH] (take 2)
[perl.git] / ext / ExtUtils-MakeMaker / t / installed_file.t
1 #!/usr/bin/perl -w
2
3 # Test MM->_installed_file_for_module()
4
5 BEGIN {
6     chdir 't' if -d 't';
7 }
8
9 use strict;
10 use warnings;
11 use less;
12
13 use lib './lib';
14 use ExtUtils::MakeMaker;
15 use Test::More;
16 use File::Spec;
17
18
19 sub path_is {
20     my($have, $want, $name) = @_;
21
22     $have = File::Spec->canonpath($have);
23     $want = File::Spec->canonpath($want);
24
25     my $builder = Test::More->builder;
26     return $builder->is_eq( $have, $want, $name );
27 }
28
29 # Test when a module is not installed
30 {
31     ok !MM->_installed_file_for_module("aaldkfjaldj"), "Module not installed";
32     ok !MM->_installed_file_for_module("aaldkfjaldj::dlajldkj");
33 }
34
35 # Try a single name module
36 {
37     my $want = $INC{'less.pm'};
38     path_is( MM->_installed_file_for_module("less"), $want,  "single name module" );
39 }
40
41 # And a tuple
42 {
43     my $want = $INC{"Test/More.pm"};
44     path_is( MM->_installed_file_for_module("Test::More"), $want, "Foo::Bar style" );
45 }
46
47
48 done_testing(4);