view release on metacpan or  search on metacpan

t/PerlySense-Plugin-Syntax-Moose-has.t  view on Meta::CPAN

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

use Test::More tests => 6;
use Test::Differences;

use Data::Dumper;

use lib "../lib";

use_ok("Devel::PerlySense");
use_ok("Devel::PerlySense::Document::Meta");
use_ok("Devel::PerlySense::Document::Location");

#use Carp::Always;

my $dirData = "t/data/plugin-moose";
my $oMeta;


my $file = "Has.pm";
note("Checking has in ($file)");

my $fileOrigin = "t/data/plugin-moose/$file";
ok(
    my $oDocument = Devel::PerlySense::Document->new(oPerlySense => Devel::PerlySense->new()),
    "new ok",
);

ok($oDocument->parse(file => $fileOrigin), "Parsed file ok");


$oMeta = $oDocument->oMeta;
# eq_or_diff
is_deeply(
    [ @{$oMeta->raLocationSub} ],
    [
        Devel::PerlySense::Document::Location->new(
            file             => $fileOrigin,
            row              => 12,
            col              => 1,
            rhProperty       => {
                nameSub      => "timeBareword",
                source       => q|has timeBareword => (is => "rw");|,
                namePackage  => "Has",
                oLocationEnd => Devel::PerlySense::Document::Location->new(
                    file => $fileOrigin,
                    row  => 12,
                    col  => 33,
                ),
            },
        ),

        Devel::PerlySense::Document::Location->new(
            file             => $fileOrigin,
            row              => 14,
            col              => 1,
            rhProperty       => {
                nameSub      => "timeQuoted",
                source       => q|has "timeQuoted" => (
    is  => "rw",
    isa => "Int",
);|,
                namePackage  => "Has",
                oLocationEnd => Devel::PerlySense::Document::Location->new(