view release on metacpan or  search on metacpan

t/02_run.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More 0.88;
use Test::Output;
use Test::Exception;
use t::AppLogStatsTest qw/test_stats/;

use App::LogStats;

t::AppLogStatsTest::set_interactive();

{
    my $stats = App::LogStats->new;
    isa_ok($stats, 'App::LogStats');

    stdout_is { $stats->run; } '', 'just run';
}

{
    my $stats = App::LogStats->new;
    throws_ok {
        $stats->run('_no_exists_file_');
    } qr/^_no_exists_file_: No such file/, 'no_exists_file';
}

test_stats('');

test_stats(<<'_TXT_', 'share/log1');

 --------- ------ 
               1  
 --------- ------ 
  count       10  
  sum         55  
 --------- ------ 
  average   5.50  
 --------- ------ 
  max         10  
  min          1  
  range        9  
 --------- ------ 
_TXT_

test_stats(<<"_TXT_", '--tsv', 'share/log1');

\t1
count\t10
sum\t55
average\t5.50
max\t10
min\t1
range\t9
_TXT_

test_stats(<<"_TXT_", '--csv', 'share/log1');

,"1"
"count","10"
"sum","55"
"average","5.50"
"max","10"
"min","1"
"range","9"
_TXT_

test_stats(<<'_TXT_', '--strict', 'share/log1');

 --------- ------ 
               1  
 --------- ------ 
  count       10  
  sum         55  
 --------- ------ 
  average   5.50  
 --------- ------ 
  max         10  
  min          1  
  range        9  
 --------- ------ 
_TXT_