1 |
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
2 |
|
|
3 |
use Test::More tests => 132; |
use Test::More tests => 140; |
4 |
use Test::Exception; |
use Test::Exception; |
5 |
use Cwd qw/abs_path/; |
use Cwd qw/abs_path/; |
6 |
use blib; |
use blib; |
248 |
'Tag_s1' => { 'isis' => [ |
'Tag_s1' => { 'isis' => [ |
249 |
{ content => 'v900^a = v900^c' }, |
{ content => 'v900^a = v900^c' }, |
250 |
] }, |
] }, |
251 |
'Tag_s2' => { 'isis' => [ |
'Tag_noval' => { 'isis' => [ |
252 |
{ content => 's900^a s900^b s900^c s900^x' }, |
{ content => 'v911^1' }, |
253 |
|
{ content => 'v900^c' }, |
254 |
] }, |
] }, |
255 |
}; |
}; |
256 |
|
|
259 |
parse_test_arr($import, 'Tag_c', $rec, [ '','','c1','c2' ] ); |
parse_test_arr($import, 'Tag_c', $rec, [ '','','c1','c2' ] ); |
260 |
parse_test_arr($import, 'Tag_x', $rec, [ 'b1','a1_b2','b3_c1','a2_b4_c2' ] ); |
parse_test_arr($import, 'Tag_x', $rec, [ 'b1','a1_b2','b3_c1','a2_b4_c2' ] ); |
261 |
parse_test_arr($import, 'Tag_s1', $rec, [ '', 'a1', 'c1', 'a2 = c2' ] ); |
parse_test_arr($import, 'Tag_s1', $rec, [ '', 'a1', 'c1', 'a2 = c2' ] ); |
262 |
|
parse_test_arr($import, 'Tag_noval', $rec, [ '','','c1','c2' ] ); |
263 |
|
|