1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use lib qw(./lib);
use Test::More tests => 13;
local $SIG{__WARN__} = sub { die $_[0] };
# Check we can load module
BEGIN { use_ok('Text::vCard::Addressbook'); }
#####
# load
#####
my $load = Text::vCard::Addressbook->load( ['t/simple.vcf'] );
isa_ok( $load, 'Text::vCard::Addressbook' );
eval { Text::vCard::Addressbook->load( ['i/do/not/exist'] ); };
like( $@, qr/Unable to read file/,
'load() - croak when file does not exist' );
######
# new()
######
# Can we create an empty address book
my $newadbk = Text::vCard::Addressbook->new();
isa_ok( $newadbk, 'Text::vCard::Addressbook' );
eval {
Text::vCard::Addressbook->new( { 'source_file' => 'i/do/not/exist' } );
};
like( $@, qr/Unable to read file/, 'new() - croak when unable to read file' );
eval { Text::vCard::Addressbook::new(undef); };
like(
$@,
qr/Use of uninitialized value/,
'new() - ok error when no proto supplied'
);
my $foo = Text::vCard::Addressbook::new('foo::bar');
is( ref($foo), 'foo::bar', 'new() - Can use as a base class' );
my $hash = Text::vCard::Addressbook::new( { foo => 'bar' } );
is( ref($hash), 'HASH', 'new() - retruns HASH when supplied hash' );
eval {
Text::vCard::Addressbook->new( { 'source_file' => 't/mix_type.vcf' } );
};
like( $@, qr/This file contains FOO/, 'new() - carp on non VCARD format' );
#####
# add_vcard()
#####
# Create a new vCard
my $vcard = $newadbk->add_vcard();
isa_ok( $vcard, 'Text::vCard' );
# Add a node to it
my $address = $vcard->add_node( { 'node_type' => 'ADR', } );
# Add some data to the address.
$address->street('19 The mews');
$address->city('Buffyvill');
#####
# vcards
#####
# Now get it out of the address book
my $card_a = $newadbk->vcards();
is( ref($card_a), 'ARRAY', 'vcards() - returns array ref when in context' );
is( $card_a->[0]->get( { 'node_type' => 'ADR' } )->[0]->street(),
'19 The mews', 'exstracted address ok' ),
my @vcard_list = $newadbk->vcards();
is( scalar(@vcard_list), 1, 'vcards() returns array when in context' );
|
