use Test::More qw(no_plan);
use Text::vFile::Base;
my $vfile=Text::vFile::Base->loader( source_file => "t/03_multi.dat" );
use Data::Dumper;
$Data::Dumper::Indent=1;
my $count=0;
while (my $card = $vfile->next) {
$count++;
ok ( exists $card->{'ADR'}, "ADR loaded");
is ( scalar( @{$card->{'ADR'}}), 3, "3 addresses loaded");
ok ( exists $card->{'PHOTO'}, "PHOTO loaded");
ok ( exists $card->{'VERSION'}, "VERSION loaded");
}
is ( $count, 6, "Six loaded");