14 lines
230 B
Prolog
14 lines
230 B
Prolog
#!/usr/bin/env perl
|
|
|
|
use lib '../O.Common';
|
|
use databaseModuleDirs;
|
|
|
|
use Test::More tests => 2;
|
|
|
|
use DBD::Registrar;
|
|
|
|
my $reg = DBD::Registrar->new('test');
|
|
isa_ok $reg, 'DBD::Registrar';
|
|
is $reg->name, 'test', 'Registrar name';
|
|
|