149 |
|
|
150 |
|
|
151 |
$rec = { |
$rec = { |
152 |
'900' => [ |
'900' => [ { |
153 |
{ |
'a' => '1', |
154 |
'a' => '1', |
'b' => '2', |
155 |
'b' => '2', |
'c' => '3', |
156 |
'c' => '3', |
'txt' => 'yap', |
157 |
} |
} ], |
|
], |
|
158 |
}; |
}; |
159 |
|
|
160 |
my $import = { |
my $import = { |
161 |
'Tag' => { 'isis' => [ |
'Tag' => { 'isis' => [ |
162 |
{ content => 'v900^a + v900^b = v900^c' }, |
{ content => 'v900^a + v900^b = v900^c [txt]' }, |
163 |
] }, |
] }, |
164 |
}; |
}; |
165 |
|
|
168 |
$n->{import_xml}->{indexer} = $import; |
$n->{import_xml}->{indexer} = $import; |
169 |
# erase internal cache (yak!) |
# erase internal cache (yak!) |
170 |
delete($n->{tags_by_order}); |
delete($n->{tags_by_order}); |
171 |
push @{$rec->{'000'}}, 42; |
push @{$rec->{'000'}}, 42 unless ($rec->{'000'}); |
172 |
diag "test normalisation of: ",Dumper($n->{import_xml}->{indexer}, $rec); |
diag "test normalisation of: ",Dumper($n->{import_xml}->{indexer}, $rec); |
173 |
ok(my $ds = $n->data_structure( $rec ), "data_structure"); |
ok(my $ds = $n->data_structure( $rec ), "data_structure"); |
174 |
diag Dumper($ds); |
diag Dumper($ds); |
175 |
cmp_ok($ds->{Tag}->{display}->[0], 'eq', $r, "parse $r"); |
cmp_ok($ds->{Tag}->{display}->[0], 'eq', $r, "parse $r"); |
176 |
} |
} |
177 |
|
|
178 |
parse_test($import, $rec, '1 + 2 = 3'); |
parse_test($import, $rec, '1 + 2 = 3 [yap]'); |
179 |
|
|
180 |
|
delete($rec->{'900'}->[0]->{'b'}); |
181 |
|
parse_test($import, $rec, '1 = 3 [yap]'); |
182 |
|
|
183 |
|
$rec->{'900'}->[0]->{'b'} = 5; |
184 |
|
$rec->{'900'}->[0]->{'c'} = 6; |
185 |
|
parse_test($import, $rec, '1 + 5 = 6 [yap]'); |
186 |
|
|
187 |
|
delete($rec->{'900'}->[0]->{'c'}); |
188 |
|
parse_test($import, $rec, '1 + 5'); |
189 |
|
|
190 |
|
$rec->{'900'}->[0]->{'txt'} = 'nope!'; |
191 |
|
delete($rec->{'900'}->[0]->{'a'}); |
192 |
|
parse_test($import, $rec, '5 [nope!]'); |
193 |
|
|