File: 02extra.t

package info (click to toggle)
libtest-distribution-perl 2.00-2
  • links: PTS, VCS
  • area: main
  • in suites: squeeze, wheezy
  • size: 108 kB
  • ctags: 38
  • sloc: perl: 252; makefile: 18
file content (18 lines) | stat: -rw-r--r-- 684 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
use Test::Distribution tests => 4, podcoveropts => {trustme => [qr/run_tests/]};;
use Test::More;
ok(1, 'extra test');

# 4 descriptions + 4 * (1 module) + 4 extra + 1 prereq + 1 manifest
my $number_of_tests = 14;

is(Test::Distribution::num_tests(), $number_of_tests, 'number of tests');

is_deeply(Test::Distribution::packages(), 'Test::Distribution',
    'packages found');

my @files = Test::Distribution::files();
# On non Unix type file systems the first file separator could be different
# than the unix /. This is because it comes from File::Spec. The others will
# still be a unix / because they come from File::Find::Rule
like($files[0], qr/lib.*?Test.*?Distribution.pm/);