#!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 {$dbh = DBI->connect($dsn, $dbuser, '',)};
if ($dbh) {
    if ($dbh->ora_can_taf()){
      plan tests => 1;  
    }
    else {
       plan tests =>1;      
    }
} else {
    plan skip_all => "Unable to connect to Oracle";
}

$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'}),"Well this is all I can test!");         
    
}

$dbh->disconnect;
#not much I can do with taf as I cannot really shut down somones server pephaps later

1;