File Coverage

t/lib/MyTestTools.pm

Criterion	Covered	Total	%
statement	15	44	34.0
branch	0	10	0.0
condition	0	7	0.0
subroutine	5	10	50.0
pod	3	5	60.0
total	23	76	30.2

package MyTestTools;
use base qw(Exporter);
use strict;
use warnings;

use Test::More;
use IO::File;

our @EXPORT         =   ();
our @CSS_FUNCTIONS  =   qw( build_css_regex count_css check_results );
our @EXPORT_OK      =   ( @CSS_FUNCTIONS, qw(Engines ResultsFile) );
our %EXPORT_TAGS    =   (
    'all'   =>  [ @EXPORT_OK ],
    'css'   =>  [ @CSS_FUNCTIONS ],
);

our $VERSION    = '0.1';
my %default_counters = (
    q(synLineNumber)    => 0,
    q(synTitle)         => 0,
    q(synBar)           => 0,
    q(synComment)       => 0,
    q(synConstant)      => 0,
    q(synIdentifier)    => 0,
    q(synStatement)     => 0,
    q(synPreProc)       => 0,
    q(synType)          => 0,
    q(synSpecial)       => 0,
    q(synUnderlined)    => 0,
    q(synError)         => 0,
    q(synTodo)          => 0,
    );

sub build_css_regex {
    my  $tag    =   shift;
    my  $value  =   shift || q(.+);

    my  $expr  = sprintf('\s*%s\s*',
                        $tag, $value );

    return qr{$expr};
}

sub count_css {
    my  $text       = shift;
    my  %css_tags   = ();

    while ($text =~ m{}xmsg) {
        my  $name = $1;
        if (not exists $css_tags{$name}) {
            $css_tags{$name} = 0;
        }

        $css_tags{$name}++;
    }

    return wantarray ? %css_tags : scalar keys %css_tags;
}

sub check_results {
    my  ($text, %expect)    =   @_;

    my %found = ( %default_counters,
                  count_css( $text ) );

    foreach my $name (keys %expect) {
        is($found{$name},$expect{$name}, sprintf ("Found %u %s tag(s)", $found{$name}, $name) );
    }

    return;
}

sub Engines {
    my  $full_path  =   shift || 0;
    my  @names = qw(Simple Kate Vim);

    if ($full_path) {
        return map { "IkiWiki::Plugin::syntax::${_}" } @names;
    }
    else {
        return @names;
    }
}

my $results_fh = undef;

sub ResultsFile {
    my  $path   =   shift;

    if (not $path) {
        return $results_fh;
    }
    else {
        # if the file exits and isn't writable
        if (-e $path and not -w $path) {
            return;
        }
        else {
            # open the file for writing
            return $results_fh = IO::File->new( $path, ">" );
        }
    }
}

1;
__END__