File Coverage

blib/lib/Test/Crontab/Format.pm

Criterion	Covered	Total	%
statement	46	46	100.0
branch	12	12	100.0
condition	2	3	66.6
subroutine	8	8	100.0
pod	1	1	100.0
total	69	70	98.5

package Test::Crontab::Format;

use 5.008001;
use strict;
use warnings;
use base 'Exporter';

use Test::Builder;
use Parse::Crontab 0.03;

# ABSTRACT: Check crontab format validity

our $VERSION = "0.02";

our @EXPORT = qw(
    crontab_format_ok
);

sub import {
    my $self = shift;
    my $pack = caller;

    my $test = Test::Builder->new;

    $test->exported_to( $pack );
    $test->plan( @_ );

    $self->export_to_level( 1, $self, @EXPORT );
}

sub crontab_format_ok {
    my ($thingy) = @_;

    my $test = Test::Builder->new;

    if( ref $thingy eq 'SCALAR' ){
	if( length ${ $thingy } == 0 ){
	    $test->ok( 0, "scalar content" );
	    $test->diag("content is empty");
	}
	else{
	    my $crontab = Parse::Crontab->new( content => ${ $thingy }, verbose => 0 );
	    if( $crontab->is_valid ){
		$test->ok( 1, "crontab format: scalar content" );
	    }
	    else{
		$test->ok( 0, "scalar content" );
#		$test->diag( $crontab->error_messages );
	    }
	}
    }
    else{
	my $file = $thingy;
	if( not -f $file or not -r $file ){
	    $test->ok( 0, $file );
	    $test->diag( sprintf "file '%s' not readable", $file );
	}
	elsif( -z $file ){
	    $test->ok( 0, $file );
	    $test->diag( sprintf "file '%s' is empty", $file );
	}
	else{
	    my $crontab = Parse::Crontab->new( file => $file, verbose => 0 );
	    if( $crontab->is_valid ){
		$test->ok( 1, sprintf "crontab format: %s", $file );
	    }
	    else{
		$test->ok( 0, $file );
#		$test->diag( $crontab->error_messages );
	    }
	}
    }
}

1;

__END__