Login
Added my first new policy in a very long time. So I might be a bit
[gknop/Perl-Critic.git] / t / ValuesAndExpressions / RequireConstantOnLeftSideOfEquality.run
1 ## name basic pass
2 ## failures 0
3 ## cut
4
5 if( 6 == $foo ){}
6 if( 'bar' eq $foo ){}
7
8 while( 6 == $foo ){}
9 while( 'bar' eq $foo ){}
10
11 unless( 6 == $foo ){}
12 unless( 'bar' eq $foo ){}
13
14 #-----------------------------------------------------------------------------
15 ## name basic failures
16 ## failures 6
17 ## cut
18
19 if( $foo == 6 ){}
20 if( $foo eq 'bar' ){}
21
22 while( $foo == 6 ){}
23 while( $foo eq 'bar' ){}
24
25 unless( $foo == 6 ){}
26 unless( $foo eq 'bar' ){}
27
28 #-----------------------------------------------------------------------------
29 ## name with complex expressions on right hand side
30 ## TODO Not sure how to handle this
31 ## failures 3
32 ## cut
33
34 if( $foo == foo() ){}
35 if( $foo == (6+3+1) ){} 
36 if( $foo == $object->method() ){}