File Coverage

blib/lib/Test/Slow.pm

Criterion	Covered	Total	%
statement	13	14	92.8
branch	5	6	83.3
condition	2	3	66.6
subroutine	4	5	80.0
pod			n/a
total	24	28	85.7

package Test::Slow;

=encoding utf8

=head1 NAME

Test::Slow - Skip test(s) that are too slow to run frequently

=head1 SYNOPSIS

Some test are too slow to run frequently. This module makes it
easy to skip slow tests so that you can run the others more
frequently. To mark a test as slow simply C this module:

   use Test::Slow;
   use Test::More;
   ...
   done_testing;

To run just the quick tests, set the C environment
variable to a true value:

   $ QUICK_TEST=1 prove --lib t/*t


The other approach is to disable slow tests by default and run
them only when requested :

   use Test::Slow "skip";
   use Test::More;
   ...
   done_testing;

To run even the slow tests, set the C environment
variable to a true value :

   $ SLOW_TEST=1 prove --lib t/*t


=cut

use warnings;
use strict;
use Test::More;

our $VERSION = '0.04';

BEGIN {
    sub import {
	    my ($package, $msg) = @_;

	    if(defined $msg and $msg eq "skip") {
		    plan(skip_all => 'Slow test.') unless $ENV{SLOW_TEST};
	    } else {
		    plan(skip_all => 'Slow test.') if $ENV{QUICK_TEST};
	    }
    }
}

=head1 COPYRIGHT & LICENSE

Copyright 2010-2020 Tomáš Znamenáček, [e-mail]

Copyright 2020 Thibault Duponchelle, [e-mail]

This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.

=cut

'SDG';