33 lines
950 B
Prolog
33 lines
950 B
Prolog
#!/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";
|
|
}
|
|
|