1use strict; 2use warnings; 3use lib 't/lib'; 4use Test::More; 5use Test::FailWarnings; 6use Encode; 7 8my $builder = Test::More->builder; 9binmode $builder->output, ":utf8"; 10binmode $builder->failure_output, ":utf8"; 11binmode $builder->todo_output, ":utf8"; 12 13my $unicode = "\x{263a}"; 14my $latin1 = "Ricardo Juli\x{E1}n Besteiro Signes"; 15 16my %test_data = ( 17 Unicode_nopragma => $unicode, 18 Unicode_pragma => $unicode, 19 Latin1 => $latin1, 20); 21 22for my $class ( keys %test_data ) { 23 eval "require $class; 1" or die $@; ## no critic 24 chomp( my $got = ${ $class->section_data("a") } ); 25 is( $got, $test_data{$class}, "$class: section_data is text, not bytes" ); 26} 27 28done_testing; 29