Lines Matching refs:dst
56 my $dst = $ascii->encode($src, FB_DEFAULT);
57 is($dst, $af, "FB_DEFAULT ascii");
61 $dst = $utf8->decode($src, FB_DEFAULT);
62 is($dst, $uf, "FB_DEFAULT utf8");
66 eval{ $dst = $ascii->encode($src, FB_CROAK) };
71 eval{ $dst = $utf8->decode($src, FB_CROAK) };
76 eval{ $dst = $ascii->encode($src, FB_CROAK) };
81 eval{ $dst = $utf8->decode($src, FB_CROAK) };
86 $dst = $ascii->encode($src, FB_QUIET);
87 is($dst, $aq, "FB_QUIET ascii");
91 $dst = $utf8->decode($src, FB_QUIET);
92 is($dst, $uq, "FB_QUIET utf8");
100 $dst = $ascii->encode($src, FB_WARN);
101 is($dst, $aq, "FB_WARN ascii");
107 $dst = $utf8->decode($src, FB_WARN);
108 is($dst, $uq, "FB_WARN utf8");
114 $dst = $ascii->encode($src, WARN_ON_ERR);
115 is($dst, $af, "WARN_ON_ERR ascii");
121 $dst = $utf8->decode($src, WARN_ON_ERR);
122 is($dst, $uf, "WARN_ON_ERR utf8");
128 $dst = $ascii->encode($src, FB_PERLQQ);
129 is($dst, $ap, "FB_PERLQQ encode");
133 $dst = $ascii->decode($src, FB_PERLQQ);
134 is($dst, $up, "FB_PERLQQ decode");
138 $dst = $ascii->encode($src, FB_HTMLCREF);
139 is($dst, $ah, "FB_HTMLCREF encode");
143 $dst = $ascii->decode($src, FB_HTMLCREF);
144 is($dst, $uh, "FB_HTMLCREF decode");
148 $dst = $ascii->encode($src, FB_XMLCREF);
149 is($dst, $ax, "FB_XMLCREF encode");
153 $dst = $ascii->decode($src, FB_XMLCREF);
154 is($dst, $ux, "FB_XMLCREF decode");
158 $dst = $ascii->encode($src, sub{ sprintf "<U+%04X>", shift });
159 is($dst, $ac, "coderef encode");
163 $dst = $ascii->decode($src, sub{ sprintf "[%02X]", shift });
164 is($dst, $uc, "coderef decode");