Front page | perl.dbd.oracle.changes |
Postings from April 2012
[svn:dbd-oracle] r15296 - dbd-oracle/trunk/t
From:
mjevans
Date:
April 24, 2012 02:39
Subject:
[svn:dbd-oracle] r15296 - dbd-oracle/trunk/t
Message ID:
20120424093907.70E26184B7E@xx12.develooper.com
Author: mjevans
Date: Tue Apr 24 02:39:07 2012
New Revision: 15296
Modified:
dbd-oracle/trunk/t/38taf.t
Log:
reformat and fix taf_sleep in test
Modified: dbd-oracle/trunk/t/38taf.t
==============================================================================
--- dbd-oracle/trunk/t/38taf.t (original)
+++ dbd-oracle/trunk/t/38taf.t Tue Apr 24 02:39:07 2012
@@ -19,22 +19,26 @@
my $dbh = eval { DBI->connect($dsn, $dbuser, '',) }
or plan skip_all => "Unable to connect to Oracle";
-plan tests => 1;
+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! ");
-
-
+
+ eval {
+ $dbh = DBI->connect(
+ $dsn, $dbuser, '',
+ {ora_taf=>1, ora_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'
- });
-
+ ok $dbh = DBI->connect($dsn, $dbuser, '',
+ {ora_taf=>1, ora_taf_sleep=>15,
+ ora_taf_function=>'taf'});
+
}
$dbh->disconnect;
-
[svn:dbd-oracle] r15296 - dbd-oracle/trunk/t
by mjevans