view release on metacpan or  search on metacpan

t/document/get_data.t  view on Meta::CPAN

package MyModel::MyType;
use Moose;
use ElasticSearchX::Model::Document;
use MooseX::Types::Common::String qw(:all);

has name => (
    is     => 'ro',
    index  => 'analyzed',
    isa    => LowerCaseSimpleStr,
    coerce => 1
);

MyModel::MyType->meta->make_immutable;

package MyModel::MyClass;
use Moose;
use ElasticSearchX::Model::Document;
use ElasticSearchX::Model::Document::Types qw(:all);
use MooseX::Types::Moose qw(:all);

has module => ( is => 'ro', isa => ArrayRef [ Type ['MyType'] ] );
has hash => ( is => 'ro', isa => 'HashRef' );
has hash_dynamic => ( is => 'ro', isa         => 'HashRef', dynamic => 1 );
has author       => ( is => 'ro' );
has extra        => ( is => 'ro', source_only => 1,         dynamic => 1 );
has [qw(bool1 bool2)] => ( is => 'ro', isa => 'Bool' );
has array => ( is => 'ro', isa => 'ArrayRef[Num]', dynamic => 1 );

MyModel::MyClass->meta->make_immutable;

package MyModel;
use Moose;
use ElasticSearchX::Model;

index static  => ( dynamic => 0 );
index dynamic => ( dynamic => 1 );

MyModel->meta->make_immutable;

package main;
use Test::More;
use strict;
use warnings;

my $model = MyModel->new;

{
    my $meta = MyModel::MyClass->meta;
    my $obj  = MyModel::MyClass->new(
        module => [ MyModel::MyType->new( name => 'foo' ) ],
        author => 'me',
    );
    my $attr = $meta->get_attribute('module');
    ok( $attr->has_deflator,        'module has deflator' );
    ok( $attr->has_type_constraint, 'module has tc' );
    ok( $attr->is_inflated($obj),   'module is inflated' );
    is_deeply(
        $meta->get_data($obj),
        { author => 'me', module => [ { name => 'foo' } ] },
        'deflated ok'
    );
}

{
    my $doc = MyModel::MyClass->new(
        hash         => { foo => 'bar' },
        hash_dynamic => { foo => 'bar' },
        index        => $model->index('static')
    );

    is(
        MyModel::MyClass->meta->get_attribute('hash')->deflate($doc),
        '{"foo":"bar"}',
        'static attr deflates to json'
    );
    is_deeply(
        MyModel::MyClass->meta->get_attribute('hash_dynamic')->deflate($doc),
        { foo => 'bar' },
        'dynamic attr doesn\'t deflate'
    );

}

{

    my $doc = MyModel::MyClass->new(
        author       => undef,