1 |
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
2 |
|
|
3 |
use Test::More tests => 76; |
use Test::More tests => 84; |
4 |
use Test::Exception; |
use Test::Exception; |
5 |
use Cwd qw/abs_path/; |
use Cwd qw/abs_path/; |
6 |
use blib; |
use blib; |
153 |
'a' => '1', |
'a' => '1', |
154 |
'b' => '2', |
'b' => '2', |
155 |
'c' => '3', |
'c' => '3', |
156 |
'txt' => 'yap', |
'x' => 'yap', |
157 |
} ], |
} ], |
158 |
}; |
}; |
159 |
|
|
160 |
my $import = { |
my $import = { |
161 |
'Tag' => { 'isis' => [ |
'Tag' => { 'isis' => [ |
162 |
{ content => 'v900^a + v900^b = v900^c [txt]' }, |
{ content => 'v900^a + v900^b = v900^c [v900^x]' }, |
163 |
] }, |
] }, |
164 |
}; |
}; |
165 |
|
|
185 |
parse_test($import, $rec, '1 + 5 = 6 [yap]'); |
parse_test($import, $rec, '1 + 5 = 6 [yap]'); |
186 |
|
|
187 |
delete($rec->{'900'}->[0]->{'c'}); |
delete($rec->{'900'}->[0]->{'c'}); |
188 |
parse_test($import, $rec, '1 + 5'); |
$rec->{'900'}->[0]->{'x'} = 'hmmm'; |
189 |
|
parse_test($import, $rec, '1 + 5 [hmmm]'); |
190 |
|
|
191 |
$rec->{'900'}->[0]->{'txt'} = 'nope!'; |
$rec->{'900'}->[0]->{'x'} = 'nope!'; |
192 |
delete($rec->{'900'}->[0]->{'a'}); |
delete($rec->{'900'}->[0]->{'a'}); |
193 |
parse_test($import, $rec, '5 [nope!]'); |
parse_test($import, $rec, '5 [nope!]'); |
194 |
|
|