view release on metacpan or  search on metacpan

t/EscStatus.t  view on Meta::CPAN

ok ("\e"       !~ /\p{PerlIO::via::EscStatus::IsZero}/);
ok ("X"        !~ /\p{PerlIO::via::EscStatus::IsZero}/);
ok ($_81_str   !~ /\p{PerlIO::via::EscStatus::IsZero}/);
ok ($_9B_str   !~ /\p{PerlIO::via::EscStatus::IsZero}/);
ok ($_9F_str   !~ /\p{PerlIO::via::EscStatus::IsZero}/);
ok ($AD_str    !~ /\p{PerlIO::via::EscStatus::IsZero}/);
ok ("\x{0300}" =~ /\p{PerlIO::via::EscStatus::IsZero}/); # Mn
ok ("\x{0488}" =~ /\p{PerlIO::via::EscStatus::IsZero}/); # Me
ok ("\x{1100}" !~ /\p{PerlIO::via::EscStatus::IsZero}/); # W
ok ("\x{FF10}" !~ /\p{PerlIO::via::EscStatus::IsZero}/); # F
ok ("\x{FEFF}" =~ /\p{PerlIO::via::EscStatus::IsZero}/); # BOM


#------------------------------------------------------------------------------
# IsDouble

diag 'IsDouble';
ok ("\a"       !~ /\p{PerlIO::via::EscStatus::IsDouble}/);
ok ("\r"       !~ /\p{PerlIO::via::EscStatus::IsDouble}/);
ok ("\t"       !~ /\p{PerlIO::via::EscStatus::IsDouble}/);
ok ("\e"       !~ /\p{PerlIO::via::EscStatus::IsDouble}/);
ok ("X"        !~ /\p{PerlIO::via::EscStatus::IsDouble}/);
ok ($AD_str    !~ /\p{PerlIO::via::EscStatus::IsDouble}/);
ok ($_81_str   !~ /\p{PerlIO::via::EscStatus::IsDouble}/);
ok ($_9B_str   !~ /\p{PerlIO::via::EscStatus::IsDouble}/);
ok ($_9F_str   !~ /\p{PerlIO::via::EscStatus::IsDouble}/);
ok ("\x{0300}" !~ /\p{PerlIO::via::EscStatus::IsDouble}/); # Mn
ok ("\x{0488}" !~ /\p{PerlIO::via::EscStatus::IsDouble}/); # Me
ok ("\x{1100}" =~ /\p{PerlIO::via::EscStatus::IsDouble}/); # W
ok ("\x{FF10}" =~ /\p{PerlIO::via::EscStatus::IsDouble}/); # F
ok ("\x{FEFF}" !~ /\p{PerlIO::via::EscStatus::IsDouble}/); # BOM


#------------------------------------------------------------------------------
# IsOther

diag 'IsOther';
ok ("\a"       !~ /\p{PerlIO::via::EscStatus::IsOther}/);
ok ("\r"       !~ /\p{PerlIO::via::EscStatus::IsOther}/);
ok ("\t"       !~ /\p{PerlIO::via::EscStatus::IsOther}/);
ok ("\e"       !~ /\p{PerlIO::via::EscStatus::IsOther}/);
ok ("X"        =~ /\p{PerlIO::via::EscStatus::IsOther}/);
ok ($AD_str    =~ /\p{PerlIO::via::EscStatus::IsOther}/);
ok ($_81_str   !~ /\p{PerlIO::via::EscStatus::IsOther}/);
ok ($_9B_str   !~ /\p{PerlIO::via::EscStatus::IsOther}/);
ok ($_9F_str   !~ /\p{PerlIO::via::EscStatus::IsOther}/);
ok ("\x{0300}" !~ /\p{PerlIO::via::EscStatus::IsOther}/); # Mn
ok ("\x{0488}" !~ /\p{PerlIO::via::EscStatus::IsOther}/); # Me
ok ("\x{1100}" !~ /\p{PerlIO::via::EscStatus::IsOther}/); # W
ok ("\x{FF10}" !~ /\p{PerlIO::via::EscStatus::IsOther}/); # F
ok ("\x{FEFF}" !~ /\p{PerlIO::via::EscStatus::IsOther}/); # BOM


#------------------------------------------------------------------------------
# _truncate

diag '_truncate';

foreach my $elem (
                  # singles
                  ["", 0, "", 0 ],