File Coverage

t/03.syntax-kate.t

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

#!/usr/bin/perl

use strict;
use warnings;

use Test::More qw(no_plan);

use lib qw(lib t/lib);
use IkiWiki q(2.0);

use MyTestTools qw(:css);

my $class = 'IkiWiki::Plugin::syntax::Kate';

use_ok($class);

my $engine = $class->new();

SKIP: {
    skip "Syntax::Highlight::Engine::Kate not installed" if not $engine;

    isa_ok($engine, $class );

    my $source = <<'EOF';
/* This is a foo program */
int a = 3;
printf("%d\n",a);
EOF

    my $output = eval {
        $engine->syntax_highlight( language    => 'C',
                                            source      => $source,
                                            linenumbers => 1,
                                            bars        => 1, );
        };

    if (Syntax::X::Engine::Use->caught()) {
        skip('Syntax::Highlight::Engine::Kate not installed');
    }

    my $regex_ln = build_css_regex('synLineNumber','\d+');
    like($output, $regex_ln, "Source text with line numbers");

    my $regex_bar = build_css_regex('synBar');
    like($output, $regex_bar, "Source text with bar lines");

    check_results( $output,
            synBar          =>  2,
            synLineNumber   =>  3,
            synType         =>  1,
            synUnderlined   =>  1,
            synComment      =>  1,
            synConstant     =>  3,      );
}