Branch Coverage

blib/lib/Syntax/Highlight/Engine/Kate/Literate_Haskell.pm
Criterion Covered Total %
branch 37 44 84.0


line true false branch
393 0 0 if ($self->testDetect2Chars($text, '-', '}', 0, 0, 0, undef, 0, '#pop', 'Comment'))
410 0 0 if ($self->testDetectChar($text, ';', 0, 0, 0, undef, 0, '#pop', 'Function Definition'))
422 10 32 if ($self->testDetectChar($text, '`', 0, 0, 0, undef, 0, '#pop', 'Infix Operator'))
435 114 2052 if ($self->testDetectChar($text, '>', 0, 0, 0, 0, 0, 'normal', 'Special'))
448 0 2898 if ($self->testDetect2Chars($text, '{', '-', 0, 0, 0, undef, 0, 'comment_multi_line', 'Comment'))
456 2 2896 if ($self->testDetect2Chars($text, '-', '-', 0, 0, 0, undef, 0, 'comment_single_line', 'Comment'))
463 50 2846 if ($self->testKeyword($text, 'keywords', 0, undef, 0, '#stay', 'Keyword'))
470 52 2794 if ($self->testKeyword($text, 'classes', 0, undef, 0, '#stay', 'Class'))
477 52 2742 if ($self->testKeyword($text, 'type constructors', 0, undef, 0, '#stay', 'Type Constructor'))
484 472 2270 if ($self->testKeyword($text, 'functions', 0, undef, 0, '#stay', 'Function'))
491 16 2254 if ($self->testKeyword($text, 'data constructors', 0, undef, 0, '#stay', 'Data Constructor'))
498 6 2248 if ($self->testDetectChar($text, '"', 0, 0, 0, undef, 0, 'string', 'String'))
505 10 2238 if ($self->testDetectChar($text, '`', 0, 0, 0, undef, 0, 'infix', 'Infix Operator'))
512 8 2230 if ($self->testRegExpr($text, q[\\w[']+], 0, 0, 0, undef, 0, '#stay', 'Normal Text'))
519 12 2218 if ($self->testDetectChar($text, q['], 0, 0, 0, undef, 0, 'single_char', 'Char'))
526 12 2206 if ($self->testRegExpr($text, q[\\s*[a-z_]+\\w*'*\\s*::], 0, 0, 0, undef, 0, '#stay', 'Function Definition'))
532 42 2164 if ($self->testFloat($text, 0, undef, 0, '#stay', 'Float'))
538 0 2164 if ($self->testInt($text, 0, undef, 0, '#stay', 'Decimal'))
550 4 46 if ($self->testRegExpr($text, '\\\\.', 0, 0, 0, undef, 0, '#stay', 'Char'))
557 12 34 if ($self->testDetectChar($text, q['], 0, 0, 0, undef, 0, '#pop', 'Char'))
569 0 38 if ($self->testRegExpr($text, '\\\\.', 0, 0, 0, undef, 0, '#stay', 'String'))
576 6 32 if ($self->testDetectChar($text, '"', 0, 0, 0, undef, 0, '#pop', 'String'))