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