distrib/lib/constant.t

8 use warnings;
9 use vars qw{ @warnings };
11     $SIG{'__WARN__'} = sub { push @warnings, @_ }
13 END { print STDERR @warnings }
99     no warnings 'numeric';
130 test 36, @warnings == 0, join "\n", "unexpected warning", @warnings;
131 @warnings = ();		# just in case
133 test 37, @warnings &&
134     ($warnings[0] =~ /Constant sub.* undefined/),
135     shift @warnings;
137 test 38, @warnings == 0, "unexpected warning";
195 @warnings = ();
197     no warnings;
198     use warnings 'constant';
215 test 59, @warnings == 15 ;
216 test 60, (shift @warnings) =~ /^Constant name 'BEGIN' is a Perl keyword at/;
217 shift @warnings; #Constant subroutine BEGIN redefined at
218 test 61, (shift @warnings) =~ /^Constant name 'INIT' is a Perl keyword at/;
219 test 62, (shift @warnings) =~ /^Constant name 'CHECK' is a Perl keyword at/;
220 test 63, (shift @warnings) =~ /^Constant name 'END' is a Perl keyword at/;
221 test 64, (shift @warnings) =~ /^Constant name 'DESTROY' is a Perl keyword at/;
222 test 65, (shift @warnings) =~ /^Constant name 'AUTOLOAD' is a Perl keyword at/;
223 test 66, (shift @warnings) =~ /^Constant name 'STDIN' is forced into package main:: a/;
224 test 67, (shift @warnings) =~ /^Constant name 'STDOUT' is forced into package main:: at/;
225 test 68, (shift @warnings) =~ /^Constant name 'STDERR' is forced into package main:: at/;
226 test 69, (shift @warnings) =~ /^Constant name 'ARGV' is forced into package main:: at/;
227 test 70, (shift @warnings) =~ /^Constant name 'ARGVOUT' is forced into package main:: at/;
228 test 71, (shift @warnings) =~ /^Constant name 'ENV' is forced into package main:: at/;
229 test 72, (shift @warnings) =~ /^Constant name 'INC' is forced into package main:: at/;
230 test 73, (shift @warnings) =~ /^Constant name 'SIG' is forced into package main:: at/;
231 @warnings = ();
247 { no warnings 'deprecated'; test 78, PHFAM->{John} == AGES->{John}; }