Fix search test for entity upgrade

2017-08-31 17:53:54 +01:00 · 2017-08-31 17:53:54 +01:00 · 2980fd129f
commit 2980fd129f
parent 1ab2d0b71c
3 changed files with 73 additions and 133 deletions
--- a/lib/Pear/LocalLoop/Schema/ResultSet/Entity.pm
+++ b/lib/Pear/LocalLoop/Schema/ResultSet/Entity.pm
@ -7,4 +7,13 @@ use base 'DBIx::Class::ResultSet';

 sub sales { shift->search_related('sales', @_) }

+sub create_org {
+  my ( $self, $org ) = @_;
+
+  return $self->create({
+    organisation => $org,
+    type => 'organisation',
+  });
+}
+
 1;