This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #32400] Unnecessary warning from constant.pm
[perl5.git] / lib / constant.t
index 51902eb..826a8de 100644 (file)
@@ -14,7 +14,7 @@ END { print STDERR @warnings }
 
 
 use strict;
-use Test::More tests => 74;
+use Test::More tests => 75;
 my $TB = Test::More->builder;
 
 BEGIN { use_ok('constant'); }
@@ -245,3 +245,12 @@ is @{+FAMILY}, @{RFAM->[0]};
 is FAMILY->[2], RFAM->[0]->[2];
 is AGES->{FAMILY->[1]}, 28;
 is THREE**3, SPIT->(@{+FAMILY}**3);
+
+# Allow name of digits/underscores only if it begins with underscore
+{
+    use warnings FATAL => 'constant';
+    eval q{
+        use constant _1_2_3 => 'allowed';
+    };
+    ok( $@ eq '' );
+}