6 BEGIN {unshift @INC, "./"}
7 BEGIN {plan tests => 2}
12 %pangrams=("Plain","ASCII",
13 "Zwölf große Boxkämpfer jagen Vik quer über den Sylter.","DE",
14 "Jeż wlókł gęś. Uf! Bądź choć przy nim, stań!","PL",
15 "Любя, съешь щипцы, — вздохнёт мэр, — кайф жгуч.","RU");
18 my $expected_output=<<'EOM';
21 "Zwölf große Boxkämpfer jagen Vik quer über den Sylter.", "DE",
22 "Jeż wlókł gęś. Uf! Bądź choć przy nim, stań!", "PL",
23 "Любя, съешь щипцы, — вздохнёт мэр, — кайф жгуч.", "RU"
27 my $perltidyrc = <<'EOM';
35 destination => \$output,
36 perltidyrc => \$perltidyrc,
40 ok($output, $expected_output);
43 source => $FindBin::Bin . '/testwide.pl.src',
44 destination => \$output,
45 perltidyrc => \$perltidyrc,
49 ok($output, $expected_output);