Branch Coverage

blib/lib/Syntax/Highlight/Engine/Kate/Tcl_Tk.pm
Criterion Covered Total %
branch 35 42 83.3


line true false branch
495 0 1114 if ($self->testRegExpr($text, '#\\s*BEGIN.*$', 0, 0, 0, undef, 1, '#stay', 'Region Marker'))
504 0 1114 if ($self->testRegExpr($text, '#\\s*END.*$', 0, 0, 0, undef, 1, '#stay', 'Region Marker'))
511 68 1046 if ($self->testKeyword($text, 'keywords', 0, undef, 0, '#stay', 'Keyword'))
518 16 1030 if ($self->testKeyword($text, 'keywords-opt', 0, undef, 0, '#stay', 'Parameter'))
524 10 1020 if ($self->testFloat($text, 0, undef, 0, '#stay', 'Float'))
530 0 1020 if ($self->testInt($text, 0, undef, 0, '#stay', 'Decimal'))
537 14 1006 if ($self->testRegExpr($text, '\\\\.', 0, 0, 0, undef, 0, '#stay', 'Char'))
544 0 1006 if ($self->testRegExpr($text, '\\W-\\w+', 0, 0, 0, undef, 0, '#stay', 'Parameter'))
551 4 1002 if ($self->testRegExpr($text, '\\$\\{[^\\}]+\\}', 0, 0, 0, undef, 0, '#stay', 'Variable'))
558 4 998 if ($self->testRegExpr($text, '\\$(::)?[\\S\\D]\\w+', 0, 0, 0, undef, 0, '#stay', 'Variable'))
565 0 998 if ($self->testRegExpr($text, '[^\\\\]""', 0, 0, 0, undef, 0, '#stay', 'String'))
572 8 990 if ($self->testRegExpr($text, '[^\\\\]"', 0, 0, 0, undef, 0, 'String', 'String'))
580 0 990 if ($self->testRegExpr($text, '#.*$', 0, 0, 0, undef, 1, '#stay', 'Comment'))
587 0 990 if ($self->testRegExpr($text, ';\\s*#.*$', 0, 0, 0, undef, 0, '#stay', 'Comment'))
595 26 964 if ($self->testDetectChar($text, '{', 0, 0, 0, undef, 0, '#stay', 'Keyword'))
603 26 938 if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#stay', 'Keyword'))
610 4 934 if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, '#stay', 'Keyword'))
617 4 930 if ($self->testDetectChar($text, ']', 0, 0, 0, undef, 0, '#stay', 'Keyword'))
629 6 94 if ($self->testRegExpr($text, '\\\\.', 0, 0, 0, undef, 0, '#stay', 'Char'))
636 8 86 if ($self->testDetectChar($text, '"', 0, 0, 0, undef, 0, '#pop', 'String'))
643 4 82 if ($self->testDetectChar($text, '$', 0, 0, 0, undef, 0, '#stay', 'Variable'))