Lines Matching refs:src
56 my $src = $uo;
57 my $dst = $ascii->encode($src, FB_DEFAULT);
59 is($src, $uo, "FB_DEFAULT residue ascii");
61 $src = $ao;
62 $dst = $utf8->decode($src, FB_DEFAULT);
64 is($src, $ao, "FB_DEFAULT residue utf8");
66 $src = $uo;
67 eval{ $dst = $ascii->encode($src, FB_CROAK) };
69 is($src, $uo, "FB_CROAK residue ascii");
71 $src = $ao;
72 eval{ $dst = $utf8->decode($src, FB_CROAK) };
74 is($src, $ao, "FB_CROAK residue utf8");
76 $src = $nf;
77 eval{ $dst = $ascii->encode($src, FB_CROAK) };
79 is($src, '', "FB_CROAK on success residue ascii");
81 $src = $nf;
82 eval{ $dst = $utf8->decode($src, FB_CROAK) };
84 is($src, '', "FB_CROAK on success residue utf8");
86 $src = $uo;
87 $dst = $ascii->encode($src, FB_QUIET);
89 is($src, $residue, "FB_QUIET residue ascii");
91 $src = $ao;
92 $dst = $utf8->decode($src, FB_QUIET);
94 is($src, $residue, "FB_QUIET residue utf8");
100 $src = $uo;
101 $dst = $ascii->encode($src, FB_WARN);
103 is($src, $residue, "FB_WARN residue ascii");
107 $src = $ao;
108 $dst = $utf8->decode($src, FB_WARN);
110 is($src, $residue, "FB_WARN residue utf8");
114 $src = $uo;
115 $dst = $ascii->encode($src, WARN_ON_ERR);
117 is($src, '', "WARN_ON_ERR residue ascii");
121 $src = $ao;
122 $dst = $utf8->decode($src, WARN_ON_ERR);
124 is($src, '', "WARN_ON_ERR residue utf8");
128 $src = $uo;
129 $dst = $ascii->encode($src, FB_PERLQQ);
131 is($src, $uo, "FB_PERLQQ residue encode");
133 $src = $ao;
134 $dst = $ascii->decode($src, FB_PERLQQ);
136 is($src, $ao, "FB_PERLQQ residue decode");
138 $src = $uo;
139 $dst = $ascii->encode($src, FB_HTMLCREF);
141 is($src, $uo, "FB_HTMLCREF residue encode");
143 $src = $ao;
144 $dst = $ascii->decode($src, FB_HTMLCREF);
146 is($src, $ao, "FB_HTMLCREF residue decode");
148 $src = $uo;
149 $dst = $ascii->encode($src, FB_XMLCREF);
151 is($src, $uo, "FB_XMLCREF residue encode");
153 $src = $ao;
154 $dst = $ascii->decode($src, FB_XMLCREF);
156 is($src, $ao, "FB_XMLCREF residue decode");
158 $src = $uo;
159 $dst = $ascii->encode($src, sub{ sprintf "<U+%04X>", shift });
161 is($src, $uo, "coderef residue encode");
163 $src = $ao;
164 $dst = $ascii->decode($src, sub{ sprintf "[%02X]", shift });
166 is($src, $ao, "coderef residue decode");
168 $src = "\x{3000}";
169 $dst = $ascii->encode($src, sub{ $_[0] });
170 is $dst, 0x3000."", q{$ascii->encode($src, sub{ $_[0] } )};
174 $src = pack "C*", 0xFF;
175 $dst = $ascii->decode($src, sub{ $_[0] });
176 is $dst, 0xFF."", q{$ascii->encode($src, sub{ $_[0] } )};
181 $src = pack "C*", 0x80;
182 $dst = $utf8->decode($src, sub{ $_[0] });
183 is $dst, 0x80."", q{$utf8->encode($src, sub{ $_[0] } )};
184 $dst = decode("utf8", $src, sub{ $_[0] });
187 $src = "\x{3000}";
188 $dst = $latin1->encode($src, sub { "\N{U+FF}" });
189 is $dst, "\x{ff}", q{$latin1->encode($src, sub { "\N{U+FF}" })};
190 $dst = encode("latin1", $src, sub { "\N{U+FF}" });
191 is $dst, "\x{ff}", q{encode("latin1", $src, sub { "\N{U+FF}" })};
193 $src = "\x{3000}";
194 $dst = $latin1->encode($src, sub { utf8::upgrade(my $r = "\x{ff}"); $r });
195 is $dst, "\x{ff}", q{$latin1->encode($src, sub { utf8::upgrade(my $r = "\x{ff}"); $r })};
196 $dst = encode("latin1", $src, sub { utf8::upgrade(my $r = "\x{ff}"); $r });
197 is $dst, "\x{ff}", q{encode("latin1", $src, sub { utf8::upgrade(my $r = "\x{ff}"); $r })};
199 $src = "\x{ff}";
200 $dst = $utf8->decode($src, sub { chr($_[0]) });
201 is $dst, "\x{ff}", q{$utf8->decode($src, sub { chr($_[0]) })};
202 $dst = decode("utf8", $src, sub { chr($_[0]) });
203 is $dst, "\x{ff}", q{decode("utf8", $src, sub { chr($_[0]) })};
207 $src = "\x{ff}";
208 $dst = $utf8->decode($src, sub { utf8::downgrade(my $r = "\N{LATIN SMALL LETTER Y WITH DIAERESIS}"); $r });
209 is $dst, "\N{LATIN SMALL LETTER Y WITH DIAERESIS}", q{$utf8->decode($src, sub { utf8::downgrade(my $r = "\N{LATIN SMALL LETTER Y WITH DIAERESIS}"); $r })};
210 $dst = decode("utf8", $src, sub { utf8::downgrade(my $r = "\N{LATIN SMALL LETTER Y WITH DIAERESIS}"); $r });
211 is $dst, "\N{LATIN SMALL LETTER Y WITH DIAERESIS}", q{decode("utf8", $src, sub { utf8::downgrade(my $r = "\N{LATIN SMALL LETTER Y WITH DIAERESIS}"); $r })};