view release on metacpan or  search on metacpan

t/CmdRenameVariable.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use Test::More;
use Test::Differences;

use lib 't/lib';
use AETest;

{
    my $return = AETest->test( [qw{renamevariable -l 5 -c 9 -r shiny}], <<'CODE' );
use MooseX::Declare;
class Test {
    method some_method {
        my $x_var = 1;
        $x_var += 1;
        my %hash;
        for my $i (1..5) {
            $hash{$i} = $x_var;
        }
    }
}
CODE
    like( $return->stdout, qr/shiny/, 'RenameVariable' );
    is( $return->error, undef, '... no error' );
}

done_testing;