#!/usr/bin/perl -w
use strict;
use Test::More tests => 12;
use Test::Exception;
use Test::Differences;
use Data::Dumper;
use lib "lib";
use_ok("Devel::PerlySense");
use_ok("Devel::PerlySense::Editor::Vim");
ok(my $oPerlySense = Devel::PerlySense->new(), "Created PerlySense object ok");
ok(
my $oEditor = Devel::PerlySense::Editor::Vim->new(
oPerlySense => $oPerlySense,
widthDisplay => 10,
),
"Created Editor ok",
);
my %identifier_input_output = (
"a" => "a",
"a_b" => "a_b",
"c-d" => "c-d",
"c*d" => "c*d",
"c d" => "c d",
);
for my $input (sort keys %identifier_input_output) {
my $output = $identifier_input_output{$input};
is($oEditor->renameIdentifier($input), $output, "Identifier ($input) -> ($output)");
}
note("Vim data structure");
is(
$oEditor->formatOutputDataStructure(
rhData => {
hej => "Baberiba",
2 => "two",
},
),
qq|{"2": "two", "hej": "Baberiba"}|,
"Simple structure ok",
);
is(
$oEditor->formatOutputDataStructure(
rhData => {
hej => [ "Ba", "beriba" ],
2 => "two",
},
),
qq|{"2": "two", "hej": ["Ba", "beriba"]}|,
"Array ref ok",
);
is(
$oEditor->formatOutputDataStructure(
rhData => {
hej => { "Ba" => "beriba", Hej => "Baberiba" },
2 => "two",
},
),
qq|{"2": "two", "hej": {"Ba": "beriba", "Hej": "Baberiba"}}|,
"Array ref ok",
);
__END__