Support new table types.

diff --git a/t/10-fullcopy.t b/t/10-fullcopy.t
index ea9a772112d7719b3bcded176c9444f4e8be6b72..066706f4f541c2f052ef1bee994735d1a6143bd8 100644 (file)
--- a/t/10-fullcopy.t
+++ b/t/10-fullcopy.t
@@ -124,7 +124,7 @@ for my $table (sort keys %tabletype) {
 
     ## INSERT
     for my $x (1..4) {
-        $SQL = $table =~ /0/
+        $SQL = $table =~ /X/
             ? "INSERT INTO $table($pkey{$table}) VALUES (?)"
                 : "INSERT INTO $table($pkey{$table},data1,inty) VALUES (?,'foo',$x)";
         $sth{insert}{$x}{$table}{A} = $dbhA->prepare($SQL);
@@ -135,7 +135,7 @@ for my $table (sort keys %tabletype) {
 
     ## SELECT
     $sql{select}{$table} = "SELECT inty FROM $table ORDER BY $pkey{$table}";
-    $table =~ /0/ and $sql{select}{$table} =~ s/inty/$pkey{$table}/;
+    $table =~ /X/ and $sql{select}{$table} =~ s/inty/$pkey{$table}/;
 
     ## DELETE
     $SQL = "DELETE FROM $table";