ext/Test/Harness/t/proveenv.t

   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 }