t/10-empty.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 9;
   7
   8 use Hash::Normalize qw<normalize get_normalization>;
   9
  10 my %h;
  11 is get_normalization(%h), undef, 'brand new hash is not normalized';
  12
  13 normalize %h;
  14 is get_normalization(%h), 'NFC', 'composed normalization by default';
  15
  16 normalize %h, 'nfd';
  17 is get_normalization(%h), 'NFD', 'switch normalization to NFD';
  18
  19 normalize %h, 'd';
  20 is get_normalization(%h), 'NFD', 'reapply the same normalization';
  21
  22 normalize %h, 'kc';
  23 is get_normalization(%h), 'NFKC', 'switch normalization to NFKC';
  24
  25 normalize %h, 'NFkd';
  26 is get_normalization(%h), 'NFKD', 'switch normalization to NFKD';
  27
  28 normalize %h, 'fCc';
  29 is get_normalization(%h), 'FCC', 'switch normalization to FCC';
  30
  31 normalize %h, 'FcD';
  32 is get_normalization(%h), 'FCD', 'switch normalization to FCD';
  33
  34 eval { normalize %h, 'XYZ' };
  35 like $@, qr/^Invalid normalization /, 'invalid normalization croaks';