1#!/usr/bin/perl -w
2
3use strict;
4
5use Net::DRI::Data::Contact;
6
7use Test::More tests => 13;
8
9can_ok('Net::DRI::Data::Contact',qw/new id validate name org street city sp pc cc email voice fax loid roid srid auth disclose/);
10
11my $s=Net::DRI::Data::Contact->new();
12isa_ok($s,'Net::DRI::Data::Contact');
13
14
15$s->name('Test');
16is(scalar($s->name()),'Test','Scalar access (simple set)');
17my @d=$s->name();
18is_deeply(\@d,['Test'],'List access (simple set)');
19
20$s->name('Test1','Test2');
21is(scalar($s->name()),'Test1','Scalar access (double set)');
22@d=$s->name();
23is_deeply(\@d,['Test1','Test2'],'List access (double set)');
24
25
26$s->street(['A1','A2']);
27is_deeply(scalar($s->street()),['A1','A2'],'street() Scalar access (simple set)');
28@d=$s->street();
29is_deeply(\@d,[['A1','A2']],'street() List access (simple set)');
30
31$s->street(['A1','A2'],['B1','B2']);
32is_deeply(scalar($s->street()),['A1','A2'],'street() Scalar access (double set)');
33@d=$s->street();
34is_deeply(\@d,[['A1','A2'],['B1','B2']],'street() List access (double set)');
35
36
37$s=Net::DRI::Data::Contact->new();
38$s->org('Something �');
39$s->loc2int();
40is_deeply([$s->org()],['Something �','Something ?'],'loc2int()');
41$s->int2loc();
42is_deeply([$s->org()],['Something ?','Something ?'],'int2loc()');
43
44TODO: {
45        local $TODO="tests on validate()";
46        ok(0);
47}
48
49exit 0;
50