view release on metacpan or  search on metacpan

t/PerlySense-Editor-Emacs-item-in-groups.t  view on Meta::CPAN

#!/usr/bin/perl -w
use strict;

use Test::More tests => 17;
use Test::Exception;
use Test::Differences;

use Data::Dumper;


use lib "../lib";

use_ok("Devel::PerlySense");
use_ok("Devel::PerlySense::Class");
use_ok("Devel::PerlySense::Editor::Emacs");


BEGIN { -d "t" and chdir("t"); }



ok(my $oPerlySense = Devel::PerlySense->new(), "Created PerlySense object ok");
ok(
    my $oEditor = Devel::PerlySense::Editor::Emacs->new(
        oPerlySense => $oPerlySense,
        widthDisplay => undef,
    ),
    "Created Editor ok",
);


my $raItem;


$raItem = [];
eq_or_diff(
    $oEditor->raItemInNGroups($raItem, 1),
    [ ],
    "No items, one group",
);
eq_or_diff(
    $oEditor->raItemInNGroups($raItem, 2),
    [ ],
    "No items, two groups",
);



$raItem = [qw/ a /];
eq_or_diff(
    $oEditor->raItemInNGroups($raItem, 1),
    [ ["a"] ],
    "One item, one group",
);
eq_or_diff(
    $oEditor->raItemInNGroups($raItem, 2),
    [ ["a"] ],
    "One item, two groups",
);
eq_or_diff(
    $oEditor->raItemInNGroups($raItem, 3),
    [ ["a"] ],
    "One item, three groups",
);