#!/usr/bin/env perl
use lib 'lib';
use Test::Most;
use Scalar::Util 'looks_like_number';
use Test::Class::Moose::Load qw(t/basiclib);
use Test::Class::Moose::Runner;
{
my $runner = Test::Class::Moose::Runner->new;
is( $runner->test_configuration->show_timing, undef,
'show timing is undef by default'
);
is( $runner->test_configuration->statistics, undef,
'statistics is undef by default'
);
}
{
my $runner = Test::Class::Moose::Runner->new(
show_timing => 1,
statistics => 1,
);
is( $runner->test_configuration->show_timing, 1,
'show timing can be set to 1'
);
is( $runner->test_configuration->statistics, 1,
'statistics can be set to 1'
);
}
{
my $runner = Test::Class::Moose::Runner->new(
show_timing => 1,
statistics => 1,
);
is( $runner->test_configuration->show_timing, 1,
'show timing can be set to 1'
);
is( $runner->test_configuration->statistics, 1,
'statistics can be set to 1'
);
}
{
local $ENV{HARNESS_IS_VERBOSE} = 1;
my $runner = Test::Class::Moose::Runner->new(
use_environment => 1,
);
is( $runner->test_configuration->show_timing, 1,
'show timing set to 1 when harness is verbose'
);
is( $runner->test_configuration->statistics, 1,
'statistics set to 1 when harness is verbose'
);
}
{
local $ENV{HARNESS_IS_VERBOSE} = 0;
my $runner = Test::Class::Moose::Runner->new(
use_environment => 1,
);
is( $runner->test_configuration->show_timing, undef,
'show timing set to undef when harness is not verbose'
);
is( $runner->test_configuration->statistics, undef,
'statistics set to undef when harness is not verbose'
);
}
done_testing;