view release on metacpan or  search on metacpan

t/Logmonster.t  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use warnings;

use Cwd;
use Data::Dumper;
use English qw( -no_match_vars );
use Test::More;

if ( $OSNAME =~ /cygwin|win32|windows/i ) {
    plan skip_all => "no windows support";
};

use lib 'lib';
use lib 'inc';

use_ok( 'Apache::Logmonster' );
use_ok( 'Apache::Logmonster::Utility' );

# let the testing begin

# basic OO mechanism

my $logmonster = Apache::Logmonster->new(0);
ok ($logmonster, 'new logmonster object');

my $util = $logmonster->get_util();
my $conf = $logmonster->get_config( 'logmonster.conf',debug=>0 );
ok ($conf, 'logmonster conf object');
ok (ref $conf, 'logmonster conf object');

## new
#warn Dumper($conf);

my $original_working_directory = cwd;
#warn "my owd is $original_working_directory";

# override logdir from logmonster.conf
$logmonster->{conf}{logbase} = "$original_working_directory/t/trash";
$logmonster->{conf}{logdir}  = "$original_working_directory/t/trash";
$logmonster->{conf}{tmpdir}  = "$original_working_directory/t/trash";

my $log_fh;

## check_config
    ok( $logmonster->check_config(), 'check_config');

## get_log_dir
    $logmonster->{'conf'}->{'rotation_interval'} = "hour";
    ok( my $logdir = $logmonster->get_log_dir(), 'get_log_dir hour');
    #print "     logdir: $logdir\n";

    $logmonster->{'conf'}->{'rotation_interval'} = "day";
    ok( $logdir = $logmonster->get_log_dir(), 'get_log_dir day');
    #print "     logdir: $logdir\n";

    $logmonster->{'conf'}->{'rotation_interval'} = "month";
    ok( $logdir = $logmonster->get_log_dir(), 'get_log_dir month');
    #print "     logdir: $logdir\n";

## report_open
    $log_fh = $logmonster->report_open("Logmonster",0);
    ok( $log_fh, 'report_open');
    $logmonster->{'report'} = $log_fh;

# report_hits: set up a dummy hits file