File: subs.t

package info (click to toggle)
libtest-aggregate-perl 0.371-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 264 kB
  • ctags: 62
  • sloc: perl: 1,201; makefile: 2
file content (22 lines) | stat: -rw-r--r-- 501 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#!/usr/bin/perl

#use lib '../Test-Simple-0.86/lib';
use strict;
use warnings;

use lib 'lib', 't/lib';
use Test::Aggregate;

my $dump = 'done_testing.t';
my $tests = Test::Aggregate->new(
    {
        dirs     => 'aggtests',
        matching => qr/subs/,
#        dump     => $dump,
    }
);
$tests->run;
my $tests_run = Test::Builder->new->current_test;
is $tests_run, 1,
  '... and we should only run as many tests as are in the matching tests';
#unlink $dump or warn "Cannot unlink ($dump): $!";