[p5sagit/p5-mst-13.2.git] / cpan / Test-Harness / t / proveenv.t

#!perl
use strict;
use lib 't/lib';
use Test::More tests => 2;
use App::Prove;

{
    local $ENV{HARNESS_TIMER} = 0;
    my $prv = App::Prove->new;
    ok !$prv->timer, 'timer set via HARNESS_TIMER';
}

{
    local $ENV{HARNESS_TIMER} = 1;
    my $prv = App::Prove->new;
    ok $prv->timer, 'timer set via HARNESS_TIMER';
}
Commit	Line	Data
f7c69158	1	#!perl
	2	use strict;
	3	use lib 't/lib';
	4	use Test::More tests => 2;
	5	use App::Prove;
	6
	7	{
	8	local $ENV{HARNESS_TIMER} = 0;
	9	my $prv = App::Prove->new;
	10	ok !$prv->timer, 'timer set via HARNESS_TIMER';
	11	}
	12
	13	{
	14	local $ENV{HARNESS_TIMER} = 1;
	15	my $prv = App::Prove->new;
	16	ok $prv->timer, 'timer set via HARNESS_TIMER';
	17	}