From 44d4dc70404e596648415f3db60ff7975e986281 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Sat, 19 Nov 2016 17:24:11 +0100 Subject: [PATCH] Bug 17501: Introduce Koha::Object[s] classes for UploadedFile(s) In the next set of patches we will start using these new classes in Koha::Upload, and scripts using it. This is just the starting point of that migration. Test plan: [1] Run t/db_dependent/Upload.t Signed-off-by: Marcel de Rooy Signed-off-by: Tomas Cohen Arazi Signed-off-by: Jonathan Druart Signed-off-by: Kyle M Hall --- Koha/UploadedFile.pm | 73 +++++++++++++++++++++++++++++++++++ Koha/UploadedFiles.pm | 84 +++++++++++++++++++++++++++++++++++++++++ t/db_dependent/Upload.t | 20 +++++++++- 3 files changed, 176 insertions(+), 1 deletion(-) create mode 100644 Koha/UploadedFile.pm create mode 100644 Koha/UploadedFiles.pm diff --git a/Koha/UploadedFile.pm b/Koha/UploadedFile.pm new file mode 100644 index 0000000000..5e573baccb --- /dev/null +++ b/Koha/UploadedFile.pm @@ -0,0 +1,73 @@ +package Koha::UploadedFile; + +# Copyright Rijksmuseum 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 parent qw(Koha::Object); + +=head1 NAME + +Koha::UploadedFile - Koha::Object class for single uploaded file + +=head1 SYNOPSIS + +use Koha::UploadedFile; + +=head1 DESCRIPTION + +Description + +=head1 METHODS + +=head2 INSTANCE METHODS + +=head3 delete + +Delete uploaded file (to be extended) + +=cut + +sub delete { + my ( $self, $params ) = @_; + $self->SUPER::delete( $params ); +} + +=head2 CLASS METHODS + +=head3 _type + +Returns name of corresponding DBIC resultset + +=cut + +sub _type { + return 'UploadedFile'; +} + +=head1 AUTHOR + +Marcel de Rooy (Rijksmuseum) + +Koha Development Team + +=cut + +1; diff --git a/Koha/UploadedFiles.pm b/Koha/UploadedFiles.pm new file mode 100644 index 0000000000..23bb52a9bb --- /dev/null +++ b/Koha/UploadedFiles.pm @@ -0,0 +1,84 @@ +package Koha::UploadedFiles; + +# Copyright Rijksmuseum 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::UploadedFile; + +use parent qw(Koha::Objects); + +=head1 NAME + +Koha::UploadedFiles - Koha::Objects class for uploaded files + +=head1 SYNOPSIS + +use Koha::UploadedFiles; + +=head1 DESCRIPTION + +Description + +=head1 METHODS + +=head2 INSTANCE METHODS + +=head3 delete + +Delete uploaded files + +=cut + +sub delete { + my ( $self, $params ) = @_; + $self->SUPER::delete( $params ); +} + +=head2 CLASS METHODS + +=head3 _type + +Returns name of corresponding DBIC resultset + +=cut + +sub _type { + return 'UploadedFile'; +} + +=head3 object_class + +Returns name of corresponding Koha object class + +=cut + +sub object_class { + return 'Koha::UploadedFile'; +} + +=head1 AUTHOR + +Marcel de Rooy (Rijksmuseum) + +Koha Development Team + +=cut + +1; diff --git a/t/db_dependent/Upload.t b/t/db_dependent/Upload.t index 20791f3964..6c69521b8c 100644 --- a/t/db_dependent/Upload.t +++ b/t/db_dependent/Upload.t @@ -2,7 +2,7 @@ use Modern::Perl; use File::Temp qw/ tempdir /; -use Test::More tests => 8; +use Test::More tests => 9; use Test::MockModule; use t::lib::Mocks; @@ -11,6 +11,7 @@ use t::lib::TestBuilder; use C4::Context; use Koha::Database; use Koha::Upload; +use Koha::UploadedFiles; my $schema = Koha::Database->new->schema; $schema->storage->txn_begin; @@ -204,6 +205,23 @@ sub test08 { # allows_add_by 1, 'Patron is still allowed to add uploaded files' ); } +# Additional tests for Koha::UploadedFiles +# TODO Rearrange the tests after this migration +subtest 'Some basic CRUD testing' => sub { + plan tests => 2; + + # Test find and attribute id, delete and search + my $builder = t::lib::TestBuilder->new; + my $upload01 = $builder->build({ source => 'UploadedFile' }); + my $found = Koha::UploadedFiles->find( $upload01->{id} ); + is( $found->id, $upload01->{id}, 'Koha::Object returns id' ); + $found->delete; + $found = Koha::UploadedFiles->search( + { id => $upload01->{id} }, + ); + is( $found->count, 0, 'Delete seems successful' ); +}; + sub newCGI { my ( $class, $hook ) = @_; my $read = 0;