Attachment #85758 for bug #21846

View | Details | Raw Unified | Return to bug 21846
Collapse All | Expand All




package Koha::Tag;

# 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 Carp;

use base qw(Koha::Object);

=head1 NAME

Koha::Tag - Koha Tag Object class

=head1 API

=head2 Internal methods

=cut

=head3 _type

=cut

sub _type {
    return 'TagAll';
}

1;




package Koha::Tags;

# 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 Carp;

use Koha::Tag;

use base qw(Koha::Objects);

=head1 NAME

Koha::Tags - Koha Tags Object set class

=head1 API

=head2 Internal methods

=cut

=head3 _type

=cut

sub _type {
    return 'TagAll';
}

=head3 object_class

=cut

sub object_class {
    return 'Koha::Tag';
}

1;




package Koha::Tags::Approval;

# 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 Carp;

use base qw(Koha::Object);

=head1 NAME

Koha::Tags::Approval - Koha Tag approval Object class

=head1 API

=head2 Internal methods

=cut

=head3 _type

=cut

sub _type {
    return 'TagsApproval';
}

1;




package Koha::Tags::Approvals;

# 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 Carp;

use Koha::Tags::Approval;

use base qw(Koha::Objects);

=head1 NAME

Koha::Tags::Approvals - Koha Tag Approvals Object set class

=head1 API

=head2 Internal methods

=cut

=head3 _type

=cut

sub _type {
    return 'TagsApproval';
}

=head3 object_class

=cut

sub object_class {
    return 'Koha::Tags::Approval';
}

1;




package Koha::Tags::Index;

# 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 Carp;

use base qw(Koha::Object);

=head1 NAME

Koha::Tags::Index - Koha Tag approval Object class

=head1 API

=head2 Internal methods

=cut

=head3 _type

=cut

sub _type {
    return 'TagsIndex';
}

1;




package Koha::Tags::Indexes;

# 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 Carp;

use Koha::Tags::Index;

use base qw(Koha::Objects);

=head1 NAME

Koha::Tags::Indexes - Koha Tag Indexes Object set class

=head1 API

=head2 Internal methods

=cut

=head3 _type

=cut

sub _type {
    return 'TagsIndex';
}

=head3 object_class

=cut

sub object_class {
    return 'Koha::Tags::Index';
}

1;




#!/usr/bin/perl

# 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 => 1;

use t::lib::TestBuilder;

use Koha::Database;
use Koha::Tags;

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

subtest 'search() tests' => sub {

    plan tests => 1;

    $schema->storage->txn_begin;

    my $current_count = Koha::Tags->search->count;

    my $approval_1 = $builder->build_object({ class => 'Koha::Tags' });
    my $approval_2 = $builder->build_object({ class => 'Koha::Tags' });

    is( Koha::Tags->search->count, $current_count + 2, 'Tags count consistent' );

    $schema->storage->txn_rollback;

};




#!/usr/bin/perl

# 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 => 1;

use t::lib::TestBuilder;

use Koha::Database;
use Koha::Tags::Approvals;

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

subtest 'search() tests' => sub {

    plan tests => 1;

    $schema->storage->txn_begin;

    my $current_count = Koha::Tags::Approvals->search->count;

    my $approval_1 = $builder->build_object({ class => 'Koha::Tags::Approvals' });
    my $approval_2 = $builder->build_object({ class => 'Koha::Tags::Approvals' });

    is( Koha::Tags::Approvals->search->count, $current_count + 2, 'Approvals count consistent' );

    $schema->storage->txn_rollback;

};




#!/usr/bin/perl

# 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 => 1;

use t::lib::TestBuilder;

use Koha::Database;
use Koha::Tags::Indexes;

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

subtest 'search() tests' => sub {

    plan tests => 1;

    $schema->storage->txn_begin;

    my $current_count = Koha::Tags::Indexes->search->count;

    my $approval_1 = $builder->build_object({ class => 'Koha::Tags::Indexes' });
    my $approval_2 = $builder->build_object({ class => 'Koha::Tags::Indexes' });

    is( Koha::Tags::Indexes->search->count, $current_count + 2, 'Indexes count consistent' );

    $schema->storage->txn_rollback;

};

Return to bug 21846

Line 0 Link Here

(-)a/Koha/Tag.pm (+42 lines)
	1	package Koha::Tag;
	2
	3	# This file is part of Koha.
	4	#
	5	# Koha is free software; you can redistribute it and/or modify it under the
	6	# terms of the GNU General Public License as published by the Free Software
	7	# Foundation; either version 3 of the License, or (at your option) any later
	8	# version.
	9	#
	10	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
	11	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
	12	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
	13	#
	14	# You should have received a copy of the GNU General Public License along
	15	# with Koha; if not, write to the Free Software Foundation, Inc.,
	16	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
	17
	18	use Modern::Perl;
	19
	20	use Carp;
	21
	22	use base qw(Koha::Object);
	23
	24	=head1 NAME
	25
	26	Koha::Tag - Koha Tag Object class
	27
	28	=head1 API
	29
	30	=head2 Internal methods
	31
	32	=cut
	33
	34	=head3 _type
	35
	36	=cut
	37
	38	sub _type {
	39	return 'TagAll';
	40	}
	41
	42	1;

Line 0 Link Here

(-)a/Koha/Tags.pm (+52 lines)
	1	package Koha::Tags;
	2
	3	# This file is part of Koha.
	4	#
	5	# Koha is free software; you can redistribute it and/or modify it under the
	6	# terms of the GNU General Public License as published by the Free Software
	7	# Foundation; either version 3 of the License, or (at your option) any later
	8	# version.
	9	#
	10	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
	11	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
	12	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
	13	#
	14	# You should have received a copy of the GNU General Public License along
	15	# with Koha; if not, write to the Free Software Foundation, Inc.,
	16	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
	17
	18	use Modern::Perl;
	19
	20	use Carp;
	21
	22	use Koha::Tag;
	23
	24	use base qw(Koha::Objects);
	25
	26	=head1 NAME
	27
	28	Koha::Tags - Koha Tags Object set class
	29
	30	=head1 API
	31
	32	=head2 Internal methods
	33
	34	=cut
	35
	36	=head3 _type
	37
	38	=cut
	39
	40	sub _type {
	41	return 'TagAll';
	42	}
	43
	44	=head3 object_class
	45
	46	=cut
	47
	48	sub object_class {
	49	return 'Koha::Tag';
	50	}
	51
	52	1;

Line 0 Link Here

(-)a/Koha/Tags/Approval.pm (+42 lines)
	1	package Koha::Tags::Approval;
	2
	3	# This file is part of Koha.
	4	#
	5	# Koha is free software; you can redistribute it and/or modify it under the
	6	# terms of the GNU General Public License as published by the Free Software
	7	# Foundation; either version 3 of the License, or (at your option) any later
	8	# version.
	9	#
	10	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
	11	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
	12	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
	13	#
	14	# You should have received a copy of the GNU General Public License along
	15	# with Koha; if not, write to the Free Software Foundation, Inc.,
	16	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
	17
	18	use Modern::Perl;
	19
	20	use Carp;
	21
	22	use base qw(Koha::Object);
	23
	24	=head1 NAME
	25
	26	Koha::Tags::Approval - Koha Tag approval Object class
	27
	28	=head1 API
	29
	30	=head2 Internal methods
	31
	32	=cut
	33
	34	=head3 _type
	35
	36	=cut
	37
	38	sub _type {
	39	return 'TagsApproval';
	40	}
	41
	42	1;

Line 0 Link Here

(-)a/Koha/Tags/Approvals.pm (+52 lines)
	1	package Koha::Tags::Approvals;
	2
	3	# This file is part of Koha.
	4	#
	5	# Koha is free software; you can redistribute it and/or modify it under the
	6	# terms of the GNU General Public License as published by the Free Software
	7	# Foundation; either version 3 of the License, or (at your option) any later
	8	# version.
	9	#
	10	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
	11	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
	12	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
	13	#
	14	# You should have received a copy of the GNU General Public License along
	15	# with Koha; if not, write to the Free Software Foundation, Inc.,
	16	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
	17
	18	use Modern::Perl;
	19
	20	use Carp;
	21
	22	use Koha::Tags::Approval;
	23
	24	use base qw(Koha::Objects);
	25
	26	=head1 NAME
	27
	28	Koha::Tags::Approvals - Koha Tag Approvals Object set class
	29
	30	=head1 API
	31
	32	=head2 Internal methods
	33
	34	=cut
	35
	36	=head3 _type
	37
	38	=cut
	39
	40	sub _type {
	41	return 'TagsApproval';
	42	}
	43
	44	=head3 object_class
	45
	46	=cut
	47
	48	sub object_class {
	49	return 'Koha::Tags::Approval';
	50	}
	51
	52	1;

Line 0 Link Here

(-)a/Koha/Tags/Index.pm (+42 lines)
	1	package Koha::Tags::Index;
	2
	3	# This file is part of Koha.
	4	#
	5	# Koha is free software; you can redistribute it and/or modify it under the
	6	# terms of the GNU General Public License as published by the Free Software
	7	# Foundation; either version 3 of the License, or (at your option) any later
	8	# version.
	9	#
	10	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
	11	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
	12	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
	13	#
	14	# You should have received a copy of the GNU General Public License along
	15	# with Koha; if not, write to the Free Software Foundation, Inc.,
	16	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
	17
	18	use Modern::Perl;
	19
	20	use Carp;
	21
	22	use base qw(Koha::Object);
	23
	24	=head1 NAME
	25
	26	Koha::Tags::Index - Koha Tag approval Object class
	27
	28	=head1 API
	29
	30	=head2 Internal methods
	31
	32	=cut
	33
	34	=head3 _type
	35
	36	=cut
	37
	38	sub _type {
	39	return 'TagsIndex';
	40	}
	41
	42	1;

Line 0 Link Here

(-)a/Koha/Tags/Indexes.pm (+52 lines)
	1	package Koha::Tags::Indexes;
	2
	3	# This file is part of Koha.
	4	#
	5	# Koha is free software; you can redistribute it and/or modify it under the
	6	# terms of the GNU General Public License as published by the Free Software
	7	# Foundation; either version 3 of the License, or (at your option) any later
	8	# version.
	9	#
	10	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
	11	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
	12	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
	13	#
	14	# You should have received a copy of the GNU General Public License along
	15	# with Koha; if not, write to the Free Software Foundation, Inc.,
	16	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
	17
	18	use Modern::Perl;
	19
	20	use Carp;
	21
	22	use Koha::Tags::Index;
	23
	24	use base qw(Koha::Objects);
	25
	26	=head1 NAME
	27
	28	Koha::Tags::Indexes - Koha Tag Indexes Object set class
	29
	30	=head1 API
	31
	32	=head2 Internal methods
	33
	34	=cut
	35
	36	=head3 _type
	37
	38	=cut
	39
	40	sub _type {
	41	return 'TagsIndex';
	42	}
	43
	44	=head3 object_class
	45
	46	=cut
	47
	48	sub object_class {
	49	return 'Koha::Tags::Index';
	50	}
	51
	52	1;

Line 0 Link Here

(-)a/t/db_dependent/Koha/Tags.t (+45 lines)
	1	#!/usr/bin/perl
	2
	3	# This file is part of Koha.
	4	#
	5	# Koha is free software; you can redistribute it and/or modify it
	6	# under the terms of the GNU General Public License as published by
	7	# the Free Software Foundation; either version 3 of the License, or
	8	# (at your option) any later version.
	9	#
	10	# Koha is distributed in the hope that it will be useful, but
	11	# WITHOUT ANY WARRANTY; without even the implied warranty of
	12	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	13	# GNU General Public License for more details.
	14	#
	15	# You should have received a copy of the GNU General Public License
	16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
	17
	18	use Modern::Perl;
	19
	20	use Test::More tests => 1;
	21
	22	use t::lib::TestBuilder;
	23
	24	use Koha::Database;
	25	use Koha::Tags;
	26
	27	my $schema = Koha::Database->schema;
	28	my $builder = t::lib::TestBuilder->new;
	29
	30	subtest 'search() tests' => sub {
	31
	32	plan tests => 1;
	33
	34	$schema->storage->txn_begin;
	35
	36	my $current_count = Koha::Tags->search->count;
	37
	38	my $approval_1 = $builder->build_object({ class => 'Koha::Tags' });
	39	my $approval_2 = $builder->build_object({ class => 'Koha::Tags' });
	40
	41	is( Koha::Tags->search->count, $current_count + 2, 'Tags count consistent' );
	42
	43	$schema->storage->txn_rollback;
	44
	45	};

Line 0 Link Here

(-)a/t/db_dependent/Koha/Tags/Approvals.t (+45 lines)
	1	#!/usr/bin/perl
	2
	3	# This file is part of Koha.
	4	#
	5	# Koha is free software; you can redistribute it and/or modify it
	6	# under the terms of the GNU General Public License as published by
	7	# the Free Software Foundation; either version 3 of the License, or
	8	# (at your option) any later version.
	9	#
	10	# Koha is distributed in the hope that it will be useful, but
	11	# WITHOUT ANY WARRANTY; without even the implied warranty of
	12	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	13	# GNU General Public License for more details.
	14	#
	15	# You should have received a copy of the GNU General Public License
	16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
	17
	18	use Modern::Perl;
	19
	20	use Test::More tests => 1;
	21
	22	use t::lib::TestBuilder;
	23
	24	use Koha::Database;
	25	use Koha::Tags::Approvals;
	26
	27	my $schema = Koha::Database->schema;
	28	my $builder = t::lib::TestBuilder->new;
	29
	30	subtest 'search() tests' => sub {
	31
	32	plan tests => 1;
	33
	34	$schema->storage->txn_begin;
	35
	36	my $current_count = Koha::Tags::Approvals->search->count;
	37
	38	my $approval_1 = $builder->build_object({ class => 'Koha::Tags::Approvals' });
	39	my $approval_2 = $builder->build_object({ class => 'Koha::Tags::Approvals' });
	40
	41	is( Koha::Tags::Approvals->search->count, $current_count + 2, 'Approvals count consistent' );
	42
	43	$schema->storage->txn_rollback;
	44
	45	};

Line 0 Link Here

(-)a/t/db_dependent/Koha/Tags/Indexes.t (-1 / +45 lines)
0	-	1	#!/usr/bin/perl
		2
		3	# This file is part of Koha.
		4	#
		5	# Koha is free software; you can redistribute it and/or modify it
		6	# under the terms of the GNU General Public License as published by
		7	# the Free Software Foundation; either version 3 of the License, or
		8	# (at your option) any later version.
		9	#
		10	# Koha is distributed in the hope that it will be useful, but
		11	# WITHOUT ANY WARRANTY; without even the implied warranty of
		12	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		13	# GNU General Public License for more details.
		14	#
		15	# You should have received a copy of the GNU General Public License
		16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
		17
		18	use Modern::Perl;
		19
		20	use Test::More tests => 1;
		21
		22	use t::lib::TestBuilder;
		23
		24	use Koha::Database;
		25	use Koha::Tags::Indexes;
		26
		27	my $schema = Koha::Database->schema;
		28	my $builder = t::lib::TestBuilder->new;
		29
		30	subtest 'search() tests' => sub {
		31
		32	plan tests => 1;
		33
		34	$schema->storage->txn_begin;
		35
		36	my $current_count = Koha::Tags::Indexes->search->count;
		37
		38	my $approval_1 = $builder->build_object({ class => 'Koha::Tags::Indexes' });
		39	my $approval_2 = $builder->build_object({ class => 'Koha::Tags::Indexes' });
		40
		41	is( Koha::Tags::Indexes->search->count, $current_count + 2, 'Indexes count consistent' );
		42
		43	$schema->storage->txn_rollback;
		44
		45	};