ensure unconstrained relations don't show problems

[dbsrgits/DBIx-Class-ParameterizedJoinHack.git] / t / lib / My / Schema / Result / Person.pm

diff --git a/t/lib/My/Schema/Result/Person.pm b/t/lib/My/Schema/Result/Person.pm
index 88c11ca..1206d84 100644 (file)
--- a/t/lib/My/Schema/Result/Person.pm
+++ b/t/lib/My/Schema/Result/Person.pm
@@ -50,6 +50,18 @@ __PACKAGE__->parameterized_has_many(
   ]
 );
 
+__PACKAGE__->parameterized_has_many(
+  unconstrained_tasks => 'My::Schema::Result::Task',
+  [ [], sub {
+      my $args = shift;
+      +{
+        "$args->{foreign_alias}.assigned_to_id" =>
+          { -ident => "$args->{self_alias}.id" },
+      }
+    }
+  ]
+);
+
 our %ERROR;
 my $_catch_fail = sub {
   my $key = shift;