view release on metacpan or  search on metacpan

t/Fixer/fixpoint.t  view on Meta::CPAN

use lib                       qw( lib t/lib );
use FakePolicy                ();
use Perl::Critic::PJCJ::Fixer ();
use Perl::Critic::Policy::ValuesAndExpressions::RequireConsistentQuoting qw(
  desc_double
  desc_single
);

my $Fixer = Perl::Critic::PJCJ::Fixer->new;

subtest "Fixes cascade to a fixed point" => sub {
  is $Fixer->fix(q(my $x = "don\'t say \"hi\"";)),
    q[my $x = q(don't say "hi");],
    "double quotes converge to q() via single quotes";
};

subtest "Line ranges restrict fixes" => sub {
  my $in = qq(my \$a = 'one';\nmy \$b = 'two';\n);
  is $Fixer->fix($in, lines => [2, 2]),
    qq(my \$a = 'one';\nmy \$b = "two";\n), "only the requested line is fixed";
  is $Fixer->fix($in, lines => [1, 1]),