Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 742f62b9

Von Sven Schöling vor etwa 10 Jahren hinzugefügt

  • ID 742f62b93b94208e8cbb306706b1a277ea000d64
  • Vorgänger b14d19e7
  • Nachfolger f358c83e

test.pl: --fast switch, skippt 001compile und 003safesys

Unterschiede anzeigen:

t/test.pl
5 5
use Data::Dumper;
6 6
use File::Find ();
7 7
use Test::Harness qw(runtests execute_tests);
8
use Getopt::Long;
8 9

  
9 10
BEGIN {
10 11
   $ENV{HARNESS_OPTIONS} = 'c';
......
12 13
  push    @INC, 'modules/fallback';
13 14
}
14 15

  
16
my @exclude_for_fast = (
17
  't/001compile.t',
18
  't/003safesys.t',
19
);
20

  
15 21
sub find_files_to_test {
16 22
  my @files;
17 23
  File::Find::find(sub { push @files, $File::Find::name if (-f $_) && m/\.t$/ }, 't');
......
20 26

  
21 27
my (@tests_to_run, @tests_to_run_first);
22 28

  
29
GetOptions(
30
  'f|fast' => \ my $fast,
31
);
32

  
23 33
if (@ARGV) {
24 34
  @tests_to_run       = @ARGV;
25 35

  
26 36
} else {
27 37
  @tests_to_run_first = qw(t/000setup_database.t);
28
  my %exclude         = map  { ($_ => 1)     } @tests_to_run_first;
38
  my %exclude         = map  { ($_ => 1)     } @tests_to_run_first, (@exclude_for_fast)x!!$fast;
29 39
  @tests_to_run       = grep { !$exclude{$_} } sort(find_files_to_test());
30 40
}
31 41

  

Auch abrufbar als: Unified diff