[svn:dbi] r14566 - dbi/branches/sqlengine/t

[REHSACK]

Author: REHSACK
Date: Mon Dec 13 14:57:13 2010
New Revision: 14566

Modified:
   dbi/branches/sqlengine/t/51dbm_file.t

Log:
skipping tests when using Gofer, because they must fail as Gofer encapsulated 
drivers are persistent


Modified: dbi/branches/sqlengine/t/51dbm_file.t
==============================================================================
--- dbi/branches/sqlengine/t/51dbm_file.t       (original)
+++ dbi/branches/sqlengine/t/51dbm_file.t       Mon Dec 13 14:57:13 2010
@@ -53,12 +53,12 @@
 ok( -f File::Spec->catfile( $dir, "fred$dirfext" ), "fred$dirfext exists" );
 
 my $tblfext;
-#unless( $using_dbd_gofer )
-#{
+unless( $using_dbd_gofer )
+{
        $tblfext = $dbh->{dbm_tables}->{fred}->{f_ext} || '';
        $tblfext =~ s{/r$}{};
     ok( -f File::Spec->catfile( $dir, "fred$tblfext" ), "fred$tblfext exists" 
);
-#}
+}
 
 ok( $dbh->do(q/insert into fRED (a,b) values(1,2)/), 'insert into mixed case 
table' );
 
@@ -102,13 +102,13 @@
     ok( @$r == 2, 'rows found via select via fully qualified path' );
 }
 
-#if( $using_dbd_gofer )
-#{
-#    ok( $dbh->do(q/drop table if exists FRED/), 'drop table' );
-#    ok( !-f File::Spec->catfile( $dir, "fred$dirfext" ), "fred$dirfext 
removed" );
-#}
-#else
-#{
+if( $using_dbd_gofer )
+{
+    ok( $dbh->do(q/drop table if exists FRED/), 'drop table' );
+    ok( !-f File::Spec->catfile( $dir, "fred$dirfext" ), "fred$dirfext 
removed" );
+}
+else
+{
     my $tbl_info = { file => "fred$tblfext" };
 
     ok( $dbh->disconnect(), "disconnect" );
@@ -125,6 +125,6 @@
     ok( $dbh->do(q/drop table if exists FRED/), 'drop table' );
     ok( !-f File::Spec->catfile( $dir, "fred$dirfext" ), "fred$dirfext 
removed" );
     ok( !-f File::Spec->catfile( $dir, "fred$tblfext" ), "fred$tblfext 
removed" );
-#}
+}
 
 done_testing();