Bugzilla – Attachment 52926 Details for
Bug 14757
Allow the use of Template Toolkit syntax for slips and notices
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 14757: Add tests for new modules
Bug-14757-Add-tests-for-new-modules.patch (text/plain), 7.63 KB, created by
Jonathan Druart
on 2016-06-28 13:46:41 UTC
(
hide
)
Description:
Bug 14757: Add tests for new modules
Filename:
MIME Type:
Creator:
Jonathan Druart
Created:
2016-06-28 13:46:41 UTC
Size:
7.63 KB
patch
obsolete
>From fe239c37af7f42f0cca4db9868e95b951646579a Mon Sep 17 00:00:00 2001 >From: Jonathan Druart <jonathan.druart@bugs.koha-community.org> >Date: Fri, 24 Jun 2016 15:28:43 +0100 >Subject: [PATCH] Bug 14757: Add tests for new modules > >Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org> >--- > t/db_dependent/Koha/Checkouts.t | 63 +++++++++++++++++++++++++++++++++++++++ > t/db_dependent/Koha/News.t | 56 ++++++++++++++++++++++++++++++++++ > t/db_dependent/Koha/Suggestions.t | 60 +++++++++++++++++++++++++++++++++++++ > 3 files changed, 179 insertions(+) > create mode 100644 t/db_dependent/Koha/Checkouts.t > create mode 100644 t/db_dependent/Koha/News.t > create mode 100644 t/db_dependent/Koha/Suggestions.t > >diff --git a/t/db_dependent/Koha/Checkouts.t b/t/db_dependent/Koha/Checkouts.t >new file mode 100644 >index 0000000..e8b1341 >--- /dev/null >+++ b/t/db_dependent/Koha/Checkouts.t >@@ -0,0 +1,63 @@ >+#!/usr/bin/perl >+ >+# Copyright 2015 Koha Development team >+# >+# 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 => 4; >+ >+use Koha::Checkout; >+use Koha::Checkouts; >+use Koha::Database; >+ >+use t::lib::TestBuilder; >+ >+my $schema = Koha::Database->new->schema; >+$schema->storage->txn_begin; >+ >+my $builder = t::lib::TestBuilder->new; >+my $library = $builder->build( { source => 'Branch' } ); >+my $patron = $builder->build( { source => 'Borrower', value => { branchcode => $library->{branchcode} } } ); >+my $item_1 = $builder->build( { source => 'Item' } ); >+my $item_2 = $builder->build( { source => 'Item' } ); >+my $nb_of_checkouts = Koha::Checkouts->search->count; >+my $new_checkout_1 = Koha::Checkout->new( >+ { borrowernumber => $patron->{borrowernumber}, >+ itemnumber => $item_1->{itemnumber}, >+ branchcode => $library->{branchcode}, >+ } >+)->store; >+my $new_checkout_2 = Koha::Checkout->new( >+ { borrowernumber => $patron->{borrowernumber}, >+ itemnumber => $item_2->{itemnumber}, >+ branchcode => $library->{branchcode}, >+ } >+)->store; >+ >+like( $new_checkout_1->issue_id, qr|^\d+$|, 'Adding a new checkout should have set the issue_id' ); >+is( Koha::Checkouts->search->count, $nb_of_checkouts + 2, 'The 2 checkouts should have been added' ); >+ >+my $retrieved_checkout_1 = Koha::Checkouts->find( $new_checkout_1->issue_id ); >+is( $retrieved_checkout_1->itemnumber, $new_checkout_1->itemnumber, 'Find a checkout by id should return the correct checkout' ); >+ >+$retrieved_checkout_1->delete; >+is( Koha::Checkouts->search->count, $nb_of_checkouts + 1, 'Delete should have deleted the checkout' ); >+ >+$schema->storage->txn_rollback; >+ >+1; >diff --git a/t/db_dependent/Koha/News.t b/t/db_dependent/Koha/News.t >new file mode 100644 >index 0000000..8061bde >--- /dev/null >+++ b/t/db_dependent/Koha/News.t >@@ -0,0 +1,56 @@ >+#!/usr/bin/perl >+ >+# Copyright 2015 Koha Development team >+# >+# 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 => 4; >+ >+use Koha::NewsItem; >+use Koha::News; >+use Koha::Database; >+ >+use t::lib::TestBuilder; >+ >+my $schema = Koha::Database->new->schema; >+$schema->storage->txn_begin; >+ >+my $builder = t::lib::TestBuilder->new; >+my $library = $builder->build({ source => 'Branch'}); >+my $nb_of_news = Koha::News->search->count; >+my $new_news_item_1 = Koha::NewsItem->new({ >+ branchcode => $library->{branchcode}, >+ title => 'a news', >+})->store; >+my $new_news_item_2 = Koha::NewsItem->new({ >+ branchcode => $library->{branchcode}, >+ title => 'another news', >+})->store; >+ >+like( $new_news_item_1->idnew, qr|^\d+$|, 'Adding a new news_item should have set the idnew'); >+is( Koha::News->search->count, $nb_of_news + 2, 'The 2 news should have been added' ); >+ >+my $retrieved_news_item_1 = Koha::News->find( $new_news_item_1->idnew ); >+is( $retrieved_news_item_1->title, $new_news_item_1->title, 'Find a news_item by id should return the correct news_item' ); >+ >+$retrieved_news_item_1->delete; >+is( Koha::News->search->count, $nb_of_news + 1, 'Delete should have deleted the news_item' ); >+ >+$schema->storage->txn_rollback; >+ >+1; >diff --git a/t/db_dependent/Koha/Suggestions.t b/t/db_dependent/Koha/Suggestions.t >new file mode 100644 >index 0000000..e29f2af >--- /dev/null >+++ b/t/db_dependent/Koha/Suggestions.t >@@ -0,0 +1,60 @@ >+#!/usr/bin/perl >+ >+# Copyright 2015 Koha Development team >+# >+# 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 => 4; >+ >+use Koha::Suggestion; >+use Koha::Suggestions; >+use Koha::Database; >+ >+use t::lib::TestBuilder; >+ >+my $schema = Koha::Database->new->schema; >+$schema->storage->txn_begin; >+ >+my $builder = t::lib::TestBuilder->new; >+my $biblio_1 = $builder->build( { source => 'Biblio' } ); >+my $biblio_2 = $builder->build( { source => 'Biblio' } ); >+my $patron = $builder->build( { source => 'Borrower' } ); >+my $nb_of_suggestions = Koha::Suggestions->search->count; >+my $new_suggestion_1 = Koha::Suggestion->new( >+ { suggestedby => $patron->{borrowernumber}, >+ biblionumber => $biblio_1->{biblionumber}, >+ } >+)->store; >+my $new_suggestion_2 = Koha::Suggestion->new( >+ { suggestedby => $patron->{borrowernumber}, >+ biblionumber => $biblio_2->{biblionumber}, >+ } >+)->store; >+ >+like( $new_suggestion_1->suggestionid, qr|^\d+$|, 'Adding a new suggestion should have set the suggestionid' ); >+is( Koha::Suggestions->search->count, $nb_of_suggestions + 2, 'The 2 suggestions should have been added' ); >+ >+my $retrieved_suggestion_1 = Koha::Suggestions->find( $new_suggestion_1->suggestionid ); >+is( $retrieved_suggestion_1->biblionumber, $new_suggestion_1->biblionumber, 'Find a suggestion by id should return the correct suggestion' ); >+ >+$retrieved_suggestion_1->delete; >+is( Koha::Suggestions->search->count, $nb_of_suggestions + 1, 'Delete should have deleted the suggestion' ); >+ >+$schema->storage->txn_rollback; >+ >+1; >-- >2.8.1
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 14757
:
45325
|
45884
|
47123
|
47131
|
47176
|
47177
|
47865
|
47866
|
48498
|
48499
|
48500
|
48619
|
48620
|
48621
|
48622
|
48805
|
48806
|
48807
|
48808
|
48809
|
48810
|
52758
|
52759
|
52760
|
52761
|
52805
|
52806
|
52807
|
52895
|
52924
|
52925
| 52926 |
52927
|
52928