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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
# -*- cperl -*-
use ExtUtils::testlib;
use Test::More ;
use Test::Memory::Cycle;
use Config::Model;
use Config::Model::Annotation;
use Config::Model::Tester::Setup qw/init_test setup_test_dir/;
use File::Path;
use Data::Dumper;
use 5.10.0;
use warnings;
no warnings qw(once);
use strict;
use lib 't/lib';
my ($model, $trace) = init_test();
my $wr_root = setup_test_dir();
my $inst = $model->instance(
root_class_name => 'Master',
root_dir => $wr_root,
instance_name => 'test1'
);
ok( $inst, "created dummy instance" );
my $root = $inst->config_root;
ok( $root, "Config root created" );
# use Tk::ObjScanner; Tk::ObjScanner::scan_object($model) ;
my $step =
'std_id:ab X=Bv - std_id:bc X=Av - a_string="toto tata" '
. 'lista=a,b,c,d olist:0 X=Av - olist:1#olist1_comment X=Bv - listb=b,c,d '
. '! hash_a:X2=x hash_a:Y2=xy hash_a:toto#"index comment"
hash_b:X3=xy my_check_list=X2,X3';
ok( $root->load( step => $step ), "set up data in tree with '$step'" );
$inst->clear_changes;
my @annotate = map
{ [ $_ => "$_ annotation" ] }
(
'std_id', 'std_id', # test that 2 saves of same value is tracked once
'std_id:bc X', 'my_check_list',
'olist:0',
'olist:2', # this element is created, so 2 notifs are generated for this
);
my %expect = ( 'hash_a:toto' => "index comment", 'olist:1' => 'olist1_comment' );
foreach (@annotate) {
my ( $l, $a ) = @$_;
$expect{$l} = $a;
$root->grab($l)->annotation($a);
ok( 1, "set annotation of $l" );
}
say "pending changes:\n".$inst->list_changes if $trace;
is( $inst->needs_save, 5, "verify instance needs_save status after storing only annotations" );
$inst->clear_changes;
is( $root->grab("std_id:ab X")->annotation('to delete'), 'to delete', "test clear annotation" );
is( $root->grab("std_id:ab X")->clear_annotation, '', "test clear annotation" );
say "pending changes:\n".$inst->list_changes if $trace;
is( $inst->needs_save, 2, "verify instance needs_save status after store/delete annotations" );
$inst->clear_changes;
my $annotate_saver = Config::Model::Annotation->new(
config_class_name => 'Master',
instance => $inst,
root_dir => $wr_root,
);
ok( $annotate_saver, "created annotation read/write object" );
my $test_dir = $annotate_saver->dir;
is( $test_dir, $wr_root.'/config-model', "check saved dir" );
my $test_file = $annotate_saver->file;
is( $test_file, $wr_root.'/config-model/Master-note.pl', "check saved file" );
my $h_ref = $annotate_saver->get_annotation_hash();
print Dumper ($h_ref) if $trace;
is_deeply( $h_ref, \%expect, "check annotation data" );
$annotate_saver->save;
ok( -e $test_file, "check annotation file exists" );
my $inst2 = $model->instance(
root_class_name => 'Master',
root_dir => $wr_root,
instance_name => 'test2'
);
my $root2 = $inst2->config_root;
my $saver2 = Config::Model::Annotation->new(
config_class_name => 'Master',
instance => $inst2,
root_dir => $wr_root,
);
$saver2->load;
my $h2_ref = $saver2->get_annotation_hash();
#use Data::Dumper ; print Dumper ( $h_ref ) ;
print Dumper ($h2_ref) if $trace;
my %expect2 = %expect;
# delete annotations loaded on missing elements
delete $expect2{'std_id:bc X'};
delete $expect2{'hash_a:toto'};
delete $expect2{'olist:0'};
delete $expect2{'olist:1'};
delete $expect2{'olist:2'};
is_deeply( $h2_ref, \%expect2, "check loaded annotation data with empty tree" );
$root2->load( step => $step );
$saver2->load;
my %expect3 = %expect;
# delete annotations loaded on missing elements
delete $expect3{'olist:2'};
my $h3_ref = $saver2->get_annotation_hash();
print Dumper ($h3_ref) if $trace;
is_deeply( $h3_ref, \%expect3, "check loaded annotation data with non-empty tree" );
memory_cycle_ok($model, "memory cycles");
done_testing;
|
