Lines Matching refs:na
456 my($na, $nb) = ("\x{ff}", "\x{fe}");
459 ($b = $a) =~ s/--/$na/;
460 is($b, "$ua$na$ub", "s///: replace non-utf8 into utf8");
461 ($b = $a) =~ s/--/--$na--/;
462 is($b, "$ua--$na--$ub", "s///: replace long non-utf8 into utf8");
467 $a = "$na--$nb";
469 is($b, "$na$ua$nb", "s///: replace utf8 into non-utf8");
471 is($b, "$na--$ua--$nb", "s///: replace long utf8 into non-utf8");
475 ($b = $a) =~ s/-($ud)?-/$na/;
476 is($b, "$ua$na$ub", "s///: replace non-utf8 into utf8 (utf8 pattern)");
477 ($b = $a) =~ s/-($ud)?-/--$na--/;
478 is($b, "$ua--$na--$ub", "s///: replace long non-utf8 into utf8 (utf8 pattern)");
483 $a = "$na--$nb";
485 is($b, "$na$ua$nb", "s///: replace utf8 into non-utf8 (utf8 pattern)");
487 is($b, "$na--$ua--$nb", "s///: replace long utf8 into non-utf8 (utf8 pattern)");
488 ($b = $a) =~ s/-($ud)?-/$na/;
489 is($b, "$na$na$nb", "s///: replace non-utf8 into non-utf8 (utf8 pattern)");
490 ($b = $a) =~ s/-($ud)?-/--$na--/;
491 is($b, "$na--$na--$nb", "s///: replace long non-utf8 into non-utf8 (utf8 pattern)");