X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F100populate.t;h=52374805c6eae782b25ff1a61aae11f62a725dcb;hb=18d80024c95f440cf8a7600f4340ef5247c6b15a;hp=2e30a1739d52c506ea218583e1f63dd760efd4bb;hpb=e6dd7b42b418053f02424d3ab2703dc97e2afbde;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/t/100populate.t b/t/100populate.t
index 2e30a17..5237480 100644
--- a/t/100populate.t
+++ b/t/100populate.t
@@ -296,4 +296,24 @@ for (
   ok ($row, "Stringification test row '$_' properly inserted");
 }
 
+lives_ok {
+   $schema->resultset('TwoKeys')->populate([{
+      artist => 1,
+      cd     => 5,
+      fourkeys_to_twokeys => [{
+            f_foo => 1,
+            f_bar => 1,
+            f_hello => 1,
+            f_goodbye => 1,
+            autopilot => 'a',
+      },{
+            f_foo => 2,
+            f_bar => 2,
+            f_hello => 2,
+            f_goodbye => 2,
+            autopilot => 'b',
+      }]
+   }])
+} 'fix RT50828';
+
 done_testing;