#!perl
# Test that utf8::all imports charnames for \N

use utf8::all;
use Test::More tests => 3;

is_deeply "\N{GREEK SMALL LETTER SIGMA} is called sigma.",
          "σ is called sigma.",
          ':full';

is_deeply "\N{greek:Sigma}",
          "Σ",
          ':short';

is_deeply charnames::vianame("GOTHIC LETTER AHSA"),
          66352,
          'charnames::vianame';