1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
#!perl -w
use DBI;
use DBD::Oracle(qw(:ora_fail_over));
use strict;
use Data::Dumper;
use Test::More;
unshift @INC ,'t';
require 'nchar_test_lib.pl';
$| = 1;
# create a database handle
my $dsn = oracle_test_dsn();
my $dbuser = $ENV{ORACLE_USERID} || 'scott/tiger';
my $dbh = eval { DBI->connect($dsn, $dbuser, '',) }
or plan skip_all => "Unable to connect to Oracle";
plan tests => 1;
$dbh->disconnect;
if ( !$dbh->ora_can_taf ){
eval {$dbh = DBI->connect($dsn, $dbuser, '',{ora_taf=>1,taf_sleep=>15,ora_taf_function=>'taf'})};
ok($@ =~ /You are attempting to enable TAF/, "'$@' expected! ");
}
else {
ok $dbh = DBI->connect($dsn, $dbuser, '',{
ora_taf=>1,taf_sleep=>15,ora_taf_function=>'taf'
});
}
$dbh->disconnect;
|
