Branch Coverage

blib/lib/Syntax/Highlight/Engine/Kate/Common_Lisp.pm
Criterion Covered Total %
branch 32 50 64.0


line true false branch
1164 2 38 if ($self->testDetect2Chars($text, "|", "#", 0, 0, 0, undef, 0, "#pop", "Comment"))
1177 0 954 if ($self->testRegExpr($text, ";+\\s*BEGIN.*\$", 0, 0, 0, undef, 0, "#stay", "Region Marker"))
1185 0 954 if ($self->testRegExpr($text, ";+\\s*END.*\$", 0, 0, 0, undef, 0, "#stay", "Region Marker"))
1192 0 954 if ($self->testRegExpr($text, ";.*\$", 0, 0, 0, undef, 0, "#stay", "Comment"))
1201 2 952 if ($self->testDetect2Chars($text, "#", "|", 0, 0, 0, undef, 0, "MultiLineComment", "Comment"))
1208 90 862 if ($self->testDetectChar($text, "(", 0, 0, 0, undef, 0, "#stay", "Brackets"))
1215 90 772 if ($self->testDetectChar($text, ")", 0, 0, 0, undef, 0, "#stay", "Brackets"))
1222 40 732 if ($self->testKeyword($text, "keywords", 0, undef, 0, "#stay", "Keyword"))
1229 2 730 if ($self->testKeyword($text, "symbols", 0, undef, 0, "#stay", "Operator"))
1236 0 730 if ($self->testKeyword($text, "modifiers", 0, undef, 0, "#stay", "Modifier"))
1243 0 730 if ($self->testKeyword($text, "variables", 0, undef, 0, "#stay", "Variable"))
1250 14 716 if ($self->testKeyword($text, "definitions", 0, undef, 0, "function_decl", "Definition"))
1257 0 716 if ($self->testRegExpr($text, "#\\\\.", 0, 0, 0, undef, 0, "#stay", "Char"))
1264 24 692 if ($self->testDetectChar($text, "\"", 0, 0, 0, undef, 0, "String", "String"))
1271 0 692 if ($self->testRegExpr($text, "#[bodxei]", 0, 0, 0, undef, 0, "SpecialNumber", "Char"))
1278 0 692 if ($self->testRegExpr($text, "#[tf]", 0, 0, 0, undef, 0, "#stay", "Decimal"))
1284 8 684 if ($self->testFloat($text, 0, undef, 0, "#stay", "Float"))
1290 8 676 if ($self->testInt($text, 0, undef, 0, "#stay", "Decimal"))
1301 0 0 if ($self->testFloat($text, 0, undef, 0, "#pop", "Float"))
1307 0 0 if ($self->testInt($text, 0, undef, 0, "#pop", "Decimal"))
1313 0 0 if ($self->testHlCOct($text, 0, undef, 0, "#pop", "BaseN"))
1319 0 0 if ($self->testHlCHex($text, 0, undef, 0, "#pop", "Float"))
1331 0 96 if ($self->testRegExpr($text, "#\\\\.", 0, 0, 0, undef, 0, "#stay", "Char"))
1338 24 72 if ($self->testDetectChar($text, "\"", 0, 0, 0, undef, 0, "#pop", "String"))
1350 14 0 if ($self->testRegExpr($text, "\\s*[A-Za-z0-9-+\\<\\>//\\*]*\\s*", 0, 0, 0, undef, 0, "#pop", "Function"))