From: John SJ Anderson Date: Tue, 22 Jan 2013 04:49:11 +0000 (-0800) Subject: Fix fixtures to work with older DBD::SQLite X-Git-Tag: 0.07034_02~1 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=616e34fea9412c18a4dcfd8df55a3a1395776333;p=dbsrgits%2FDBIx-Class-Schema-Loader.git Fix fixtures to work with older DBD::SQLite --- diff --git a/Changes b/Changes index 05fdc68..18c0dfb 100644 --- a/Changes +++ b/Changes @@ -1,7 +1,9 @@ Revision history for Perl extension DBIx::Class::Schema::Loader -0.07034_01 2013-01-16 +0.07034_01 2013-01-21 + - Fix fixture generation helper to work with older DBD::SQLite versions +0.07034_01 2013-01-16 - MSSQL: on > 2000 use schema_name() instead of user_name() to detect current schema and query sys.schemas instead of sysusers. - SQL Anywhere: introspect ON DELETE/UPDATE rules, default is now diff --git a/t/lib/make_dbictest_db_multi_m2m.pm b/t/lib/make_dbictest_db_multi_m2m.pm index 6951876..24eef79 100644 --- a/t/lib/make_dbictest_db_multi_m2m.pm +++ b/t/lib/make_dbictest_db_multi_m2m.pm @@ -32,11 +32,17 @@ $dbh->do($_) for ( bar_id INTEGER NOT NULL REFERENCES bar(bar_id), PRIMARY KEY (foo_id, bar_id) )|, - q|INSERT INTO FOO (foo_id) VALUES (1), (2)|, - q|INSERT INTO BAR (bar_id) VALUES (1), (2)|, - q|INSERT INTO foo_bar_one (foo_id, bar_id) VALUES (1,1),(2,2)|, - q|INSERT INTO foo_bar_two (foo_id, bar_id) VALUES (1,1),(1,2),(2,1),(2,2)|, -); + q|INSERT INTO foo (foo_id) VALUES (1)|, + q|INSERT INTO foo (foo_id) VALUES (2)|, + q|INSERT INTO bar (bar_id) VALUES (1)|, + q|INSERT INTO bar (bar_id) VALUES (2)|, + q|INSERT INTO foo_bar_one (foo_id, bar_id) VALUES (1,1)|, + q|INSERT INTO foo_bar_one (foo_id, bar_id) VALUES (2,2)|, + q|INSERT INTO foo_bar_two (foo_id, bar_id) VALUES (1,1)|, + q|INSERT INTO foo_bar_two (foo_id, bar_id) VALUES (1,2)|, + q|INSERT INTO foo_bar_two (foo_id, bar_id) VALUES (2,1)|, + q|INSERT INTO foo_bar_two (foo_id, bar_id) VALUES (2,2)|, + ); END { unlink($fn) unless $ENV{SCHEMA_LOADER_TESTS_NOCLEANUP}; }