BEGIN {
chdir 't' if -d 't';
}
else {
}
}
use strict;
use Config;
use Cwd;
my $mandirs = !!$Config{man1direxp} + !!$Config{man3direxp};
# saves having to qualify package name for class methods
# _is_prefix
'_is_prefix() should match valid path prefix' );
'... should not match wrong prefix' );
# _is_type
SKIP: {
}
}
# VMS 5.6.1 doesn't seem to have $Config{prefixexp}
# You can concatenate /foo but not foo:, which defaults in the current
# directory
# ActivePerl 5.6.1/631 has $Config{prefixexp} as 'p:' for some reason
SKIP: {
'... should not find doc file outside path' );
}
'... nor prog file outside path' );
# _is_under
1;
{
# avoid warning and death by localizing glob
%Config,
);
# necessary to fool new()
push @INC, $fake_mod_dir;
'new() should set Perl version from %Config' );
'... should find version in modules' );
}
# modules
'modules() should return sorted keys' );
# This didn't work for a long time due to a sort in scalar context oddity.
# files
packlist => {
($Config{man1direxp} ?
()),
($Config{man3direxp} ?
()),
foobaz => 1,
},
};
my @files;
SKIP: {
}
SKIP: {
}
# directories
SKIP: {
}
# directory_tree
my $expectdirs =
? 3 : 2;
SKIP: {
is( scalar @dirs, $expectdirs,
'directory_tree() should report intermediate dirs to those requested' );
}
version => 101,
};
# these should all croak
}
# validate
'validate() should return results of packlist validate() call' );
# packlist
'packlist() should report installed mod packlist' );
# version
'version() should report installed mod version' );
sub new {
my $class = shift;
}
sub validate {
'validated'
}