1 |
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
2 |
|
|
3 |
use Test::More tests => 74; |
use Test::More tests => 76; |
4 |
use Test::Exception; |
use Test::Exception; |
5 |
use Cwd qw/abs_path/; |
use Cwd qw/abs_path/; |
6 |
use blib; |
use blib; |
142 |
|
|
143 |
#diag Dumper($rec, $ds); |
#diag Dumper($rec, $ds); |
144 |
|
|
145 |
|
# fake load of our test normalisation data |
146 |
|
$n->{tag} = 'isis'; |
147 |
|
|
148 |
|
#diag Dumper($n->{import_xml}->{indexer}); |
149 |
|
|
150 |
|
|
151 |
|
$rec = { |
152 |
|
'900' => [ |
153 |
|
{ |
154 |
|
'a' => '1', |
155 |
|
'b' => '2', |
156 |
|
'c' => '3', |
157 |
|
} |
158 |
|
], |
159 |
|
}; |
160 |
|
|
161 |
|
my $import = { |
162 |
|
'Tag' => { 'isis' => [ |
163 |
|
{ content => 'v900^a + v900^b = v900^c' }, |
164 |
|
] }, |
165 |
|
}; |
166 |
|
|
167 |
|
sub parse_test($$$) { |
168 |
|
my ($import,$rec,$r) = @_; |
169 |
|
$n->{import_xml}->{indexer} = $import; |
170 |
|
# erase internal cache (yak!) |
171 |
|
delete($n->{tags_by_order}); |
172 |
|
push @{$rec->{'000'}}, 42; |
173 |
|
diag "test normalisation of: ",Dumper($n->{import_xml}->{indexer}, $rec); |
174 |
|
ok(my $ds = $n->data_structure( $rec ), "data_structure"); |
175 |
|
diag Dumper($ds); |
176 |
|
cmp_ok($ds->{Tag}->{display}->[0], 'eq', $r, "parse $r"); |
177 |
|
} |
178 |
|
|
179 |
|
parse_test($import, $rec, '1 + 2 = 3'); |