File: unicode.t

package info (click to toggle)
libnumber-phone-perl 3.6006-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, sid
  • size: 136,072 kB
  • sloc: perl: 2,719; makefile: 2
file content (19 lines) | stat: -rw-r--r-- 311 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
use strict;
use warnings;

use Test::More;

use Number::Phone;

END { done_testing(); }

eval 'use Test::utf8';

SKIP: {
    skip("Test::utf8 not available", 1) if($@);

    is_flagged_utf8(
        Number::Phone->new("+49 906 1234567")->areaname(),
        "Donauwörth area name isflagged as UTF-8"
    );
};