2 use warnings FATAL => 'all';
5 use open qw(:std :utf8);
8 use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
10 use MooseX::Types::Common::String -all;
12 ok( is_UpperCaseStr('CAFÉ'), q[CAFÉ is uppercase] );
13 ok( !is_UpperCaseStr('CAFé'), q[CAFé is not (entirely) uppercase] );
15 ok( !is_UpperCaseStr('ŐħĤăĩ'), q[ŐħĤăĩ not entirely uppercase] );
16 ok( !is_LowerCaseStr('ŐħĤăĩ'), q[ŐħĤăĩ not entirely lowercase] );
18 ok( is_LowerCaseStr('café'), q[café is lowercase] );
19 ok( !is_LowerCaseStr('cafÉ'), q[cafÉ is not (entirely) lowercase] );
21 ok( is_UpperCaseSimpleStr('CAFÉ'), q[CAFÉ is uppercase] );
22 ok( !is_UpperCaseSimpleStr('CAFé'), q[CAFé is not (entirely) uppercase] );
24 ok( is_LowerCaseSimpleStr('café'), q[café is lowercase] );
25 ok( !is_LowerCaseSimpleStr('cafÉ'), q[cafÉ is not (entirely) lowercase] );