1 |
|
use Test::More tests => 64;
|
|
1 |
use Test::More tests => 71;
|
2 |
2 |
|
3 |
3 |
use lib 't';
|
4 |
4 |
use utf8;
|
... | ... | |
549 |
549 |
);
|
550 |
550 |
ok !$csv->_check_multiplexed, 'multiplex check detects empty header';
|
551 |
551 |
|
|
552 |
#####
|
|
553 |
|
|
554 |
$csv = SL::Helper::Csv->new(
|
|
555 |
file => \"Datatype;Description\nDatatype;Name\nP;Kaffee\nC;Meier", # " # make emacs happy
|
|
556 |
case_insensitive_header => 1,
|
|
557 |
ignore_unknown_columns => 1,
|
|
558 |
profile => [
|
|
559 |
{
|
|
560 |
profile => { datatype => 'datatype', description => 'description' },
|
|
561 |
class => 'SL::DB::Part',
|
|
562 |
row_ident => 'P'
|
|
563 |
},
|
|
564 |
{
|
|
565 |
profile => { datatype => 'datatype', name => 'name' },
|
|
566 |
class => 'SL::DB::Customer',
|
|
567 |
row_ident => 'C'
|
|
568 |
}
|
|
569 |
],
|
|
570 |
);
|
|
571 |
$csv->parse;
|
|
572 |
is_deeply $csv->get_data, [ { datatype => 'P', description => 'Kaffee' },
|
|
573 |
{ datatype => 'C', name => 'Meier'} ],
|
|
574 |
'multiplex: case insensitive header from csv works';
|
|
575 |
|
|
576 |
#####
|
|
577 |
|
|
578 |
$csv = SL::Helper::Csv->new(
|
|
579 |
file => \"P;Kaffee\nC;Meier", # " # make emacs happy
|
|
580 |
header => [[ 'Datatype', 'Description' ], [ 'Datatype', 'Name']],
|
|
581 |
case_insensitive_header => 1,
|
|
582 |
profile => [
|
|
583 |
{
|
|
584 |
profile => { datatype => 'datatype', description => 'description' },
|
|
585 |
class => 'SL::DB::Part',
|
|
586 |
row_ident => 'P'
|
|
587 |
},
|
|
588 |
{
|
|
589 |
profile => { datatype => 'datatype', name => 'name' },
|
|
590 |
class => 'SL::DB::Customer',
|
|
591 |
row_ident => 'C'
|
|
592 |
}
|
|
593 |
],
|
|
594 |
);
|
|
595 |
$csv->parse;
|
|
596 |
is_deeply $csv->get_data, [ { datatype => 'P', description => 'Kaffee' },
|
|
597 |
{ datatype => 'C', name => 'Meier' } ],
|
|
598 |
'multiplex: case insensitive header as param works';
|
|
599 |
|
|
600 |
|
|
601 |
#####
|
|
602 |
|
|
603 |
$csv = SL::Helper::Csv->new(
|
|
604 |
file => \"P;Kaffee\nC;Meier", # " # make emacs happy
|
|
605 |
header => [[ 'Datatype', 'Description' ], [ 'Datatype', 'Name']],
|
|
606 |
profile => [
|
|
607 |
{
|
|
608 |
profile => { datatype => 'datatype', description => 'description' },
|
|
609 |
class => 'SL::DB::Part',
|
|
610 |
row_ident => 'P'
|
|
611 |
},
|
|
612 |
{
|
|
613 |
profile => { datatype => 'datatype', name => 'name' },
|
|
614 |
class => 'SL::DB::Customer',
|
|
615 |
row_ident => 'C'
|
|
616 |
}
|
|
617 |
],
|
|
618 |
);
|
|
619 |
$csv->parse;
|
|
620 |
is_deeply $csv->get_data, undef, 'multiplex: case insensitive header without flag ignores';
|
|
621 |
|
|
622 |
#####
|
|
623 |
|
|
624 |
$csv = SL::Helper::Csv->new(
|
|
625 |
file => \<<EOL,
|
|
626 |
P;Kaffee;lecker
|
|
627 |
C;Meier;froh
|
|
628 |
EOL
|
|
629 |
# " # make emacs happy
|
|
630 |
header => [[ 'datatype', 'Afoo', 'Abar' ], [ 'datatype', 'Bfoo', 'Bbar']],
|
|
631 |
profile => [{
|
|
632 |
profile => { datatype => '', Afoo => '', Abar => '' },
|
|
633 |
class => 'SL::DB::Part',
|
|
634 |
row_ident => 'P'
|
|
635 |
},
|
|
636 |
{
|
|
637 |
profile => { datatype => '', Bfoo => '', Bbar => '' },
|
|
638 |
class => 'SL::DB::Customer',
|
|
639 |
row_ident => 'C'
|
|
640 |
}],
|
|
641 |
);
|
|
642 |
$csv->parse;
|
|
643 |
|
|
644 |
is_deeply $csv->get_data,
|
|
645 |
[ { datatype => 'P', Afoo => 'Kaffee', Abar => 'lecker' }, { datatype => 'C', Bfoo => 'Meier', Bbar => 'froh' } ],
|
|
646 |
'multiplex: empty path still gets parsed into data';
|
|
647 |
ok $csv->get_objects->[0], 'multiplex: empty path gets ignored in object creation';
|
|
648 |
|
|
649 |
#####
|
|
650 |
|
|
651 |
$csv = SL::Helper::Csv->new(
|
|
652 |
file => \<<EOL,
|
|
653 |
P;Kaffee;lecker
|
|
654 |
C;Meier;froh
|
|
655 |
EOL
|
|
656 |
# " # make emacs happy
|
|
657 |
header => [[ 'datatype', 'Afoo', 'Abar' ], [ 'datatype', 'Bfoo', 'Bbar']],
|
|
658 |
strict_profile => 1,
|
|
659 |
profile => [{
|
|
660 |
profile => { datatype => '', Afoo => '', Abar => '' },
|
|
661 |
class => 'SL::DB::Part',
|
|
662 |
row_ident => 'P'
|
|
663 |
},
|
|
664 |
{
|
|
665 |
profile => { datatype => '', Bfoo => '', Bbar => '' },
|
|
666 |
class => 'SL::DB::Customer',
|
|
667 |
row_ident => 'C'
|
|
668 |
}],
|
|
669 |
);
|
|
670 |
$csv->parse;
|
|
671 |
|
|
672 |
is_deeply $csv->get_data,
|
|
673 |
[ { datatype => 'P', Afoo => 'Kaffee', Abar => 'lecker' }, { datatype => 'C', Bfoo => 'Meier', Bbar => 'froh' } ],
|
|
674 |
'multiplex: empty path still gets parsed into data (strict profile)';
|
|
675 |
ok $csv->get_objects->[0], 'multiplex: empty path gets ignored in object creation (strict profile)';
|
|
676 |
|
|
677 |
#####
|
|
678 |
|
552 |
679 |
|
553 |
680 |
# vim: ft=perl
|
554 |
681 |
# set emacs to perl mode
|
case_insensitive-Flag für Multiplex-Daten anpassen.