@@ -, +, @@ --- Koha/DB/Branch.pm | 36 ++++++++++++++++++++++++++ t/db_dependent/lib/KohaTest/Koha/DB/Branch.t | 27 +++++++++++++++++++ 2 files changed, 63 insertions(+) create mode 100644 Koha/DB/Branch.pm create mode 100755 t/db_dependent/lib/KohaTest/Koha/DB/Branch.t --- a/Koha/DB/Branch.pm +++ a/Koha/DB/Branch.pm @@ -0,0 +1,36 @@ +package Koha::DB::Branch; + +use Modern::Perl; +use C4::Context; #FIXME = create a Koha package for KOHA_CONF reading + +use Koha::Schema; + +use Moose; + +my $schema = Koha::Schema->connect( + 'dbi:mysql:dbname='.C4::Context->config("database"), + C4::Context->config("user"), + C4::Context->config("pass"), + { AutoCommit => 1 }, + ); + +sub create { + my ($self, $branch) = @_; + $schema->resultset('Branch')->create($branch); +} + +sub read { + my ($self, $branch) = @_; + return $schema->resultset('Branch')->search($branch); +} + +sub update { + my ($self, $branch) = @_; + return $schema->resultset('Branch')->search({branchcode => $branch->{branchcode}})->update($branch); +} + +sub delete { + my ($self,$branch) = @_; + $schema->resultset('Branch')->search($branch)->delete; +} + --- a/t/db_dependent/lib/KohaTest/Koha/DB/Branch.t +++ a/t/db_dependent/lib/KohaTest/Koha/DB/Branch.t @@ -0,0 +1,27 @@ +#!/usr/bin/perl + +use v5.10.0; +use Modern::Perl; + +use Test::More tests => 5; + +BEGIN { + use_ok('Koha::DB::Branch', 'Loading Koha::DB::Branch OK'); +} + +# open a handler to the branch +my $branch = Koha::DB::Branch->new(); + +# CREATE +ok($branch->create({'branchcode' => 'TEST','branchname' => 'TEST NAME'})->id eq 'TEST','Creating a branch OK'); + +# READ +ok(my $branch_f = $branch->read({'branchcode' => 'TEST'})->first->branchname eq 'TEST NAME','Reading a branch OK'); + +# UPDATE +$branch->update({'branchcode' => 'TEST','branchname' => 'TEST UPDATED'}); +ok($branch_f = $branch->read({'branchcode' => 'TEST'})->first->branchname eq 'TEST UPDATED','Updating a branch OK'); + +# DELETE +ok($branch->delete({'branchcode' => 'TEST'}),'Deleting a branch OK'); + --