6 use Test::More tests => 9;
8 use Hash::Normalize qw<normalize get_normalization>;
11 is get_normalization(%h), undef, 'brand new hash is not normalized';
14 is get_normalization(%h), 'NFC', 'composed normalization by default';
17 is get_normalization(%h), 'NFD', 'switch normalization to NFD';
20 is get_normalization(%h), 'NFD', 'reapply the same normalization';
23 is get_normalization(%h), 'NFKC', 'switch normalization to NFKC';
26 is get_normalization(%h), 'NFKD', 'switch normalization to NFKD';
29 is get_normalization(%h), 'FCC', 'switch normalization to FCC';
32 is get_normalization(%h), 'FCD', 'switch normalization to FCD';
34 eval { normalize %h, 'XYZ' };
35 like $@, qr/^Invalid normalization /, 'invalid normalization croaks';