regcomp.c: Make all warnings and error messages UTF-8 clean

[perl5.git] / t / op / index.t

diff --git a/t/op/index.t b/t/op/index.t
index d534053..eaed4b3 100644 (file)
--- a/t/op/index.t
+++ b/t/op/index.t
@@ -7,7 +7,7 @@ BEGIN {
 }
 
 use strict;
-plan( tests => 120 );
+plan( tests => 121 );
 
 run_tests() unless caller;
 
@@ -248,4 +248,7 @@ use constant u => undef;
 }
 is u, undef, 'undef constant is still undef';
 
+is index('the main road', __PACKAGE__), 4,
+    '[perl #119169] __PACKAGE__ as 2nd argument';
+
 } # end of sub run_tests