File Coverage

blib/lib/ChainMake/Tester.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition	2	6	33.3
subroutine	6	6	100.0
pod	0	3	0.0
total	24	31	77.4

#!/usr/bin/perl

package ChainMake::Tester;

use Test::More;
use Exporter 'import';
use ChainMake::Functions ':all';

our $VERSION = $ChainMake::VERSION;

our @EXPORT_OK = qw(have_made my_ok my_nok);
our %EXPORT_TAGS = (all => [@EXPORT_OK]);

my $made;

unlink_timestamps();

sub have_made { $made.=shift }
sub my_ok {
    my ($cmd,$result,$comment)=@_;
    ok( chainmake($cmd) && ($made eq $result),
        "$comment; make $cmd should '$result', did '$made'" );
    $made='';
}
sub my_nok {
    my ($cmd,$result,$comment)=@_;
    ok( !chainmake($cmd) && ($made eq $result),
        "$comment; make $cmd should return false and give '$result', did '$made'" );
    $made='';
}

1;