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"))