develooper 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;



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About