regexec.c: Remove unnecessary cBOOLs

[perl5.git] / t / lib / Cname.pm

diff --git a/t/lib/Cname.pm b/t/lib/Cname.pm
index d4b8a9e..562f59a 100644 (file)
--- a/t/lib/Cname.pm
+++ b/t/lib/Cname.pm
@@ -4,6 +4,7 @@ our $Evil='A';
 sub translator {
     my $str = shift;
     if ( $str eq 'EVIL' ) {
+        # Returns A first time, AB second, ABC third ... A-ZA the 27th time.
         (my $c=substr("A".$Evil,-1))++;
         my $r=$Evil;
         $Evil.=$c;
@@ -12,6 +13,25 @@ sub translator {
     if ( $str eq 'EMPTY-STR') {
        return "";
     }
+    if ( $str eq 'NULL') {
+        return "\0";
+    }
+    if ( $str eq 'LONG-STR') {
+        return 'A' x 255;
+    }
+    # Should exceed limit for regex \N bytes in a sequence.  Anyway it will if
+    # UCHAR_MAX is 255.
+    if ( $str eq 'TOO-LONG-STR') {
+       return 'A' x 256;
+    }
+    if ($str eq 'MALFORMED') {
+        $str = "\xDF\xDFabc";
+        utf8::upgrade($str);
+         
+        # Create a malformed in first and second characters.
+        $str =~ s/^\C/A/;
+        $str =~ s/^(\C\C)\C/$1A/;
+    }
     return $str;
 }