Login
Unmark test as TODO.
[gknop/Perl-Critic.git] / t / Miscellanea / RequireRcsKeywords.run
1 ## name RCS keywords in POD
2 ## failures 0
3 ## cut
4
5 =pod
6
7   $Revision$
8   $Source$
9   $Date$
10
11 =cut
12
13 #-----------------------------------------------------------------------------
14
15 ## name No RCS keywords at all
16 ## failures 3
17 ## cut
18
19 #just a comment
20 $foo = "bar";
21 $baz = qq{nuts};
22
23 #-----------------------------------------------------------------------------
24
25 ## name Keywords in comments
26 ## failures 0
27 ## cut
28
29 # $Revision$
30 # $Source$
31 # $Date$
32
33 #-----------------------------------------------------------------------------
34
35 ## name Id in comments
36 ## failures 0
37 ## cut
38
39 # $Id$
40 END_PERL
41
42 #-----------------------------------------------------------------------------
43
44 ## name Keywords in literals
45 ## failures 0
46 ## cut
47
48 '$Revision$'
49 '$Source: foo/bar $'
50 '$Date$'
51
52 #-----------------------------------------------------------------------------
53
54 ## name Keywords in literals, q{}-style
55 ## failures 0
56 ## cut
57
58 q{$Revision$}
59 q{$Source: foo/bar $}
60 q{$Date$}
61
62 #-----------------------------------------------------------------------------
63
64 ## name Keywords in literals, q{}-style, with parms
65 ## failures 0
66 ## parms {keywords => 'Revision Author Id'}
67 ## cut
68
69 q{$Revision$}
70 q{$Author$}
71 q{$Id: whatever $}
72
73 #-----------------------------------------------------------------------------
74
75 ## name Empty code
76 ## failures 1
77 ## parms {keywords => 'Author Id'}
78 ## cut
79
80 #nothing here!
81 $policy = 'Miscellanea::RequireRcsKeywords';
82 is( pcritique($policy, \$code, \%config), 1, $policy);
83
84 #-----------------------------------------------------------------------------
85
86 ## name Keywords after __END__
87 ## failures 0
88 ## cut
89
90 __END__
91 # $Revision$
92 # $Source$
93 # $Date$
94
95 #-----------------------------------------------------------------------------
96
97 ## name Keywords in qw$ ... $ (RT 45196)
98 ## failures 0
99 ## parms {keywords => 'Revision'}
100 ## cut
101
102 use version; our $VERSION = qv( '1.0.' . qw$Revision$ );
103
104 #-----------------------------------------------------------------------------
105
106 ## name Keywords in qw{$ ... $} are invalid (RT 45196)
107 ## failures 1
108 ## parms {keywords => 'Revision'}
109 ## cut
110
111 use version; our $VERSION = qv( '1.0.' . qw{ $Revision$ } );
112
113 #-----------------------------------------------------------------------------
114
115 ## cut
116
117 # The above '## cut' prevents the following lines from being included in the
118 # last test's document and producing false negatives (or positives, as the
119 # case may be).
120
121 ##############################################################################
122 #      $URL$
123 #     $Date$
124 #   $Author$
125 # $Revision$
126 ##############################################################################
127
128 # Local Variables:
129 #   mode: cperl
130 #   cperl-indent-level: 4
131 #   fill-column: 78
132 #   indent-tabs-mode: nil
133 #   c-indentation-style: bsd
134 # End:
135 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :