sub creator {
my ( $self ) = @_;
my $creator_rs = $self->_result->creator;
return unless $creator_rs;
return Koha::Patron->_new_from_dbic( $creator_rs );
}
};
subtest 'creator ()' => sub {
plan tests => 1;
plan tests => 2;
$schema->storage->txn_begin;
is($creator->borrowernumber, $patron->borrowernumber, 'Patron is order creator');
$creator->delete;
is( $order->get_from_storage->creator, undef );
$schema->storage->txn_rollback;
-