From 20b842e7b0ae1d0378c37ad854532cd1294c574f Mon Sep 17 00:00:00 2001
From: Tomas Cohen Arazi <tomascohen@gmail.com>
Date: Thu, 7 May 2015 14:12:14 -0300
Subject: [PATCH] Bug 13758: (QA followup) revert case change that broke the
 tests

Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
---
 t/Koha_Template_Plugin_Koha.t | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/t/Koha_Template_Plugin_Koha.t b/t/Koha_Template_Plugin_Koha.t
index 50c198f..950257c 100644
--- a/t/Koha_Template_Plugin_Koha.t
+++ b/t/Koha_Template_Plugin_Koha.t
@@ -26,7 +26,7 @@ use String::Random;
 use_ok( 'Koha::Template::Plugin::Koha' );
 ok( my $cache = Koha::Template::Plugin::Koha->new() );
 
-subtest "Koha::Template::Plugin::Koha::version tests" => sub {
+subtest "Koha::Template::Plugin::Koha::Version tests" => sub {
 
     plan tests => 2;
 
@@ -38,7 +38,7 @@ subtest "Koha::Template::Plugin::Koha::version tests" => sub {
 
     # Mock Koha::version()
     my $koha = new Test::MockModule('Koha');
-    $koha->mock( 'Version', sub {
+    $koha->mock( 'version', sub {
         return "$major.$minor.$maintenance.$development";
     });
 
@@ -49,7 +49,7 @@ subtest "Koha::Template::Plugin::Koha::version tests" => sub {
     $maintenance = $rnd->randregex('\d\d');
     $development = $rnd->randregex('\d\d\d');
     my $version = "$major.$minor.$maintenance.$development";
-    my $res = Koha::Template::Plugin::Koha::version( $version );
+    my $res = Koha::Template::Plugin::Koha::Version( $version );
     is_deeply( $res, {
         major       => $major,
         release     => $major . "." . $minor,
@@ -64,7 +64,7 @@ subtest "Koha::Template::Plugin::Koha::version tests" => sub {
     $maintenance = $rnd->randregex('\d\d');
     $development = "000";
     $version = "$major.$minor.$maintenance.$development";
-    $res = Koha::Template::Plugin::Koha::version( $version );
+    $res = Koha::Template::Plugin::Koha::Version( $version );
     is_deeply( $res, {
         major       => $major,
         release     => $major . "." . $minor,
-- 
2.4.0