From f879443c64f1696020aaef4b32fb227aed3a9024 Mon Sep 17 00:00:00 2001
From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Date: Fri, 25 Oct 2019 07:14:18 +0000
Subject: [PATCH] Bug 21190: Prepare Log.t for further changes

This patch only makes cosmetic changes:
[1] It moves the existing tests at 'root level' inside a new subtest.
[2] It obviously adds indentation for step 1.
[3] It fixes some whitespace (tabs, space before newline)

Test plan:
Run t/db../Log.t

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Jon Knight <J.P.Knight@lboro.ac.uk>

Signed-off-by: Michal Denar <black23@gmail.com>
---
 t/db_dependent/Log.t | 104 ++++++++++++++++++++++++++-------------------------
 1 file changed, 54 insertions(+), 50 deletions(-)

diff --git a/t/db_dependent/Log.t b/t/db_dependent/Log.t
index 82c9b59012..3267e08ebf 100644
--- a/t/db_dependent/Log.t
+++ b/t/db_dependent/Log.t
@@ -1,11 +1,11 @@
 #!/usr/bin/perl
 #
 # Copyright 2011 MJ Ray and software.coop
-# This Koha test module is a stub!  
+# This Koha test module is a stub!
 # Add more tests here!!!
 
 use Modern::Perl;
-use Test::More tests => 10;
+use Test::More tests => 5;
 
 use C4::Context;
 use Koha::Database;
@@ -16,7 +16,7 @@ use t::lib::Mocks qw/mock_preference/; # to mock CronjobLog
 $| = 1;
 
 BEGIN {
-	use_ok('C4::Log');
+    use_ok('C4::Log');
 }
 my $success;
 
@@ -25,55 +25,59 @@ my $schema  = Koha::Database->new->schema;
 $schema->storage->txn_begin;
 my $dbh = C4::Context->dbh;
 
-eval {
-    # FIXME: are we sure there is an member number 1?
-    logaction("MEMBERS","MODIFY",1,"test operation");
-    $success = 1;
-} or do {
-    diag($@);
-    $success = 0;
-};
-ok($success, "logaction seemed to work");
-
-eval {
-    # FIXME: US formatted date hardcoded into test for now
-    $success = scalar(@{GetLogs("","","",undef,undef,"","")});
-} or do {
-    diag($@);
-    $success = 0;
-};
-ok($success, "GetLogs returns results for an open search");
-
-eval {
-    # FIXME: US formatted date hardcoded into test for now
-    my $date = output_pref( { dt => dt_from_string, dateonly => 1, dateformat => 'iso' } );
-    $success = scalar(@{GetLogs( $date, $date, "", undef, undef, "", "") } );
-} or do {
-    diag($@);
-    $success = 0;
-};
-ok($success, "GetLogs accepts dates in an All-matching search");
-
-eval {
-    $success = scalar(@{GetLogs("","","",["MEMBERS"],["MODIFY"],1,"")});
-} or do {
-    diag($@);
-    $success = 0;
-};
-ok($success, "GetLogs seemed to find ".$success." like our test record in a tighter search");
-
-# We want numbers to be the same between runs.
-$dbh->do("DELETE FROM action_logs;");
+subtest 'Existing tests' => sub {
+    plan tests => 6;
+
+    eval {
+        # FIXME: are we sure there is an member number 1?
+        logaction("MEMBERS","MODIFY",1,"test operation");
+        $success = 1;
+    } or do {
+        diag($@);
+        $success = 0;
+    };
+    ok($success, "logaction seemed to work");
+
+    eval {
+        # FIXME: US formatted date hardcoded into test for now
+        $success = scalar(@{GetLogs("","","",undef,undef,"","")});
+    } or do {
+        diag($@);
+        $success = 0;
+    };
+    ok($success, "GetLogs returns results for an open search");
+
+    eval {
+        # FIXME: US formatted date hardcoded into test for now
+        my $date = output_pref( { dt => dt_from_string, dateonly => 1, dateformat => 'iso' } );
+        $success = scalar(@{GetLogs( $date, $date, "", undef, undef, "", "") } );
+    } or do {
+        diag($@);
+        $success = 0;
+    };
+    ok($success, "GetLogs accepts dates in an All-matching search");
+
+    eval {
+        $success = scalar(@{GetLogs("","","",["MEMBERS"],["MODIFY"],1,"")});
+    } or do {
+        diag($@);
+        $success = 0;
+    };
+    ok($success, "GetLogs seemed to find ".$success." like our test record in a tighter search");
+
+    # We want numbers to be the same between runs.
+    $dbh->do("DELETE FROM action_logs;");
 
-t::lib::Mocks::mock_preference('CronjobLog',0);
-cronlogaction();
-my $cronJobCount = $dbh->selectrow_array("SELECT COUNT(*) FROM action_logs WHERE module='CRONJOBS';",{});
-is($cronJobCount,0,"Cronjob not logged as expected.");
+    t::lib::Mocks::mock_preference('CronjobLog',0);
+    cronlogaction();
+    my $cronJobCount = $dbh->selectrow_array("SELECT COUNT(*) FROM action_logs WHERE module='CRONJOBS';",{});
+    is($cronJobCount,0,"Cronjob not logged as expected.");
 
-t::lib::Mocks::mock_preference('CronjobLog',1);
-cronlogaction();
-$cronJobCount = $dbh->selectrow_array("SELECT COUNT(*) FROM action_logs WHERE module='CRONJOBS';",{});
-is($cronJobCount,1,"Cronjob logged as expected.");
+    t::lib::Mocks::mock_preference('CronjobLog',1);
+    cronlogaction();
+    $cronJobCount = $dbh->selectrow_array("SELECT COUNT(*) FROM action_logs WHERE module='CRONJOBS';",{});
+    is($cronJobCount,1,"Cronjob logged as expected.");
+};
 
 subtest "GetLogs should return all logs if dates are not set" => sub {
     plan tests => 2;
-- 
2.11.0