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, "\\w[']+", 0, 0, 0, undef, 0, "#stay", "Normal Text"))
519 12 2218 if ($self->testDetectChar($text, "'", 0, 0, 0, undef, 0, "single_char", "Char"))
526 12 2206 if ($self->testRegExpr($text, "\\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, "'", 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"))