view release on metacpan or  search on metacpan

t/model.t  view on Meta::CPAN

# -*- cperl -*-

use ExtUtils::testlib;
use Test::More;
use Test::Exception;
use Test::Warn 0.11;
use Test::Differences;
use Test::Memory::Cycle;
use Config::Model;
use Config::Model::Lister;
use Config::Model::Tester::Setup qw/init_test/;
use Data::Dumper;
use Log::Log4perl qw(:easy :levels);

use strict;
use warnings;

my ($model, $trace) = init_test();

my ( $cat, $models ) = Config::Model::Lister::available_models(1);

eq_or_diff( $cat->{system}, [qw/fstab popcon/], "check available system models" );
is( $models->{popcon}{model}, 'PopCon', "check available popcon" );

my $class_name = $model->create_config_class(
    name       => 'Sarge',
    status      => [ D => 'deprecated' ],                 #could be obsolete, standard
    description => [ X => 'X-ray (long description)' ],
    summary     => [ X => 'X-ray (summary)' ],

    element => [
        [qw/D X Y Z/] => {
            type       => 'leaf',
            class      => 'Config::Model::Value',
            value_type => 'enum',
            choice     => [qw/Av Bv Cv/] }
    ],
);

is( $class_name, 'Sarge', "check $class_name class name" );
my $canonical_model = $model->get_model_clone($class_name);
print "$class_name model:\n", Dumper($canonical_model) if $trace;

eq_or_diff(
    $model->get_element_model( $class_name, 'D' ),
    {
        'value_type' => 'enum',
        'status'     => 'deprecated',
        'type'       => 'leaf',
        'class'      => 'Config::Model::Value',
        'choice'     => [ 'Av', 'Bv', 'Cv' ]
    },
    "check $class_name D element model"
);

eq_or_diff(
    $model->get_element_model( $class_name, 'X' ),
    {
        'value_type'  => 'enum',
        'summary'     => 'X-ray (summary)',
        'type'        => 'leaf',
        'class'       => 'Config::Model::Value',
        'choice'      => [ 'Av', 'Bv', 'Cv' ],
        'description' => 'X-ray (long description)'
    },
    "check $class_name X element model"
);