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