1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
# -*- 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;
|
