Removing the table name generator, since each test now uses it's own database

t/02_logon.t

@@ -9,7 +9,7 @@ BEGIN {
 }
 
 use t::lib::Test;
-use Test::More tests => 9;
+use Test::More tests => 10;
 use Test::NoWarnings;
 
 # Ordinary connect
@@ -32,3 +32,9 @@ SKIP: {
 	isa_ok( $dbh, 'DBI::db' );
 	is( $dbh->{unicode}, 1, 'Unicode is on' );
 }
+
+# Connect to a memory database
+SCOPE: {
+	my $dbh = DBI->connect( 'dbi:SQLite:dbname=:memory:', '', '' );
+	isa_ok( $dbh, 'DBI::db' );	
+}

t/10_create_aggregate.t

@@ -6,8 +6,9 @@ BEGIN {
 	$^W = 1;
 }
 
-use Test::More tests => 15;
 use t::lib::Test;
+use Test::More tests => 15;
+use Test::NoWarnings;
 
 # Create the aggregate test packages
 SCOPE: {

t/15_ak_dbd.t

@@ -34,7 +34,7 @@ while (Testing()) {
     #
     #   Find a possible new table name
     #
-    Test($state or $test_table = FindNewTable($dbh)) or 1
+    Test($state or $test_table = 'table1') or 1
 	or ErrMsg("Cannot get table name: $dbh->errstr.\n");
 
     #

t/17_createdrop.t

@@ -45,7 +45,7 @@ while (Testing()) {
     #   Find a possible new table name
     #
     my $table;
-    Test($state or $table = FindNewTable($dbh))
+    Test($state or $table = 'table1')
 	   or DbiError($dbh->err, $dbh->errstr);
 
     #

t/18_insertfetch.t

@@ -47,7 +47,7 @@ while (Testing()) {
     #
     #   Find a possible new table name
     #
-    Test($state or $table = FindNewTable($dbh), 'FindNewTable')
+    Test($state or $table = 'table1')
 	or DbiError($dbh->err, $dbh->errstr);
 
     #

t/19_bindparam.t

@@ -60,7 +60,7 @@ while (Testing()) {
     #
     #   Find a possible new table name
     #
-    Test($state or $table = FindNewTable($dbh), 'FindNewTable')
+    Test($state or $table = 'table1')
 	or DbiError($dbh->err, $dbh->errstr);
 
     #

t/20_blobs.t

@@ -76,7 +76,7 @@ while (Testing()) {
     #
     #   Find a possible new table name
     #
-    Test($state or $table = FindNewTable($dbh))
+    Test($state or $table = 'table1')
 	   or DbiError($dbh->error, $dbh->errstr);
 
     my($def);

t/22_listfields.t

@@ -54,7 +54,7 @@ while (Testing()) {
     #
     #   Find a possible new table name
     #
-    Test($state or $table = FindNewTable($dbh))
+    Test($state or $table = 'table1')
 	   or DbiError($dbh->err, $dbh->errstr);
 
     #

t/23_nulls.t

@@ -48,7 +48,7 @@ while (Testing()) {
     #
     #   Find a possible new table name
     #
-    Test($state or $table = FindNewTable($dbh))
+    Test($state or $table = 'table1')
 	   or DbiError($dbh->err, $dbh->errstr);
 
     #

t/24_numrows.t

@@ -57,7 +57,7 @@ while (Testing()) {
     #
     #   Find a possible new table name
     #
-    Test($state or ($table = FindNewTable($dbh)))
+    Test($state or ($table = 'table1'))
 	   or DbiError($dbh->err, $dbh->errstr);
 
     #

t/25_chopblanks.t

@@ -52,7 +52,7 @@ while (Testing()) {
     #   Find a possible new table name
     #
     my $table = '';
-    Test($state or $table = FindNewTable($dbh))
+    Test($state or $table = 'table1')
 	   or ErrMsgF("Cannot determine a legal table name: Error %s.\n",
 		      $dbh->errstr);
 

t/26_commit.t

@@ -71,7 +71,7 @@ while (Testing()) {
     #
     #   Find a possible new table name
     #
-    Test($state or $table = FindNewTable($dbh))
+    Test($state or $table = 'table1')
 	or ErrMsgF("Cannot determine a legal table name: Error %s.\n",
 		   $dbh->errstr);
 

t/lib.pl

@@ -215,51 +215,7 @@ sub DbiError ($$) {
     print "Test $::numTests: DBI error $rc, $err\n";
 }
 
-
-#
-#   This functions generates a list of possible DSN's aka
-#   databases and returns a possible table name for a new
-#   table being created.
-SCOPE: {
-    my(@tables, $testtable, $listed);
-
-    $testtable = "testaa";
-    $listed = 0;
-
-    sub FindNewTable($) {
-	my($dbh) = @_;
-
-	if (!$listed) {
-            @tables = $dbh->func('list_tables');
-            if ($dbh->errstr) {
-                die "Cannot create table list: " . $dbh->errstr;
-            }
-	    $listed = 1;
-	}
-
-	# A small loop to find a free test table we can use to mangle stuff in
-	# and out of. This starts at testaa and loops until testaz, then testba
-	# - testbz and so on until testzz.
-	my $foundtesttable = 1;
-	my $table;
-	while ($foundtesttable) {
-	    $foundtesttable = 0;
-	    foreach $table (@tables) {
-		if ($table eq $testtable) {
-		    $testtable++;
-		    $foundtesttable = 1;
-		}
-	    }
-	}
-	$table = $testtable;
-	$testtable++;
-	$table;
-    }
-}
-
-
 sub ErrMsg { print (@_); }
 sub ErrMsgF { printf (@_); }
 
-
 1;

t/rt_15186_prepcached.t

@@ -60,7 +60,7 @@ while (Testing()) {
     #
     #   Find a possible new table name
     #
-    Test($state or ($table = FindNewTable($dbh)))
+    Test($state or $table = 'table1')
 	   or DbiError($dbh->err, $dbh->errstr);
 
     #