File Coverage

blib/lib/Test/Slow.pm
Criterion Covered Total %
statement 10 10 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 15 16 93.7


line stmt bran cond sub pod time code
1             package Test::Slow;
2              
3             =encoding utf8
4              
5             =head1 NAME
6              
7             Test::Slow - Skip test that are too slow to run frequently
8              
9             =head1 SYNOPSIS
10              
11             Some test are too slow to run frequently. This module makes it
12             easy to skip slow tests so that you can run the others more
13             frequently. To mark a test as slow simply C this module:
14              
15             use Test::Slow;
16             use Test::More;
17             ...
18             done_testing;
19              
20             To run just the quick tests, set the C environment
21             variable to a true value:
22              
23             $ QUICK_TEST=1 prove --lib t/*t
24              
25             =cut
26              
27 1     1   24133 use warnings;
  1         3  
  1         27  
28 1     1   5 use strict;
  1         2  
  1         44  
29 1     1   5 use Test::More;
  1         12  
  1         5  
30              
31             our $VERSION = '0.03';
32              
33             BEGIN {
34 1 50   1   316 plan(skip_all => 'Slow test.') if $ENV{QUICK_TEST};
35             }
36              
37             =head1 COPYRIGHT & LICENSE
38              
39             Copyright 2010 Tomáš Znamenáček, zoul@fleuron.cz
40              
41             This program is free software; you can redistribute it and/or modify it
42             under the terms of either: the GNU General Public License as published
43             by the Free Software Foundation; or the Artistic License.
44              
45             See http://dev.perl.org/licenses/ for more information.
46              
47             =cut
48              
49             'SDG';