[perl5.git] / dist / ExtUtils-Install / t / Installed.t

#!/usr/bin/perl -w

BEGIN {
    unshift @INC, 't/lib/';
}

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