pass link table details to rel_name_map for many_to_many bridges (RT#81091)

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

diff --git a/t/lib/make_dbictest_db_multi_m2m.pm b/t/lib/make_dbictest_db_multi_m2m.pm
new file mode 100644 (file)
index 0000000..6951876
--- /dev/null
+++ b/t/lib/make_dbictest_db_multi_m2m.pm
@@ -0,0 +1,43 @@
+package make_dbictest_db_multi_m2m;
+
+use strict;
+use warnings;
+use DBI;
+use dbixcsl_test_dir qw/$tdir/;
+
+eval { require DBD::SQLite };
+my $class = $@ ? 'SQLite2' : 'SQLite';
+
+my $fn = "$tdir/dbictest_multi_m2m.db";
+
+unlink($fn);
+our $dsn = "dbi:$class:dbname=$fn";
+my $dbh = DBI->connect($dsn);
+$dbh->do('PRAGMA SYNCHRONOUS = OFF');
+
+$dbh->do($_) for (
+    q|CREATE TABLE foo (
+        foo_id INTEGER PRIMARY KEY
+      )|,
+    q|CREATE TABLE bar (
+        bar_id INTEGER PRIMARY KEY
+      )|,
+    q|CREATE TABLE foo_bar_one (
+        foo_id INTEGER NOT NULL REFERENCES foo(foo_id),
+        bar_id INTEGER NOT NULL REFERENCES bar(bar_id),
+        PRIMARY KEY (foo_id, bar_id)
+      )|,
+    q|CREATE TABLE foo_bar_two (
+        foo_id INTEGER NOT NULL REFERENCES foo(foo_id),
+        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)|,
+);
+
+END { unlink($fn) unless $ENV{SCHEMA_LOADER_TESTS_NOCLEANUP}; }
+
+1;