belongs_to relationships are explicitly flagged by default, to aid the DBIC SQLT...

[dbsrgits/DBIx-Class.git] / t / lib / DBICTest / Schema / ForceForeign.pm

diff --git a/t/lib/DBICTest/Schema/ForceForeign.pm b/t/lib/DBICTest/Schema/ForceForeign.pm
index 149f759..82829b8 100644 (file)
--- a/t/lib/DBICTest/Schema/ForceForeign.pm
+++ b/t/lib/DBICTest/Schema/ForceForeign.pm
@@ -29,4 +29,13 @@ __PACKAGE__->might_have(
                        },
 );
 
+# Normally this would appear as a FK constraint
+__PACKAGE__->belongs_to(
+                       'cd_3', 'DBICTest::Schema::CD', {
+                           'foreign.cdid' => 'self.cd',
+                       }, {
+                           is_foreign_key_constraint => 0,
+                       },
+);
+
 1;