1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
use strict;
use warnings;
use English qw(-no_match_vars);
use Data::Dumper;
use FindBin qw($Bin);
use lib "$Bin/lib";
use PPI;
use Perl::Metrics::Simple::Analysis::File;
use Readonly;
use Test::More tests => 20;
Readonly::Scalar my $TEST_DIRECTORY => "$Bin/test_files";
Readonly::Scalar my $EMPTY_STRING => q{};
test_get_node_length();
test_measure_complexity();
test_measure_complexity_with_custom_settings();
test_is_hash_key();
exit;
sub test_get_node_length {
my $test_file = "$TEST_DIRECTORY/not_a_perl_file";
my $file_counter =
Perl::Metrics::Simple::Analysis::File->new( path => $test_file );
my $one_line_of_code = q{print "Hello world\n";};
my $one_line_node = PPI::Document->new( \$one_line_of_code );
is( $file_counter->get_node_length($one_line_node),
1, 'get_node_length for one line of code.' );
my $four_lines_of_code = <<'EOS';
use Foo;
my $object = Foo->new;
# This is a comment.
my $result = $object->calculate();
return $result;
EOS
my $four_line_node = PPI::Document->new( \$four_lines_of_code );
is( $file_counter->get_node_length($four_line_node),
4, 'get_node_length for 4 lines of code.' ) ||diag $four_lines_of_code;
return 1;
}
sub test_measure_complexity {
my $test_file = "$TEST_DIRECTORY/not_a_perl_file";
my $file_counter =
Perl::Metrics::Simple::Analysis::File->new( path => $test_file );
my $all_comment_code = q{# this is a comment. I love comments.};
my $all_comment_doc = PPI::Document->new( \$all_comment_code );
my $all_comment_complexity =
$file_counter->measure_complexity($all_comment_doc);
is( $all_comment_complexity, 0, 'Complexity of all-comment code is 0' );
my $empty_code = q{};
my $empty_doc = PPI::Document->new( \$empty_code );
my $empty_doc_complexity = $file_counter->measure_complexity($empty_doc);
is($empty_doc_complexity, 0, 'Complexity of empty doc is 0');
my $print_statement_code = 'print "Hello world.\n";';
my $print_statement_doc = PPI::Document->new( \$print_statement_code );
my $print_statement_complexity =
$file_counter->measure_complexity($print_statement_doc);
is( $print_statement_complexity, 1, 'Complexity of print statement is 1' );
my $basic_if_code = 'if ($boolean) { return 1; }';
my $basic_if_doc = PPI::Document->new( \$basic_if_code );
my $basic_if_complexity = $file_counter->measure_complexity($basic_if_doc);
is( $basic_if_complexity, 2, 'Complexity of basic "if" block is 2' );
return 1;
}
sub test_measure_complexity_with_custom_settings {
my $test_file = "$TEST_DIRECTORY/not_a_perl_file";
my $file_counter =
Perl::Metrics::Simple::Analysis::File->new(path => $test_file);
my $code_with_if_plus_map = <<'EOS';
if ($boolean) {
@new_list = map { do_something($_) } @old_list;
$a++;
}
$b = rand;
return $a || $b;
EOS
my $doc_with_if_plus_map = PPI::Document->new( \$code_with_if_plus_map );
my $if_plus_map_complexity = $file_counter->measure_complexity($doc_with_if_plus_map);
my $expected_default_complexity = 4;
is( $if_plus_map_complexity,
$expected_default_complexity,
'Using default @LOGIC_KEYWORDS and @LOGIC_OPERATORS'
);
{
# Add 'rand' as a logic keyword
no warnings qw(once);
local @Perl::Metrics::Simple::Analysis::File::LOGIC_KEYWORDS =
( @Perl::Metrics::Simple::Analysis::File::DEFAULT_LOGIC_KEYWORDS,
'rand' );
$file_counter =
Perl::Metrics::Simple::Analysis::File->new(path => $test_file);
my $got_custom_complexity = $file_counter->measure_complexity($doc_with_if_plus_map);
my $expected_with_custom_keywords = 5;
is( $got_custom_complexity,
$expected_with_custom_keywords,
'Using custom @LOGIC_KEYWORDS'
);
# Add '++' as a logic operator.
local @Perl::Metrics::Simple::Analysis::File::LOGIC_OPERATORS =
(
@Perl::Metrics::Simple::Analysis::File::DEFAULT_LOGIC_OPERATORS,
'++'
);
my $custom_counter =
Perl::Metrics::Simple::Analysis::File->new(path => $test_file);
$got_custom_complexity = $custom_counter->measure_complexity($doc_with_if_plus_map);
my $expected_with_custom_keywords_and_operators = 6;
is( $got_custom_complexity,
$expected_with_custom_keywords_and_operators,
'Using custom @LOGIC_OPERATORS and @LOGIC_KEYWORDS'
);
}
return 1;
}
# is_hash_key tests
# Copied from
# http://search.cpan.org/src/THALJEF/Perl-Critic-0.21/t/05_utils.t
sub test_is_hash_key {
my $code = 'sub foo { return $hash1{bar}, $hash2->{baz}; }';
my $doc = PPI::Document->new( \$code );
my @words = @{ $doc->find('PPI::Token::Word') };
my @expect = (
[ 'sub', undef ],
[ 'foo', undef ],
[ 'return', undef ],
[ 'bar', 1 ],
[ 'baz', 1 ],
);
is( scalar @words, scalar @expect, 'is_hash_key count' );
for my $i ( 0 .. $#expect ) {
is( $words[$i], $expect[$i][0], 'is_hash_key word' );
is( Perl::Metrics::Simple::Analysis::File::is_hash_key( $words[$i] ),
$expect[$i][1], 'is_hash_key boolean' );
}
}
|
