From f5f9f4e1a7b5d935a5f509359b63b69b218b48a1 Mon Sep 17 00:00:00 2001
From: Brian Cox <BrianRCox@gmail.com>
Date: Sun, 15 Sep 2019 16:17:38 -0700
Subject: [PATCH] add some diagnostic logging to test-harness tests to capture
 expected vs observed add/remove/change values

---
 src/test-harness/twtools.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/test-harness/twtools.pm b/src/test-harness/twtools.pm
index 505f0d1..ba8dcc7 100644
--- a/src/test-harness/twtools.pm
+++ b/src/test-harness/twtools.pm
@@ -50,8 +50,8 @@ BEGIN {
         LATEPROMPTING                => 'false',
         LOOSEDIRECTORYCHECKING       => 'false',
         MAILNOVIOLATIONS             => 'true',
-        EMAILREPORTLEVEL             => '3',
-        REPORTLEVEL                  => '3',
+        EMAILREPORTLEVEL             => '4',
+        REPORTLEVEL                  => '4',
         MAILMETHOD                   => 'SENDMAIL',
         SYSLOGREPORTING              => 'true',
         MAILPROGRAM                  => 'cat',
@@ -751,6 +751,12 @@ sub RunIntegrityTests(\%) {
     my @twresults = RunReport( { dir => "this"} );
     my ($actualViolations, $actualAdded, $actualRemoved, $actualChanged) = AnalyzeReport(@twresults);
 
+    logStatus("Total expected:   $violations | Total observed:   $actualViolations\n");
+    logStatus("Expected added:   $added | Observed added:   $actualAdded\n");
+    logStatus("Expected removed: $removed | Observed removed: $actualRemoved\n");
+    logStatus("Expected changed: $changed | Observed changed: $actualChanged\n");
+    
+    
     # Actual and expected violations should match if everything went as 
     # planned.
     #