package Koha::Patron::Message::Attribute;

# Copyright Koha-Suomi Oy 2016

#

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it under the

# terms of the GNU General Public License as published by the Free Software

# Foundation; either version 3 of the License, or (at your option) any later

# version.a

#

# Koha is distributed in the hope that it will be useful, but WITHOUT ANY

# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR

# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License along

# with Koha; if not, write to the Free Software Foundation, Inc.,

# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Koha::Database;

use base qw(Koha::Object);

=head1 NAME

Koha::Patron::Message::Attribute - Koha Patron Message Attribute object class

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {

    return 'MessageAttribute';

}

=head1 AUTHOR

Lari Taskula <lari.taskula@jns.fi>

=cut

1;

package Koha::Patron::Message::Attributes;

# Copyright Koha-Suomi Oy 2016

#

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it under the

# terms of the GNU General Public License as published by the Free Software

# Foundation; either version 3 of the License, or (at your option) any later

# version.

#

# Koha is distributed in the hope that it will be useful, but WITHOUT ANY

# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR

# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License along

# with Koha; if not, write to the Free Software Foundation, Inc.,

# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Koha::Database;

use Koha::Patron::Message::Attribute;

use base qw(Koha::Objects);

=head1 NAME

Koha::Patron::Message::Attributes - Koha Patron Message Attributes object class

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {

    return 'MessageAttribute';

}

sub object_class {

    return 'Koha::Patron::Message::Attribute';

}

=head1 AUTHOR

Lari Taskula <lari.taskula@jns.fi>

=cut

1;

package Koha::Patron::Message::Preference;

# Copyright Koha-Suomi Oy 2016

#

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it under the

# terms of the GNU General Public License as published by the Free Software

# Foundation; either version 3 of the License, or (at your option) any later

# version.a

#

# Koha is distributed in the hope that it will be useful, but WITHOUT ANY

# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR

# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License along

# with Koha; if not, write to the Free Software Foundation, Inc.,

# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Koha::Database;

use base qw(Koha::Object);

=head1 NAME

Koha::Patron::Message::Preference - Koha Patron Message Preference object class

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {

    return 'BorrowerMessagePreference';

}

=head1 AUTHOR

Lari Taskula <lari.taskula@jns.fi>

=cut

1;

package Koha::Patron::Message::Preferences;

# Copyright Koha-Suomi Oy 2016

#

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it under the

# terms of the GNU General Public License as published by the Free Software

# Foundation; either version 3 of the License, or (at your option) any later

# version.

#

# Koha is distributed in the hope that it will be useful, but WITHOUT ANY

# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR

# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License along

# with Koha; if not, write to the Free Software Foundation, Inc.,

# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Koha::Database;

use Koha::Patron::Message::Preference;

use base qw(Koha::Objects);

=head1 NAME

Koha::Patron::Message::Preferences - Koha Patron Message Preferences object class

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {

    return 'BorrowerMessagePreference';

}

sub object_class {

    return 'Koha::Patron::Message::Preference';

}

=head1 AUTHOR

Lari Taskula <lari.taskula@jns.fi>

=cut

1;

package Koha::Patron::Message::Transport;

# Copyright Koha-Suomi Oy 2016

#

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it under the

# terms of the GNU General Public License as published by the Free Software

# Foundation; either version 3 of the License, or (at your option) any later

# version.a

#

# Koha is distributed in the hope that it will be useful, but WITHOUT ANY

# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR

# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License along

# with Koha; if not, write to the Free Software Foundation, Inc.,

# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Koha::Database;

use base qw(Koha::Object);

=head1 NAME

Koha::Patron::Message::Transport - Koha Patron Message Transport object class

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {

    return 'MessageTransport';

}

=head1 AUTHOR

Lari Taskula <lari.taskula@jns.fi>

=cut

1;

package Koha::Patron::Message::Transport::Preference;

# Copyright Koha-Suomi Oy 2016

#

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it under the

# terms of the GNU General Public License as published by the Free Software

# Foundation; either version 3 of the License, or (at your option) any later

# version.a

#

# Koha is distributed in the hope that it will be useful, but WITHOUT ANY

# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR

# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License along

# with Koha; if not, write to the Free Software Foundation, Inc.,

# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Koha::Database;

use base qw(Koha::Object);

=head1 NAME

Koha::Patron::Message::Transport::Preference - Koha Patron Message Transport

Preference object class

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {

    return 'BorrowerMessageTransportPreference';

}

=head1 AUTHOR

Lari Taskula <lari.taskula@jns.fi>

=cut

1;

package Koha::Patron::Message::Transport::Preferences;

# Copyright Koha-Suomi Oy 2016

#

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it under the

# terms of the GNU General Public License as published by the Free Software

# Foundation; either version 3 of the License, or (at your option) any later

# version.

#

# Koha is distributed in the hope that it will be useful, but WITHOUT ANY

# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR

# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License along

# with Koha; if not, write to the Free Software Foundation, Inc.,

# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Koha::Database;

use Koha::Patron::Message::Transport::Preference;

use base qw(Koha::Objects);

=head1 NAME

Koha::Patron::Message::Transport::Preferences - Koha Patron Message Transport

Preferences object class

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {

    return 'BorrowerMessageTransportPreference';

}

sub object_class {

    return 'Koha::Patron::Message::Transport::Preference';

}

=head1 AUTHOR

Lari Taskula <lari.taskula@jns.fi>

=cut

1;

package Koha::Patron::Message::Transport::Type;

# Copyright Koha-Suomi Oy 2016

#

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it under the

# terms of the GNU General Public License as published by the Free Software

# Foundation; either version 3 of the License, or (at your option) any later

# version.a

#

# Koha is distributed in the hope that it will be useful, but WITHOUT ANY

# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR

# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License along

# with Koha; if not, write to the Free Software Foundation, Inc.,

# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Koha::Database;

use base qw(Koha::Object);

=head1 NAME

Koha::Patron::Message::Transport::Type - Koha Patron Message Transport Type

object class

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {

    return 'MessageTransportType';

}

=head1 AUTHOR

Lari Taskula <lari.taskula@jns.fi>

=cut

1;

package Koha::Patron::Message::Transport::Types;

# Copyright Koha-Suomi Oy 2016

#

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it under the

# terms of the GNU General Public License as published by the Free Software

# Foundation; either version 3 of the License, or (at your option) any later

# version.

#

# Koha is distributed in the hope that it will be useful, but WITHOUT ANY

# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR

# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License along

# with Koha; if not, write to the Free Software Foundation, Inc.,

# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Koha::Database;

use Koha::Patron::Message::Transport::Type;

use base qw(Koha::Objects);

=head1 NAME

Koha::Patron::Message::Transport::Types - Koha Patron Message Transport Types

object class

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {

    return 'MessageTransportType';

}

sub object_class {

    return 'Koha::Patron::Message::Transport::Type';

}

=head1 AUTHOR

Lari Taskula <lari.taskula@jns.fi>

=cut

1;

package Koha::Patron::Message::Transports;

# Copyright Koha-Suomi Oy 2016

#

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it under the

# terms of the GNU General Public License as published by the Free Software

# Foundation; either version 3 of the License, or (at your option) any later

# version.

#

# Koha is distributed in the hope that it will be useful, but WITHOUT ANY

# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR

# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License along

# with Koha; if not, write to the Free Software Foundation, Inc.,

# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Koha::Database;

use Koha::Patron::Message::Transport;

use base qw(Koha::Objects);

=head1 NAME

Koha::Patron::Message::Transports - Koha Patron Message Transports object class

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {

    return 'MessageTransport';

}

sub object_class {

    return 'Koha::Patron::Message::Transport';

}

=head1 AUTHOR

Lari Taskula <lari.taskula@jns.fi>

=cut

1;

#!/usr/bin/perl

# Copyright 2017 Koha-Suomi Oy

#

# This file is part of Koha

#

# Koha is free software; you can redistribute it and/or modify it

# under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 3 of the License, or

# (at your option) any later version.

#

# Koha is distributed in the hope that it will be useful, but

# WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;

use Test::More tests => 2;

use Koha::Database;

my $schema  = Koha::Database->new->schema;

subtest 'Test class imports' => sub {

    plan tests => 2;

    use_ok('Koha::Patron::Message::Attribute');

    use_ok('Koha::Patron::Message::Attributes');

};

subtest 'Test Koha::Patron::Message::Attributes' => sub {

    plan tests => 6;

    $schema->storage->txn_begin;

    Koha::Patron::Message::Attribute->new({

        message_name => 'Test_Attribute'

    })->store;

    Koha::Patron::Message::Attribute->new({

        message_name => 'Test_Attribute2',

        takes_days   => 1

    })->store;

    my $attribute  = Koha::Patron::Message::Attributes->find({

        message_name => 'Test_Attribute' });

    my $attribute2 = Koha::Patron::Message::Attributes->find({

        message_name => 'Test_Attribute2' });

    is($attribute->message_name, 'Test_Attribute',

       'Added a new messaging attribute.');

    is($attribute->takes_days, 0,

       'For that messaging attribute, takes_days is disabled by default.');

    is($attribute2->message_name, 'Test_Attribute2',

       'Added another messaging attribute.');

    is($attribute2->takes_days, 1,

       'takes_days is enabled for that message attribute (as expected).');

    $attribute->delete;

    $attribute2->delete;

    is(Koha::Patron::Message::Attributes->find({

        message_name => 'Test_Attribute' }), undef,

       'Deleted the first message attribute.');

    is(Koha::Patron::Message::Attributes->find({

        message_name => 'Test_Attribute2' }), undef,

       'Deleted the second message attribute.');

    $schema->storage->txn_rollback;

};

1;

#!/usr/bin/perl

# Copyright 2017 Koha-Suomi Oy

#

# This file is part of Koha

#

# Koha is free software; you can redistribute it and/or modify it

# under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 3 of the License, or

# (at your option) any later version.

#

# Koha is distributed in the hope that it will be useful, but

# WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;

use Test::More tests => 2;

use t::lib::Mocks;

use t::lib::TestBuilder;

use Koha::Notice::Templates;

use Koha::Patron::Categories;

use Koha::Patron::Message::Attributes;

use Koha::Patron::Message::Transport::Types;

use Koha::Patron::Message::Transports;

use Koha::Patrons;

my $schema  = Koha::Database->new->schema;

my $builder = t::lib::TestBuilder->new;

subtest 'Test class imports' => sub {

    plan tests => 2;

    use_ok('Koha::Patron::Message::Preference');

    use_ok('Koha::Patron::Message::Preferences');

};

subtest 'Test Koha::Patron::Message::Preferences' => sub {

    plan tests => 2;

    $schema->storage->txn_begin;

    my $attribute = build_a_test_attribute();

    subtest 'Test for a patron' => sub {

        plan tests => 2;

        my $patron = build_a_test_patron();

        Koha::Patron::Message::Preference->new({

            borrowernumber       => $patron->borrowernumber,

            message_attribute_id => $attribute->message_attribute_id,

            wants_digest         => 0,

            days_in_advance      => undef,

        })->store;

        my $preference = Koha::Patron::Message::Preferences->find({

            borrowernumber       => $patron->borrowernumber,

            message_attribute_id => $attribute->message_attribute_id

        });

        ok($preference->borrower_message_preference_id > 0,

           'Added a new messaging preference for patron.');

        $preference->delete;

        is(Koha::Patron::Message::Preferences->search({

            borrowernumber       => $patron->borrowernumber,

            message_attribute_id => $attribute->message_attribute_id

        })->count, 0, 'Deleted the messaging preference.');

    };

    subtest 'Test for a category' => sub {

        my $category = build_a_test_category();

        Koha::Patron::Message::Preference->new({

            categorycode         => $category->categorycode,

            message_attribute_id => $attribute->message_attribute_id,

            wants_digest         => 0,

            days_in_advance      => undef,

        })->store;

        my $preference = Koha::Patron::Message::Preferences->find({

            categorycode         => $category->categorycode,

            message_attribute_id => $attribute->message_attribute_id

        });

        ok($preference->borrower_message_preference_id > 0,

           'Added a new messaging preference for category.');

        $preference->delete;

        is(Koha::Patron::Message::Preferences->search({

            categorycode         => $category->categorycode,

            message_attribute_id => $attribute->message_attribute_id

        })->count, 0, 'Deleted the messaging preference.');

    };

    $schema->storage->txn_rollback;

};

sub build_a_test_attribute {

    my ($params) = @_;

    $params->{takes_days} = $params->{takes_days} && $params->{takes_days} > 0

                            ? 1 : 0;

    my $attribute = $builder->build({

        source => 'MessageAttribute',

        value => $params,

    });

    return Koha::Patron::Message::Attributes->find(

        $attribute->{message_attribute_id}

    );

}

sub build_a_test_category {

    my $categorycode   = $builder->build({

        source => 'Category' })->{categorycode};

    return Koha::Patron::Categories->find($categorycode);

}

sub build_a_test_patron {

    my $categorycode   = $builder->build({

        source => 'Category' })->{categorycode};

    my $branchcode     = $builder->build({

        source => 'Branch' })->{branchcode};

    my $borrowernumber = $builder->build({

        source => 'Borrower' })->{borrowernumber};

    return Koha::Patrons->find($borrowernumber);

}

1;

#!/usr/bin/perl

# Copyright 2017 Koha-Suomi Oy

#

# This file is part of Koha

#

# Koha is free software; you can redistribute it and/or modify it

# under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 3 of the License, or

# (at your option) any later version.

#

# Koha is distributed in the hope that it will be useful, but

# WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;

use Test::More tests => 2;

use t::lib::Mocks;

use t::lib::TestBuilder;

use Koha::Notice::Templates;

use Koha::Patron::Categories;

use Koha::Patron::Message::Attributes;

use Koha::Patron::Message::Preferences;

use Koha::Patron::Message::Transport::Types;

use Koha::Patron::Message::Transports;

use Koha::Patrons;

my $schema  = Koha::Database->new->schema;

my $builder = t::lib::TestBuilder->new;

subtest 'Test class imports' => sub {

    plan tests => 2;

    use_ok('Koha::Patron::Message::Transport::Preference');

    use_ok('Koha::Patron::Message::Transport::Preferences');

};

subtest 'Test Koha::Patron::Message::Transport::Preferences' => sub {

    plan tests => 2;

    $schema->storage->txn_begin;

    my $attribute = build_a_test_attribute();

    my $mtt       = build_a_test_transport_type();

    my $letter    = build_a_test_letter({

        mtt => $mtt->message_transport_type

    });

    subtest 'For a patron' => sub {

        my $patron    = build_a_test_patron();

        my $preference = Koha::Patron::Message::Preference->new({

            borrowernumber       => $patron->borrowernumber,

            message_attribute_id => $attribute->message_attribute_id,

            wants_digest         => 0,

            days_in_advance      => undef,

        })->store;

        my $pref_id = $preference->borrower_message_preference_id;

        my $transport_pref = Koha::Patron::Message::Transport::Preference->new({

            borrower_message_preference_id => $pref_id,

            message_transport_type => $mtt->message_transport_type,

        })->store;

        is(ref($transport_pref), 'Koha::Patron::Message::Transport::Preference',

           'Added a new messaging transport preference for patron.');

        $transport_pref->delete;

        is(Koha::Patron::Message::Transport::Preferences->search({

            borrower_message_preference_id => $pref_id,

            message_transport_type => $mtt->message_transport_type,

        })->count, 0, 'Deleted the messaging transport preference.');

    };

    subtest 'For a category' => sub {

        my $category   = build_a_test_category();

        my $preference = Koha::Patron::Message::Preference->new({

            categorycode         => $category->categorycode,

            message_attribute_id => $attribute->message_attribute_id,

            wants_digest         => 0,

            days_in_advance      => undef,

        })->store;

        my $pref_id = $preference->borrower_message_preference_id;

        my $transport_pref = Koha::Patron::Message::Transport::Preference->new({

            borrower_message_preference_id => $pref_id,

            message_transport_type => $mtt->message_transport_type,

        })->store;

        is(ref($transport_pref), 'Koha::Patron::Message::Transport::Preference',

           'Added a new messaging transport preference for category.');

        $transport_pref->delete;

        is(Koha::Patron::Message::Transport::Preferences->search({

            borrower_message_preference_id => $pref_id,

            message_transport_type => $mtt->message_transport_type,

        })->count, 0, 'Deleted the messaging transport preference.');

    };

    $schema->storage->txn_rollback;

};

sub build_a_test_attribute {

    my ($params) = @_;

    $params->{takes_days} = $params->{takes_days} && $params->{takes_days} > 0

                            ? 1 : 0;

    my $attribute = $builder->build({

        source => 'MessageAttribute',

        value => $params,

    });

    return Koha::Patron::Message::Attributes->find(

        $attribute->{message_attribute_id}

    );

}

sub build_a_test_category {

    my $categorycode   = $builder->build({

        source => 'Category' })->{categorycode};

    return Koha::Patron::Categories->find($categorycode);

}

sub build_a_test_letter {

    my ($params) = @_;

    my $mtt = $params->{mtt} ? $params->{mtt} : 'email';

    my $branchcode     = $builder->build({

        source => 'Branch' })->{branchcode};

    my $letter = $builder->build({

        source => 'Letter',

        value => {

            branchcode => '',

            is_html => 0,

            message_transport_type => $mtt

        }

    });

    return Koha::Notice::Templates->find({

        module => $letter->{module},

        code   => $letter->{code},

        branchcode => $letter->{branchcode},

    });

}

sub build_a_test_patron {

    my $categorycode   = $builder->build({

        source => 'Category' })->{categorycode};

    my $branchcode     = $builder->build({

        source => 'Branch' })->{branchcode};

    my $borrowernumber = $builder->build({

        source => 'Borrower' })->{borrowernumber};

    return Koha::Patrons->find($borrowernumber);

}

sub build_a_test_transport_type {

    my $mtt = $builder->build({

        source => 'MessageTransportType' });

    return Koha::Patron::Message::Transport::Types->find(

        $mtt->{message_transport_type}

    );

}

1;

#!/usr/bin/perl

# Copyright 2017 Koha-Suomi Oy

#

# This file is part of Koha

#

# Koha is free software; you can redistribute it and/or modify it

# under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 3 of the License, or

# (at your option) any later version.

#

# Koha is distributed in the hope that it will be useful, but

# WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;

use Test::More tests => 2;

use Koha::Database;

my $schema  = Koha::Database->new->schema;

subtest 'Test class imports' => sub {

    plan tests => 2;

    use_ok('Koha::Patron::Message::Transport::Type');

    use_ok('Koha::Patron::Message::Transport::Types');

};

subtest 'Test Koha::Patron::Message::Transport::Types' => sub {

    plan tests => 2;

    $schema->storage->txn_begin;

    my $transport_type = Koha::Patron::Message::Transport::Type->new({

        message_transport_type => 'test'

    })->store;

    is($transport_type->message_transport_type, 'test',

       'Added a new message transport type.');

    $transport_type->delete;

    is(Koha::Patron::Message::Transport::Types->find('test'), undef,

       'Deleted the message transport type.');

    $schema->storage->txn_rollback;

};

1;