[svn:dbi] r14423 - dbi/trunk/t

Author: REHSACK
Date: Sat Sep 18 04:05:30 2010
New Revision: 14423

Modified:
   dbi/trunk/t/51dbm_file.t

Log:
Fix gofer test failures for late $dbh attribute settings


Modified: dbi/trunk/t/51dbm_file.t
==============================================================================
--- dbi/trunk/t/51dbm_file.t	(original)
+++ dbi/trunk/t/51dbm_file.t	Sat Sep 18 04:05:30 2010
@@ -56,15 +56,23 @@
 
 ok( $dbh->do(q/insert into FRED (a,b) values(2,1)/), 'insert into uppercase table' );
 
-my $fn_tbl2 = $dbh->{dbm_tables}->{fred}->{f_fqfn};
-   $fn_tbl2 =~ s/fred(\.[^.]*)?/freddy$1/;
-foreach my $fn (glob($dbh->{dbm_tables}->{fred}->{f_fqbn} . "*"))
+unless ($using_dbd_gofer)
 {
-    my $tgt_fn = $fn;
-    $tgt_fn =~ s/fred(\.[^.]*)?/freddy$1/;
-    File::Copy::copy( $fn, $tgt_fn );
+    my $fn_tbl2 = $dbh->{dbm_tables}->{fred}->{f_fqfn};
+       $fn_tbl2 =~ s/fred(\.[^.]*)?/freddy$1/;
+    foreach my $fn (glob($dbh->{dbm_tables}->{fred}->{f_fqbn} . "*"))
+    {
+	my $tgt_fn = $fn;
+	$tgt_fn =~ s/fred(\.[^.]*)?/freddy$1/;
+	File::Copy::copy( $fn, $tgt_fn );
+    }
+    $dbh->{dbm_tables}->{krueger}->{file} = $fn_tbl2;
+
+    my $r = $dbh->selectall_arrayref(q/select * from Krueger/);
+    ok( @$r == 2, 'rows found via cloned mixed case table' );
+
+    ok( $dbh->do(q/drop table if exists KRUeGEr/), 'drop table' );
 }
-$dbh->{dbm_tables}->{krueger}->{file} = $fn_tbl2;
 
 my $r = $dbh->selectall_arrayref(q/select * from Fred/);
 ok( @$r == 2, 'rows found via mixed case table' );
@@ -77,9 +85,4 @@
 
 ok( $dbh->do(q/drop table if exists FRED/), 'drop table' );
 
-my $r = $dbh->selectall_arrayref(q/select * from Krueger/);
-ok( @$r == 2, 'rows found via cloned mixed case table' );
-
-ok( $dbh->do(q/drop table if exists KRUeGEr/), 'drop table' );
-
 done_testing();