t/testwide.t

   1 use strict;
   2 use utf8;
   3 use Test;
   4 use Carp;
   5 use FindBin;
   6 BEGIN {unshift @INC, "./"}
   7 BEGIN {plan tests => 2}
   8 use Perl::Tidy;
   9
  10
  11 my $source = <<'EOM';
  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");
  16 EOM
  17
  18 my $expected_output=<<'EOM';
  19 %pangrams = (
  20              "Plain",                                                  "ASCII",
  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"
  24             );
  25 EOM
  26
  27 my $perltidyrc = <<'EOM';
  28 -gnu -enc=utf8
  29 EOM
  30
  31 my $output;
  32
  33 Perl::Tidy::perltidy(
  34     source      => \$source,
  35     destination => \$output,
  36     perltidyrc  => \$perltidyrc,
  37     argv        => '-nsyn',
  38 );
  39
  40 ok($output, $expected_output);
  41
  42 Perl::Tidy::perltidy(
  43     source      => $FindBin::Bin . '/testwide.pl.src',
  44     destination => \$output,
  45     perltidyrc  => \$perltidyrc,
  46     argv        => '-nsyn',
  47 );
  48
  49 ok($output, $expected_output);
  50