specified pragma module: use utf8

bayashi · Jun 18, 2014 · bf63d56 · bf63d56
1 parent b2ef240
commit bf63d56
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/t/05_showpragma.t b/t/05_showpragma.t
@@ -4,13 +4,15 @@ use Devel::ModuleDumper qw/showpragma/;
 use Test::More;
 use Capture::Tiny qw/capture_stdout/;
 
+use utf8;
+
 my $stdout = capture_stdout { print Devel::ModuleDumper->show(); };
 
 like $stdout, qr/^Perl\t\d+/;
 like $stdout, qr/Test::More\t\d+/;
 like $stdout, qr/Capture::Tiny\t\d+/;
 
-like $stdout, qr/constant\t\d+/;
+like $stdout, qr/utf8\t\d+/;
 
 if ($ENV{AUTHOR_TEST}) {
     note $stdout;