[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / t / Installed.t

#!/usr/bin/perl -w

BEGIN {
    if( $ENV{PERL_CORE} ) {
        chdir 't' if -d 't';
        @INC = '../lib';
    }
    else {
        unshift @INC, 't/lib/';
    }
}
chdir 't';

my $Is_VMS = $^O eq 'VMS';

use strict;

use Config;
use Cwd;
use File::Path;
use File::Basename;
use File::Spec;

use Test::More tests => 63;

BEGIN { use_ok( 'ExtUtils::Installed' ) }

my $mandirs =  !!$Config{man1direxp} + !!$Config{man3direxp};

# saves having to qualify package name for class methods
my $ei = bless( {}, 'ExtUtils::Installed' );

# Make sure meta info is available
$ei->{':private:'}{Config} = \%Config;
$ei->{':private:'}{INC} = \@INC;

# _is_prefix
ok( $ei->_is_prefix('foo/bar', 'foo'),
        '_is_prefix() should match valid path prefix' );
ok( !$ei->_is_prefix('\foo\bar', '\bar'),
        '... should not match wrong prefix' );

# _is_type
ok( $ei->_is_type(0, 'all'), '_is_type() should be true for type of "all"' );

foreach my $path (qw( man1dir man3dir )) {
    SKIP: {
        my $dir = File::Spec->canonpath($Config{$path.'exp'});
        skip("no man directory $path on this system", 2 ) unless $dir;

        my $file = $dir . '/foo';
        ok( $ei->_is_type($file, 'doc'),   "... should find doc file in $path" );
        ok( !$ei->_is_type($file, 'prog'), "... but not prog file in $path" );
    }
}

# VMS 5.6.1 doesn't seem to have $Config{prefixexp}
my $prefix = $Config{prefix} || $Config{prefixexp};

# You can concatenate /foo but not foo:, which defaults in the current
# directory
$prefix = VMS::Filespec::unixify($prefix) if $Is_VMS;

# ActivePerl 5.6.1/631 has $Config{prefixexp} as 'p:' for some reason
$prefix = $Config{prefix} if $prefix eq 'p:' && $^O eq 'MSWin32';

ok( $ei->_is_type( File::Spec->catfile($prefix, 'bar'), 'prog'),
        "... should find prog file under $prefix" );

SKIP: {
    skip('no man directories on this system', 1) unless $mandirs;
    is( $ei->_is_type('bar', 'doc'), 0,
	'... should not find doc file outside path' );
}

ok( !$ei->_is_type('bar', 'prog'),
        '... nor prog file outside path' );
ok( !$ei->_is_type('whocares', 'someother'), '... nor other type anywhere' );

# _is_under
ok( $ei->_is_under('foo'), '_is_under() should return true with no dirs' );

my @under = qw( boo bar baz );
ok( !$ei->_is_under('foo', @under), '... should find no file not under dirs');
ok( $ei->_is_under('baz', @under),  '... should find file under dir' );


rmtree 'auto/FakeMod';
ok( mkpath('auto/FakeMod') );
END { rmtree 'auto' }

ok(open(PACKLIST, '>auto/FakeMod/.packlist'));
print PACKLIST 'list';
close PACKLIST;

ok(open(FAKEMOD, '>auto/FakeMod/FakeMod.pm'));

print FAKEMOD <<'FAKE';
package FakeMod;
use vars qw( $VERSION );
$VERSION = '1.1.1';
1;
FAKE

close FAKEMOD;

my $fake_mod_dir = File::Spec->catdir(cwd(), 'auto', 'FakeMod');
{
    # avoid warning and death by localizing glob
    local *ExtUtils::Installed::Config;
    %ExtUtils::Installed::Config = (
        %Config,
        archlibexp         => cwd(),
        sitearchexp        => $fake_mod_dir,
    );

    # necessary to fool new()
    push @INC, $fake_mod_dir;

    my $realei = ExtUtils::Installed->new();
    isa_ok( $realei, 'ExtUtils::Installed' );
    isa_ok( $realei->{Perl}{packlist}, 'ExtUtils::Packlist' );
    is( $realei->{Perl}{version}, $Config{version},
        'new() should set Perl version from %Config' );

    ok( exists $realei->{FakeMod}, 'new() should find modules with .packlists');
    isa_ok( $realei->{FakeMod}{packlist}, 'ExtUtils::Packlist' );
    is( $realei->{FakeMod}{version}, '1.1.1',
	'... should find version in modules' );
}

# Now try this using PERL5LIB
{
    local $ENV{PERL5LIB} = join $Config{path_sep}, $fake_mod_dir;
    local *ExtUtils::Installed::Config;
    %ExtUtils::Installed::Config = (
        %Config,
        archlibexp         => cwd(),
        sitearchexp        => cwd(),
    );

    my $realei = ExtUtils::Installed->new();
    isa_ok( $realei, 'ExtUtils::Installed' );
    isa_ok( $realei->{Perl}{packlist}, 'ExtUtils::Packlist' );
    is( $realei->{Perl}{version}, $Config{version},
        'new() should set Perl version from %Config' );

    ok( exists $realei->{FakeMod},
        'new() should find modules with .packlists using PERL5LIB'
    );
    isa_ok( $realei->{FakeMod}{packlist}, 'ExtUtils::Packlist' );
    is( $realei->{FakeMod}{version}, '1.1.1',
	'... should find version in modules' );
}

# Do the same thing as the last block, but with overrides for
# %Config and @INC.
{
    my $config_override = { %Config::Config };
    $config_override->{archlibexp} = cwd();
    $config_override->{sitearchexp} = $fake_mod_dir;
    $config_override->{version} = 'fake_test_version';

    my @inc_override = (@INC, $fake_mod_dir);

    my $realei = ExtUtils::Installed->new(
        'config_override' => $config_override,
        'inc_override' => \@inc_override,
    );
    isa_ok( $realei, 'ExtUtils::Installed' );
    isa_ok( $realei->{Perl}{packlist}, 'ExtUtils::Packlist' );
    is( $realei->{Perl}{version}, 'fake_test_version',
        'new(config_override => HASH) overrides %Config' );

    ok( exists $realei->{FakeMod}, 'new() with overrides should find modules with .packlists');
    isa_ok( $realei->{FakeMod}{packlist}, 'ExtUtils::Packlist' );
    is( $realei->{FakeMod}{version}, '1.1.1',
	'... should find version in modules' );
}

# Check if extra_libs works.
{
    my $realei = ExtUtils::Installed->new(
        'extra_libs' => [ cwd() ],
    );
    isa_ok( $realei, 'ExtUtils::Installed' );
    isa_ok( $realei->{Perl}{packlist}, 'ExtUtils::Packlist' );
    ok( exists $realei->{FakeMod}, 
        'new() with extra_libs should find modules with .packlists');
    
    #{ use Data::Dumper; local $realei->{':private:'}{Config};
    #  warn Dumper($realei); }
    
    isa_ok( $realei->{FakeMod}{packlist}, 'ExtUtils::Packlist' );
    is( $realei->{FakeMod}{version}, '1.1.1',
	'... should find version in modules' );
}

# modules
$ei->{$_} = 1 for qw( abc def ghi );
is( join(' ', $ei->modules()), 'abc def ghi',
    'modules() should return sorted keys' );

# This didn't work for a long time due to a sort in scalar context oddity.
is( $ei->modules, 3,    'modules() in scalar context' );

# files
$ei->{goodmod} = {
        packlist => {
                ($Config{man1direxp} ?
                    (File::Spec->catdir($Config{man1direxp}, 'foo') => 1) :
                        ()),
                ($Config{man3direxp} ?
                    (File::Spec->catdir($Config{man3direxp}, 'bar') => 1) :
                        ()),
                File::Spec->catdir($prefix, 'foobar') => 1,
                foobaz  => 1,
        },
};

eval { $ei->files('badmod') };
like( $@, qr/badmod is not installed/,'files() should croak given bad modname');
eval { $ei->files('goodmod', 'badtype' ) };
like( $@, qr/type must be/,'files() should croak given bad type' );

my @files;
SKIP: {
    skip('no man directory man1dir on this system', 2)
      unless $Config{man1direxp};
    @files = $ei->files('goodmod', 'doc', $Config{man1direxp});
    is( scalar @files, 1, '... should find doc file under given dir' );
    is( (grep { /foo$/ } @files), 1, '... checking file name' );
}
SKIP: {
    skip('no man directories on this system', 1) unless $mandirs;
    @files = $ei->files('goodmod', 'doc');
    is( scalar @files, $mandirs, '... should find all doc files with no dir' );
}

@files = $ei->files('goodmod', 'prog', 'fake', 'fake2');
is( scalar @files, 0, '... should find no doc files given wrong dirs' );
@files = $ei->files('goodmod', 'prog');
is( scalar @files, 1, '... should find doc file in correct dir' );
like( $files[0], qr/foobar[>\]]?$/, '... checking file name' );
@files = $ei->files('goodmod');
is( scalar @files, 2 + $mandirs, '... should find all files with no type specified' );
my %dirnames = map { lc($_) => dirname($_) } @files;

# directories
my @dirs = $ei->directories('goodmod', 'prog', 'fake');
is( scalar @dirs, 0, 'directories() should return no dirs if no files found' );

SKIP: {
    skip('no man directories on this system', 1) unless $mandirs;
    @dirs = $ei->directories('goodmod', 'doc');
    is( scalar @dirs, $mandirs, '... should find all files files() would' );
}
@dirs = $ei->directories('goodmod');
is( scalar @dirs, 2 + $mandirs, '... should find all files files() would, again' );
@files = sort map { exists $dirnames{lc($_)} ? $dirnames{lc($_)} : '' } @files;
is( join(' ', @files), join(' ', @dirs), '... should sort output' );

# directory_tree
my $expectdirs =
       ($mandirs == 2) &&
       (dirname($Config{man1direxp}) eq dirname($Config{man3direxp}))
       ? 3 : 2;

SKIP: {
    skip('no man directories on this system', 1) unless $mandirs;
    @dirs = $ei->directory_tree('goodmod', 'doc', $Config{man1direxp} ?
       dirname($Config{man1direxp}) : dirname($Config{man3direxp}));
    is( scalar @dirs, $expectdirs,
        'directory_tree() should report intermediate dirs to those requested' );
}

my $fakepak = Fakepak->new(102);

$ei->{yesmod} = {
        version         => 101,
        packlist        => $fakepak,
};

# these should all croak
foreach my $sub (qw( validate packlist version )) {
    eval { $ei->$sub('nomod') };
    like( $@, qr/nomod is not installed/,
	  "$sub() should croak when asked about uninstalled module" );
}

# validate
is( $ei->validate('yesmod'), 'validated',
        'validate() should return results of packlist validate() call' );

# packlist
is( ${ $ei->packlist('yesmod') }, 102,
        'packlist() should report installed mod packlist' );

# version
is( $ei->version('yesmod'), 101,
        'version() should report installed mod version' );


package Fakepak;

sub new {
    my $class = shift;
    bless(\(my $scalar = shift), $class);
}

sub validate {
    return 'validated'
}
Commit	Line	Data
39234879	1	#!/usr/bin/perl -w
	2
	3	BEGIN {
	4	if( $ENV{PERL_CORE} ) {
	5	chdir 't' if -d 't';
	6	@INC = '../lib';
	7	}
f6d6199c	8	else {
	9	unshift @INC, 't/lib/';
	10	}
39234879	11	}
7292dc67	12	chdir 't';
431b0fc4	13
431b0fc4	14	my $Is_VMS = $^O eq 'VMS';
f411ddcc	15
f411ddcc	16	use strict;
f411ddcc	17
f411ddcc	18	use Config;
f411ddcc	19	use Cwd;
f411ddcc	20	use File::Path;
f411ddcc	21	use File::Basename;
f6d6199c	22	use File::Spec;
f411ddcc	23
060fb22c	24	use Test::More tests => 63;
f411ddcc	25
39234879	26	BEGIN { use_ok( 'ExtUtils::Installed' ) }
f411ddcc	27
34dcf69d	28	my $mandirs = !!$Config{man1direxp} + !!$Config{man3direxp};
64f50df3	29
f411ddcc	30	# saves having to qualify package name for class methods
	31	my $ei = bless( {}, 'ExtUtils::Installed' );
	32
060fb22c	33	# Make sure meta info is available
	34	$ei->{':private:'}{Config} = \%Config;
	35	$ei->{':private:'}{INC} = \@INC;
	36
f411ddcc	37	# _is_prefix
f6d6199c	38	ok( $ei->_is_prefix('foo/bar', 'foo'),
41e5fcb0	39	'_is_prefix() should match valid path prefix' );
f6d6199c	40	ok( !$ei->_is_prefix('\foo\bar', '\bar'),
41e5fcb0	41	'... should not match wrong prefix' );
f411ddcc	42
f411ddcc	43	# _is_type
f6d6199c	44	ok( $ei->_is_type(0, 'all'), '_is_type() should be true for type of "all"' );
f411ddcc	45
34dcf69d	46	foreach my $path (qw( man1dir man3dir )) {
41e5fcb0	47	SKIP: {
69a43907	48	my $dir = File::Spec->canonpath($Config{$path.'exp'});
34dcf69d	49	skip("no man directory $path on this system", 2 ) unless $dir;
34dcf69d	50
41e5fcb0	51	my $file = $dir . '/foo';
	52	ok( $ei->_is_type($file, 'doc'), "... should find doc file in $path" );
	53	ok( !$ei->_is_type($file, 'prog'), "... but not prog file in $path" );
34dcf69d	54	}
f411ddcc	55	}
f411ddcc	56
f6d6199c	57	# VMS 5.6.1 doesn't seem to have $Config{prefixexp}
	58	my $prefix = $Config{prefix} \|\| $Config{prefixexp};
	59
3a465856	60	# You can concatenate /foo but not foo:, which defaults in the current
f6d6199c	61	# directory
431b0fc4	62	$prefix = VMS::Filespec::unixify($prefix) if $Is_VMS;
f6d6199c	63
	64	# ActivePerl 5.6.1/631 has $Config{prefixexp} as 'p:' for some reason
	65	$prefix = $Config{prefix} if $prefix eq 'p:' && $^O eq 'MSWin32';
	66
	67	ok( $ei->_is_type( File::Spec->catfile($prefix, 'bar'), 'prog'),
41e5fcb0	68	"... should find prog file under $prefix" );
64f50df3	69
64f50df3	70	SKIP: {
41e5fcb0	71	skip('no man directories on this system', 1) unless $mandirs;
3a465856	72	is( $ei->_is_type('bar', 'doc'), 0,
41e5fcb0	73	'... should not find doc file outside path' );
64f50df3	74	}
64f50df3	75
f6d6199c	76	ok( !$ei->_is_type('bar', 'prog'),
41e5fcb0	77	'... nor prog file outside path' );
f6d6199c	78	ok( !$ei->_is_type('whocares', 'someother'), '... nor other type anywhere' );
f411ddcc	79
	80	# _is_under
	81	ok( $ei->_is_under('foo'), '_is_under() should return true with no dirs' );
	82
	83	my @under = qw( boo bar baz );
f6d6199c	84	ok( !$ei->_is_under('foo', @under), '... should find no file not under dirs');
f6d6199c	85	ok( $ei->_is_under('baz', @under), '... should find file under dir' );
f411ddcc	86
f411ddcc	87
d5d4ec93	88	rmtree 'auto/FakeMod';
d5d4ec93	89	ok( mkpath('auto/FakeMod') );
b5f5ff40	90	END { rmtree 'auto' }
57b1a898	91
	92	ok(open(PACKLIST, '>auto/FakeMod/.packlist'));
	93	print PACKLIST 'list';
	94	close PACKLIST;
	95
	96	ok(open(FAKEMOD, '>auto/FakeMod/FakeMod.pm'));
	97
	98	print FAKEMOD <<'FAKE';
f411ddcc	99	package FakeMod;
	100	use vars qw( $VERSION );
	101	$VERSION = '1.1.1';
	102	1;
	103	FAKE
	104
57b1a898	105	close FAKEMOD;
f411ddcc	106
060fb22c	107	my $fake_mod_dir = File::Spec->catdir(cwd(), 'auto', 'FakeMod');
57b1a898	108	{
	109	# avoid warning and death by localizing glob
	110	local *ExtUtils::Installed::Config;
57b1a898	111	%ExtUtils::Installed::Config = (
57b1a898	112	%Config,
41e5fcb0	113	archlibexp => cwd(),
41e5fcb0	114	sitearchexp => $fake_mod_dir,
57b1a898	115	);
f411ddcc	116
41e5fcb0	117	# necessary to fool new()
41e5fcb0	118	push @INC, $fake_mod_dir;
f411ddcc	119
41e5fcb0	120	my $realei = ExtUtils::Installed->new();
57b1a898	121	isa_ok( $realei, 'ExtUtils::Installed' );
57b1a898	122	isa_ok( $realei->{Perl}{packlist}, 'ExtUtils::Packlist' );
3a465856	123	is( $realei->{Perl}{version}, $Config{version},
57b1a898	124	'new() should set Perl version from %Config' );
57b1a898	125
41e5fcb0	126	ok( exists $realei->{FakeMod}, 'new() should find modules with .packlists');
41e5fcb0	127	isa_ok( $realei->{FakeMod}{packlist}, 'ExtUtils::Packlist' );
3a465856	128	is( $realei->{FakeMod}{version}, '1.1.1',
41e5fcb0	129	'... should find version in modules' );
f411ddcc	130	}
f411ddcc	131
060fb22c	132	# Now try this using PERL5LIB
	133	{
	134	local $ENV{PERL5LIB} = join $Config{path_sep}, $fake_mod_dir;
	135	local *ExtUtils::Installed::Config;
	136	%ExtUtils::Installed::Config = (
	137	%Config,
	138	archlibexp => cwd(),
	139	sitearchexp => cwd(),
	140	);
	141
	142	my $realei = ExtUtils::Installed->new();
	143	isa_ok( $realei, 'ExtUtils::Installed' );
	144	isa_ok( $realei->{Perl}{packlist}, 'ExtUtils::Packlist' );
	145	is( $realei->{Perl}{version}, $Config{version},
	146	'new() should set Perl version from %Config' );
	147
	148	ok( exists $realei->{FakeMod},
	149	'new() should find modules with .packlists using PERL5LIB'
	150	);
	151	isa_ok( $realei->{FakeMod}{packlist}, 'ExtUtils::Packlist' );
	152	is( $realei->{FakeMod}{version}, '1.1.1',
	153	'... should find version in modules' );
	154	}
	155
	156	# Do the same thing as the last block, but with overrides for
	157	# %Config and @INC.
	158	{
	159	my $config_override = { %Config::Config };
	160	$config_override->{archlibexp} = cwd();
	161	$config_override->{sitearchexp} = $fake_mod_dir;
	162	$config_override->{version} = 'fake_test_version';
	163
	164	my @inc_override = (@INC, $fake_mod_dir);
	165
	166	my $realei = ExtUtils::Installed->new(
	167	'config_override' => $config_override,
	168	'inc_override' => \@inc_override,
	169	);
	170	isa_ok( $realei, 'ExtUtils::Installed' );
	171	isa_ok( $realei->{Perl}{packlist}, 'ExtUtils::Packlist' );
	172	is( $realei->{Perl}{version}, 'fake_test_version',
	173	'new(config_override => HASH) overrides %Config' );
	174
	175	ok( exists $realei->{FakeMod}, 'new() with overrides should find modules with .packlists');
	176	isa_ok( $realei->{FakeMod}{packlist}, 'ExtUtils::Packlist' );
	177	is( $realei->{FakeMod}{version}, '1.1.1',
	178	'... should find version in modules' );
	179	}
	180
	181	# Check if extra_libs works.
	182	{
	183	my $realei = ExtUtils::Installed->new(
	184	'extra_libs' => [ cwd() ],
	185	);
	186	isa_ok( $realei, 'ExtUtils::Installed' );
	187	isa_ok( $realei->{Perl}{packlist}, 'ExtUtils::Packlist' );
	188	ok( exists $realei->{FakeMod},
	189	'new() with extra_libs should find modules with .packlists');
	190
	191	#{ use Data::Dumper; local $realei->{':private:'}{Config};
	192	# warn Dumper($realei); }
	193
	194	isa_ok( $realei->{FakeMod}{packlist}, 'ExtUtils::Packlist' );
	195	is( $realei->{FakeMod}{version}, '1.1.1',
196	'... should find version in modules' );
197	}
198
f411ddcc	199	# modules
f411ddcc	200	$ei->{$_} = 1 for qw( abc def ghi );
3a465856	201	is( join(' ', $ei->modules()), 'abc def ghi',
41e5fcb0	202	'modules() should return sorted keys' );
f411ddcc	203
d5d4ec93	204	# This didn't work for a long time due to a sort in scalar context oddity.
	205	is( $ei->modules, 3, 'modules() in scalar context' );
	206
f411ddcc	207	# files
3a465856	208	$ei->{goodmod} = {
	209	packlist => {
	210	($Config{man1direxp} ?
	211	(File::Spec->catdir($Config{man1direxp}, 'foo') => 1) :
34dcf69d	212	()),
3a465856	213	($Config{man3direxp} ?
3a465856	214	(File::Spec->catdir($Config{man3direxp}, 'bar') => 1) :
34dcf69d	215	()),
f6d6199c	216	File::Spec->catdir($prefix, 'foobar') => 1,
41e5fcb0	217	foobaz => 1,
41e5fcb0	218	},
f411ddcc	219	};
	220
	221	eval { $ei->files('badmod') };
	222	like( $@, qr/badmod is not installed/,'files() should croak given bad modname');
	223	eval { $ei->files('goodmod', 'badtype' ) };
	224	like( $@, qr/type must be/,'files() should croak given bad type' );
64f50df3	225
	226	my @files;
	227	SKIP: {
3a465856	228	skip('no man directory man1dir on this system', 2)
3a465856	229	unless $Config{man1direxp};
34dcf69d	230	@files = $ei->files('goodmod', 'doc', $Config{man1direxp});
34dcf69d	231	is( scalar @files, 1, '... should find doc file under given dir' );
57b1a898	232	is( (grep { /foo$/ } @files), 1, '... checking file name' );
34dcf69d	233	}
	234	SKIP: {
	235	skip('no man directories on this system', 1) unless $mandirs;
	236	@files = $ei->files('goodmod', 'doc');
	237	is( scalar @files, $mandirs, '... should find all doc files with no dir' );
64f50df3	238	}
64f50df3	239
f411ddcc	240	@files = $ei->files('goodmod', 'prog', 'fake', 'fake2');
	241	is( scalar @files, 0, '... should find no doc files given wrong dirs' );
	242	@files = $ei->files('goodmod', 'prog');
	243	is( scalar @files, 1, '... should find doc file in correct dir' );
b4558e59	244	like( $files[0], qr/foobar[>\]]?$/, '... checking file name' );
f411ddcc	245	@files = $ei->files('goodmod');
34dcf69d	246	is( scalar @files, 2 + $mandirs, '... should find all files with no type specified' );
62bfa7e0	247	my %dirnames = map { lc($_) => dirname($_) } @files;
f411ddcc	248
	249	# directories
	250	my @dirs = $ei->directories('goodmod', 'prog', 'fake');
	251	is( scalar @dirs, 0, 'directories() should return no dirs if no files found' );
64f50df3	252
64f50df3	253	SKIP: {
34dcf69d	254	skip('no man directories on this system', 1) unless $mandirs;
	255	@dirs = $ei->directories('goodmod', 'doc');
	256	is( scalar @dirs, $mandirs, '... should find all files files() would' );
	257	}
	258	@dirs = $ei->directories('goodmod');
	259	is( scalar @dirs, 2 + $mandirs, '... should find all files files() would, again' );
	260	@files = sort map { exists $dirnames{lc($_)} ? $dirnames{lc($_)} : '' } @files;
	261	is( join(' ', @files), join(' ', @dirs), '... should sort output' );
	262
	263	# directory_tree
3a465856	264	my $expectdirs =
3a465856	265	($mandirs == 2) &&
34dcf69d	266	(dirname($Config{man1direxp}) eq dirname($Config{man3direxp}))
34dcf69d	267	? 3 : 2;
3a465856	268
34dcf69d	269	SKIP: {
	270	skip('no man directories on this system', 1) unless $mandirs;
	271	@dirs = $ei->directory_tree('goodmod', 'doc', $Config{man1direxp} ?
	272	dirname($Config{man1direxp}) : dirname($Config{man3direxp}));
3a465856	273	is( scalar @dirs, $expectdirs,
34dcf69d	274	'directory_tree() should report intermediate dirs to those requested' );
64f50df3	275	}
f411ddcc	276
	277	my $fakepak = Fakepak->new(102);
	278
3a465856	279	$ei->{yesmod} = {
41e5fcb0	280	version => 101,
41e5fcb0	281	packlist => $fakepak,
f411ddcc	282	};
	283
	284	# these should all croak
	285	foreach my $sub (qw( validate packlist version )) {
41e5fcb0	286	eval { $ei->$sub('nomod') };
3a465856	287	like( $@, qr/nomod is not installed/,
41e5fcb0	288	"$sub() should croak when asked about uninstalled module" );
f411ddcc	289	}
	290
	291	# validate
3a465856	292	is( $ei->validate('yesmod'), 'validated',
41e5fcb0	293	'validate() should return results of packlist validate() call' );
f411ddcc	294
f411ddcc	295	# packlist
3a465856	296	is( ${ $ei->packlist('yesmod') }, 102,
41e5fcb0	297	'packlist() should report installed mod packlist' );
f411ddcc	298
f411ddcc	299	# version
3a465856	300	is( $ei->version('yesmod'), 101,
41e5fcb0	301	'version() should report installed mod version' );
f411ddcc	302
f411ddcc	303
	304	package Fakepak;
	305
	306	sub new {
41e5fcb0	307	my $class = shift;
41e5fcb0	308	bless(\(my $scalar = shift), $class);
f411ddcc	309	}
	310
	311	sub validate {
41e5fcb0	312	return 'validated'
f411ddcc	313	}