File: 04..unicode.t

package info (click to toggle)
libtext-trim-perl 1.04-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 140 kB
  • sloc: perl: 35; makefile: 2
file content (30 lines) | stat: -rw-r--r-- 715 bytes parent folder | download | duplicates (4)
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
29
30
use strict;
use warnings;

use Test::More tests => 4;

BEGIN { use_ok('Text::Trim') }

SKIP: {
    eval { require Encode };
    if ($@) {
        skip("Unicode tests require Encode.pm (core with 5.7.3 and later)", 3);
    }
    import Encode qw( decode :fallbacks );

    # unicode non-breaking space;
    my $nbsp = "\xc2\xa0";

    my $text = my $orig = decode('UTF-8', "$nbsp$nbsp\tFoo Bar Baz$nbsp\t\r\n", FB_WARN());
    my $expected = 'Foo Bar Baz';

    is(trim($text), $expected, 'trim with unicode whitespace works');
    is($text,       $orig,     'original string unaffected');
    trim($text);
    is($text,       $expected, 'works in void context too');
}


__END__

vim: ft=perl ts=8 sts=4 sw=4 sr et