view release on metacpan or  search on metacpan

t/02_attribute.t  view on Meta::CPAN

use Test::Most 0.22 (tests => 7);
use Test::NoWarnings;

use App::Config::Chronicle::Attribute;
use Data::Hash::DotNotation;

throws_ok {
    App::Config::Chronicle::Attribute->new(
        name        => 'test',
        parent_path => 'apperturescience'
    );
}
qr/Attribute \(data_set\) is required/;

throws_ok {
    App::Config::Chronicle::Attribute->new(
        name        => 'test_attribute',
        parent_path => 'test.parent',
        data_set    => {version => 1},
        definition  => {
            isa     => 'ArrayRef',
            default => 'x',
        },
    )->build;
}
qr/ArrayRef/;

throws_ok {
    App::Config::Chronicle::Attribute->new(
        name        => 'json_string',
        parent_path => 'validation.tests',
        data_set    => {version => 1},
        definition  => {
            isa     => 'json_string',
            default => 'x',
        },
    )->build;
}
qr/JSON/;

subtest 'get' => sub {
    subtest 'default' => sub {
        my $attribute = App::Config::Chronicle::Attribute->new(
            name        => 'get',
            parent_path => 'tests',
            data_set    => {version => 1},
            definition  => {
                isa     => 'Str',
                default => 'a',
            },
        )->build;

        ok $attribute, "Attribute created";
        is $attribute->path,    'tests.get';
        is $attribute->value,   'a', 'Got from default';
        is $attribute->version, 1,   'Version set to data_set version';
    };

    subtest 'from app_config' => sub {
        my $data       = {tests => {get => 'b'}};
        my $app_config = Data::Hash::DotNotation->new(data => $data);

        my $attribute = App::Config::Chronicle::Attribute->new(
            name        => 'get',
            parent_path => 'tests',
            data_set    => {
                version    => 1,
                app_config => $app_config
            },
            definition => {
                isa     => 'Str',
                default => 'a'
            },
        )->build;

        ok $attribute,           "Attribute created";
        ok !$attribute->version, 'Version not yet set';
        is $attribute->path,    'tests.get';
        is $attribute->value,   'b', 'Got from app_config';
        is $attribute->version, 1,   'Version set to data_set version';
    };
};

subtest 'set' => sub {
    subtest 'set after access' => sub {
        my $data       = {tests => {get => 'b'}};
        my $app_config = Data::Hash::DotNotation->new(data => $data);

t/02_attribute.t  view on Meta::CPAN

        my $attribute = App::Config::Chronicle::Attribute->new(
            name        => 'get',
            parent_path => 'tests',
            data_set    => {
                version    => 1,
                app_config => $app_config,
            },
            definition => {
                isa     => 'Str',
                default => 'a'
            },
        )->build;

        ok $attribute, "Attribute created";
        is $attribute->path, 'tests.get';
        is $attribute->value, 'b', 'Got b';

        $attribute->value('d');
        is $attribute->value,   'd', 'Got d';
        is $attribute->version, 1,   'Updates current version of the build to set value';
    };

    subtest 'set before access' => sub {
        my $data       = {tests => {get => 'b'}};
        my $app_config = Data::Hash::DotNotation->new(data => $data);

        my $data_set = {
            version    => 1,
            app_config => $app_config
        };
        my $attribute = App::Config::Chronicle::Attribute->new(
            name        => 'get',
            parent_path => 'tests',
            data_set    => {
                version    => 1,
                app_config => $app_config,
            },
            definition => {
                isa     => 'Str',
                default => 'a'
            },
        )->build;

        $attribute->value('d');
        is $attribute->value,   'd', 'Got d';
        is $attribute->version, 1,   'Updates current version of the build to set value';
    };
};

subtest 'set validation' => sub {
    my $attribute = App::Config::Chronicle::Attribute->new(
        name        => 'array',
        parent_path => 'valudations.test',
        data_set    => {version => 1},
        definition  => {
            isa     => 'ArrayRef',
            default => ['1', '2', '3'],
        },
    )->build;

    throws_ok { $attribute->value('a'); } qr/ArrayRef/;
};