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