Re: DBD::Oracle: get_info(), SQL_DBMS_VERSION

[Steffen Goeldner]

Tim Bunce wrote:
> 
> >  SELECT version
> >    FROM product_component_version
> >   WHERE product LIKE 'Oracle%'
> > should be a quite portable way.
> 
> I'd be a little nervous of that returning more than one row.
> But lets wait and see if anyone complains :)

How about a test:
#!perl -w

sub ok ($$;$) {
    my($n, $ok, $warn) = @_;
    ++$t;
    die "sequence error, expected $n but actually $t"
    if $n and $n != $t;
    ($ok) ? print "ok $t\n"
          : print "# failed test $t at line ".(caller)[2]."\nnot ok $t\n";
        if (!$ok && $warn) {
                $warn = $DBI::errstr || "(DBI::errstr undefined)" if $warn eq '1';
                warn "$warn\n";
        }
}

use DBI;
$| = 1;

my $dbuser = $ENV{ORACLE_USERID} || 'scott/tiger';
my $dbh = DBI->connect('dbi:Oracle:', $dbuser, '');

unless($dbh) {
        warn "Unable to connect to Oracle ($DBI::errstr)\nTests skiped.\n";
        print "1..0\n";
        exit 0;
}

print "1..$tests\n";

#

my $cnt = $dbh->selectrow_array(<<'SQL', undef, 'Oracle%');
SELECT count(*)
  FROM product_component_version
 WHERE product LIKE ?
SQL
ok(0, $cnt == 1);

my $server_version = $dbh->func('ora_server_version');
ok(0, $server_version);
ok(0, $server_version->[0] >= 7 && $server_version->[0] <= 9);

#

exit 0;
BEGIN { $tests = 3 }

__END__