view release on metacpan or  search on metacpan

t/search_in_tree.t  view on Meta::CPAN

# -*- cperl -*-

use ExtUtils::testlib;
use Test::More;
use Test::Differences;
use Test::Memory::Cycle;
use Config::Model;
use Config::Model::Tester::Setup qw/init_test/;

use warnings;
use strict;
use lib "t/lib";

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

ok( 1, "compiled" );

my $inst = $model->instance(
    root_class_name => 'Master',
    instance_name   => 'test1'
);
ok( $inst, "created dummy instance" );

my $root = $inst->config_root;

my $step =
      'std_id:ab X=Bv - std_id:bc X=Av - a_string="toto tata" '
    . 'hash_a:X2=x hash_a:Y2=xy  hash_b:X3=xy my_check_list=X2,X3 '
    . 'olist:0 DX=Dv';
ok( $root->load( step => $step ), "set up data in tree with '$step'" );

my @tests = (
    [qw/value toto a_string/],
    [qw/value tot a_string/],
    [qw/key ab std_id:ab/],
    [qw/value xy hash_a:Y2 hash_b:X3/],
    [ qw/description zorro/, 'warp sub_slave sub_slave Z','warp warp2 sub_slave Z',
      'slave_y sub_slave sub_slave Z', 'slave_y warp2 sub_slave Z' ],
    [ qw/value Bv/,          'std_id:ab X' ],
    [ qw/value B/,           'std_id:ab X' ],
    [ qw/value Dv/, 'std_id:ab DX', 'std_id:bc DX', 'olist:0 DX' ],
    [ qw/value X3/, 'my_check_list' ],
);

foreach my $ref (@tests) {
    my ( $type, $string, @expected ) = @$ref;
    my $searcher = $root->tree_searcher( type => $type );
    my @res = $searcher->search($string);
    eq_or_diff( \@res, \@expected, "searched for $type $string" );
    print "\treturned '", join( "', '", @res ), "'\n" if $trace;
}
memory_cycle_ok($model, "memory cycle");

done_testing;