From d1c040178832755b8d6a72bb49b8bd83b9547981 Mon Sep 17 00:00:00 2001 From: Julian FIOL Date: Tue, 5 May 2015 12:26:49 +0200 Subject: [PATCH] Bug 14147 : Add unit tests to C4::External::OverDrive This patch test 'IsOverDriveEnabled' subroutine TEST PLAN --------- 1. Apply patch 2. prove -v t/External/OverDrive.t -- All tests should run successfully without any error or warning TEST PLAN OPTIONAL ------------------ Check with bug 13899 to see the coverage of this module. Coverage BEFORE this patch : Statement : 47,5% Branch : 0,0% Condition : 0,0% Subroutine : 75,0% Coverage AFTER this patch : Statement : 49,1% Branch : 0,0% Condition : 33,3% Subroutine : 83,3% --- t/External/OverDrive.t | 54 ++++++++++++++++++++++++++++++++++++++++++++++++++ t/External_Overdrive.t | 13 ------------ 2 files changed, 54 insertions(+), 13 deletions(-) create mode 100755 t/External/OverDrive.t delete mode 100755 t/External_Overdrive.t diff --git a/t/External/OverDrive.t b/t/External/OverDrive.t new file mode 100755 index 0000000..a4eb1a7 --- /dev/null +++ b/t/External/OverDrive.t @@ -0,0 +1,54 @@ +#!/usr/bin/perl + +# Copyright 2015 BibLibre +# +# 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 . + +use Modern::Perl; +use C4::Context; +use t::lib::Mocks qw(mock_preference); +use Test::More tests => 6; + +BEGIN { + use_ok('C4::External::OverDrive'); +} + +can_ok( + 'C4::External::OverDrive', qw( + IsOverDriveEnabled + GetOverDriveToken ) +); + +# ---------- Testing IsOverDriveEnabled --------- + +t::lib::Mocks::mock_preference( "OverDriveClientKey", 0 ); +t::lib::Mocks::mock_preference( "OverDriveClientSecret", 0 ); + +is( IsOverDriveEnabled(), 0, 'IsOverDriveEnabled fail' ); + +t::lib::Mocks::mock_preference( "OverDriveClientKey", 0 ); +t::lib::Mocks::mock_preference( "OverDriveClientSecret", 1 ); + +is( IsOverDriveEnabled(), 0, 'IsOverDriveEnabled fail' ); + +t::lib::Mocks::mock_preference( "OverDriveClientKey", 1 ); +t::lib::Mocks::mock_preference( "OverDriveClientSecret", 0 ); + +is( IsOverDriveEnabled(), 0, 'IsOverDriveEnabled fail' ); + +t::lib::Mocks::mock_preference( "OverDriveClientKey", 1 ); +t::lib::Mocks::mock_preference( "OverDriveClientSecret", 1 ); + +is( IsOverDriveEnabled(), 1, 'IsOverDriveEnabled success' ); diff --git a/t/External_Overdrive.t b/t/External_Overdrive.t deleted file mode 100755 index a659846..0000000 --- a/t/External_Overdrive.t +++ /dev/null @@ -1,13 +0,0 @@ -#!/usr/bin/perl -# -# This Koha test module is a stub! -# Add more tests here!!! - -use strict; -use warnings; - -use Test::More tests => 1; - -BEGIN { - use_ok('C4::External::OverDrive'); -} -- 2.3.3