X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Types-Common.git;a=blobdiff_plain;f=t%2F05-unicode.t;fp=t%2F05-unicode.t;h=b8e2c83d5feb110eb3b63c12202ecb66fa138b4c;hp=0000000000000000000000000000000000000000;hb=edd6ff8072b9de004e253b207f07d85326d83151;hpb=966ead6bcb0ac6386052f2aa64920858afa170f4

diff --git a/t/05-unicode.t b/t/05-unicode.t
new file mode 100644
index 0000000..b8e2c83
--- /dev/null
+++ b/t/05-unicode.t
@@ -0,0 +1,27 @@
+use strict;
+use warnings FATAL => 'all';
+
+use utf8;
+use open qw(:std :utf8);
+
+use Test::More;
+use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
+
+use MooseX::Types::Common::String -all;
+
+ok(  is_UpperCaseStr('CAFÉ'), q[CAFÉ is uppercase] );
+ok( !is_UpperCaseStr('CAFé'), q[CAFé is not (entirely) uppercase] );
+
+ok( !is_UpperCaseStr('ŐħĤăĩ'), q[ŐħĤăĩ not entirely uppercase] );
+ok( !is_LowerCaseStr('ŐħĤăĩ'), q[ŐħĤăĩ not entirely lowercase] );
+
+ok(  is_LowerCaseStr('café'), q[café is lowercase] );
+ok( !is_LowerCaseStr('cafÉ'), q[cafÉ is not (entirely) lowercase] );
+
+ok(  is_UpperCaseSimpleStr('CAFÉ'), q[CAFÉ is uppercase] );
+ok( !is_UpperCaseSimpleStr('CAFé'), q[CAFé is not (entirely) uppercase] );
+
+ok(  is_LowerCaseSimpleStr('café'), q[café is lowercase] );
+ok( !is_LowerCaseSimpleStr('cafÉ'), q[cafÉ is not (entirely) lowercase] );
+
+done_testing;