test for splitting mixed case columns on case boundary with words ending in digits

[dbsrgits/DBIx-Class-Schema-Loader.git] / t / lib / make_dbictest_db_with_unique.pm

diff --git a/t/lib/make_dbictest_db_with_unique.pm b/t/lib/make_dbictest_db_with_unique.pm
index 4f3777e..6b6ab17 100644 (file)
--- a/t/lib/make_dbictest_db_with_unique.pm
+++ b/t/lib/make_dbictest_db_with_unique.pm
@@ -38,7 +38,8 @@ $dbh->do($_) for (
       )|,
     q|CREATE TABLE RouteChange (
         id INTEGER PRIMARY KEY,
-        QuuxsId INTEGER REFERENCES quuxs (quuxid)
+        QuuxsId INTEGER REFERENCES quuxs (quuxid),
+        Foo2Bar INTEGER
       )|,
     q|CREATE TABLE email (
         id INTEGER PRIMARY KEY,
@@ -58,7 +59,7 @@ $dbh->do($_) for (
     q|INSERT INTO quuxs VALUES (1,20)|,
     q|INSERT INTO quuxs VALUES (2,19)|,
     q|INSERT INTO stations_visited VALUES (1,1)|,
-    q|INSERT INTO RouteChange VALUES (1,1)|,
+    q|INSERT INTO RouteChange VALUES (1,1,3)|,
 );
 
 END { unlink($fn); }