14 lines
237 B
Prolog
14 lines
237 B
Prolog
#!/usr/bin/perl
|
|
|
|
use FindBin qw($Bin);
|
|
use lib "$Bin/../../../../lib/perl";
|
|
|
|
use Test::More tests => 2;
|
|
|
|
use DBD::Function;
|
|
|
|
my $func = DBD::Function->new('test');
|
|
isa_ok $func, 'DBD::Function';
|
|
is $func->name, 'test', 'Function name';
|
|
|