From c0ad883f4afbc96948f5d3aecc03a32bde9a4f98 Mon Sep 17 00:00:00 2001
From: Greg Sabino Mullane <greg@endpoint.com>
Date: Thu, 2 Sep 2010 11:24:41 -0400
Subject: [PATCH] Support new table types.

---
 t/10-fullcopy.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/10-fullcopy.t b/t/10-fullcopy.t
index ea9a77211..066706f4f 100644
--- 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";
-- 
2.39.5