1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/usr/bin/perl -w
use strict;
use warnings;
use Test::More;
use Test::Module::Used;
use File::Spec::Functions qw(catfile);
my $used = Test::Module::Used->new(
test_dir => ['t', 'xt'],
lib_dir => ['lib', catfile('testdata', 'lib')],
meta_file => 'Meta.yml',
perl_version => '5.010',
);
is_deeply($used->_test_dir, ['t', 'xt']);
is_deeply($used->_lib_dir, ['lib', catfile('testdata', 'lib')]);
is($used->_meta_file, 'Meta.yml');
is($used->_perl_version, '5.010');
is($used->_version, '5.010');
done_testing;
|
