biber-2.1/t/encoding.t

11 use Biber;
12 use Biber::Utils;
13 use Biber::Output::test;
19 # Set up Biber object
20 my $biber = Biber->new(noconf => 1);
33 Biber::Config->setoption('fastsort', 1);
34 Biber::Config->setoption('sortlocale', 'C');
174 $biber->set_output_obj(Biber::Output::test->new());
175 # Biber options
176 Biber::Config->setoption('input_encoding', 'latin9');
177 Biber::Config->setoption('output_encoding', 'UTF-8');
185 eq_or_diff($outvar, encode(Biber::Config->getoption('output_encoding'), $encode1), 'latin9 .bib -> …
189 $biber->set_output_obj(Biber::Output::test->new());
190 # Biber options
191 Biber::Config->setoption('input_encoding', 'UTF-8');
192 Biber::Config->setoption('output_encoding', 'UTF-8');
200 eq_or_diff($outvar, encode(Biber::Config->getoption('output_encoding'), $encode1), 'UTF-8 .bib -> U…
204 $biber->set_output_obj(Biber::Output::test->new());
205 # Biber options
206 Biber::Config->setoption('input_encoding', 'UTF-8');
207 Biber::Config->setoption('output_encoding', 'latin1');
215 eq_or_diff($outvar, encode(Biber::Config->getoption('output_encoding'), $encode5), 'UTF-8 .bib -> l…
219 $biber->set_output_obj(Biber::Output::test->new());
220 # Biber options
221 Biber::Config->setoption('input_encoding', 'UTF-8');
222 Biber::Config->setoption('output_encoding', 'UTF-8');
223 Biber::Config->setoption('output_safechars', 1);
231 eq_or_diff($outvar, encode(Biber::Config->getoption('output_encoding'), $encode6), 'UTF-8 .bib -> U…
235 $biber->set_output_obj(Biber::Output::test->new());
236 # Biber options
237 Biber::Config->setoption('input_encoding', 'UTF-8');
238 Biber::Config->setoption('output_encoding', 'UTF-8');
239 Biber::Config->setoption('output_safechars', 1);
240 Biber::LaTeX::Recode->init_sets('full', 'full'); # Need to do this to reset
248 eq_or_diff($outvar, encode(Biber::Config->getoption('output_encoding'), $encode7), 'UTF-8 .bib -> U…
252 $biber->set_output_obj(Biber::Output::test->new());
253 # Biber options
254 Biber::Config->setoption('output_safechars', 0);
255 Biber::Config->setoption('input_encoding', 'UTF-8');
256 Biber::Config->setoption('output_encoding', 'latin9');
264 eq_or_diff($outvar, encode(Biber::Config->getoption('output_encoding'), $encode1), 'UTF-8 .bib -> l…
268 $biber->set_output_obj(Biber::Output::test->new());
269 # Biber options
270 Biber::Config->setoption('input_encoding', 'latin1');
271 Biber::Config->setoption('output_encoding', 'cp1252');
279 eq_or_diff($outvar, encode(Biber::Config->getoption('output_encoding'), $encode2), 'latin1 .bib -> …
283 $biber->set_output_obj(Biber::Output::test->new());
284 # Biber options
285 Biber::Config->setoption('input_encoding', 'latin2');
286 Biber::Config->setoption('output_encoding', 'latin3');
294 eq_or_diff($outvar, encode(Biber::Config->getoption('output_encoding'), $encode3), 'latin2 .bib -> …
298 $biber->set_output_obj(Biber::Output::test->new());
299 # Biber options
300 Biber::Config->setoption('input_encoding', 'latin2');
301 Biber::Config->setoption('output_encoding', 'latin1');
313 isnt($outvar, encode(Biber::Config->getoption('output_encoding'), $encode3), 'latin2 .bib -> latin1…
318 $biber->set_output_obj(Biber::Output::test->new());
319 # Biber options
320 Biber::Config->setoption('input_encoding', 'latin1');
321 Biber::Config->setoption('output_encoding', 'applemacce');
329 eq_or_diff($outvar, encode(Biber::Config->getoption('output_encoding'), $encode2), 'latin1 .bib -> …