File: encodings.t

package info (click to toggle)
libdata-section-perl 0.200008-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 240 kB
  • sloc: perl: 387; makefile: 2
file content (28 lines) | stat: -rw-r--r-- 704 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
use strict;
use warnings;
use lib 't/lib';
use Test::More;
use Test::FailWarnings;
use Encode;

my $builder = Test::More->builder;
binmode $builder->output,         ":utf8";
binmode $builder->failure_output, ":utf8";
binmode $builder->todo_output,    ":utf8";

my $unicode = "\x{263a}";
my $latin1  = "Ricardo Juli\x{E1}n Besteiro Signes";

my %test_data = (
    Unicode_nopragma => $unicode,
    Unicode_pragma   => $unicode,
    Latin1           => $latin1,
);

for my $class ( keys %test_data ) {
    eval "require $class; 1" or die $@; ## no critic
    chomp( my $got = ${ $class->section_data("a") } );
    is( $got, $test_data{$class}, "$class: section_data is text, not bytes" );
}

done_testing;