#!/usr/bin/env perl

use lib '@TOP@/lib/perl';

use Test::More tests => 16;

use DBD::Device;

my $dev = DBD::Device->new('VME_IO', 'test', 'Device');
isa_ok $dev, 'DBD::Device';
is $dev->name, 'test', 'Device name';
is $dev->link_type, 'VME_IO', 'Link type';
is $dev->choice, 'Device', 'Choice string';
ok $dev->legal_addr('#C0xFEED S123 @xxx'), 'Address legal';
my %dev_addrs = (
	CONSTANT  => '12345',
	PV_LINK   => 'Any:Record.NAME CPP.MS',
	VME_IO    => '# C1 S2 @Anything',
	CAMAC_IO  => '# B1 C2 N3 A4 F5 @Anything',
	RF_IO     => '# R1 M2 D3 E4',
	AB_IO     => '# L1 A2 C3 S4 @Anything',
	GPIB_IO   => '# L1 A2 @Anything',
	BITBUS_IO => '# L1 N2 P3 S4 @Anything',
	BBGPIB_IO => '# L1 B2 G3 @Anything',
	VXI_IO    => '# V1 C2 S3 @Anything',
	INST_IO   => '@Anything'
);
while (my ($link, $addr) = each(%dev_addrs)) {
    $dev->init($link, 'test', 'Device');
    ok $dev->legal_addr($addr), "$link address";
}

