bears.tests.perl.PerlCriticBearTest - Code Metrics - Inspection of "Revamp LocalBearTestHelper" - coala-analyzer/coala - Measure and Improve Code Quality continuously with Scrutinizer

Completed

Pull Request — master (#1431)

by Abdeali

created 2016-02-12 10:52 UTC

bears.tests.perl.PerlCriticBearTest A

↳ Parent: Project

Complexity

Total Complexity

Size/Duplication

Total Lines	21
Duplicated Lines	0 %

Metric	Value
dl	0
loc	21
rs	10
wmc	2

from bears.perl.PerlCriticBear import PerlCriticBear
from bears.tests.LocalBearTestHelper import verify_local_bear
from coalib.misc.ContextManagers import prepare_file

good_file = """
#!/usr/bin/perl

# $Id$
# $Revision$
# $Date$

use strict;
use warnings;
use vars qw/ $VERSION /;

$VERSION = '1.00';

exit 1 if !print "Hello, world!\n";
""".split("\n")


bad_file = """
#!/usr/bin/perl

print "Hello World\n";
""".split("\n")


config_file = """
severity  = 5
# for signatures
[-Subroutines::ProhibitSubroutinePrototypes]

[TestingAndDebugging::RequireUseStrict]

[TestingAndDebugging::RequireUseWarnings]
""".split("\n")


PerlCriticBear1Test = verify_local_bear(PerlCriticBear,
                                        valid_files=(good_file,),
                                        invalid_files=(bad_file,))


with prepare_file(config_file,
                  filename=None,
                  force_linebreaks=True,
                  create_tempfile=True) as (conf_lines, conf_file):
    PerlCriticBear2Test = verify_local_bear(PerlCriticBear,
                                            valid_files=(bad_file),
                                            invalid_files=(),
                                            settings={
                                                "perlcritic_config": conf_file})


1			from bears.perl.PerlCriticBear import PerlCriticBear
2			from bears.tests.LocalBearTestHelper import verify_local_bear
3			from coalib.misc.ContextManagers import prepare_file
4
5			good_file = """
6			#!/usr/bin/perl
7
8			# $Id$
9			# $Revision$
10			# $Date$
11
12			use strict;
13			use warnings;
14			use vars qw/ $VERSION /;
15
16			$VERSION = '1.00';
17
18			exit 1 if !print "Hello, world!\n";
19			""".split("\n")
20
21
22			bad_file = """
23			#!/usr/bin/perl
24
25			print "Hello World\n";
26			""".split("\n")
27
28
29			config_file = """
30			severity = 5
31			# for signatures
32			[-Subroutines::ProhibitSubroutinePrototypes]
33
34			[TestingAndDebugging::RequireUseStrict]
35
36			[TestingAndDebugging::RequireUseWarnings]
37			""".split("\n")
38
39
40			PerlCriticBear1Test = verify_local_bear(PerlCriticBear,
41			valid_files=(good_file,),
42			invalid_files=(bad_file,))
43
44
45			with prepare_file(config_file,
46			filename=None,
47			force_linebreaks=True,
48			create_tempfile=True) as (conf_lines, conf_file):
49			PerlCriticBear2Test = verify_local_bear(PerlCriticBear,
50			valid_files=(bad_file),
51			invalid_files=(),
52			settings={
53			"perlcritic_config": conf_file})
54

coala-analyzer / coala

Pull Request — master (#1431)

bears.tests.perl.PerlCriticBearTest A

Complexity

Size/Duplication

Duplication Side-by-Side

Filter issues like