qa_server 2.2.0 → 2.2.1

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 6b1aa8683845f3afeadc0dd3b26a77b56f881fed
-  data.tar.gz: 4a38cff642e17ba1be32215b8d89f840963bf1f7
+  metadata.gz: a9a28076a2932c11c2dcfa1d833665d623ab3969
+  data.tar.gz: 0e5eeb1c0c5535029f60c8a5f1a4bead059e4bbc
 SHA512:
-  metadata.gz: 1fd0e79db6c61c2f696eb04eee64f18ef0e82393eba5cc57b13b9641158f235a8d28008ee85f6cc86a1c6641d4d7663e0ffbd8c5a0b1f0c6137b4e5543820af8
-  data.tar.gz: 7fbb5e3f7c86a6e26b7dc891a6306cb618b038ddecaa29b0c405a5bf31c3c29049560c0591902e20164ac9715ede061ed3252281e16f6256afcc3bce5620f32a
+  metadata.gz: f891059ddd3ef9453bf857dbd7e5cc0ce5cab4beead2897b02efac28803f82a06fb00fb94ce3de487e30bb00f085049e14c80052a8c80565ae4931401c962f7b
+  data.tar.gz: e4c733a195568694b0bd9ed8fe7704aa62a3ab07c90c6ed2d3876869be33e439c68f28dc081c631182cb9b2dcba42a392b45420a5392a9079eb73c0e25c73040

data/CHANGELOG.md

@@ -1,3 +1,8 @@
+### 2.2.1 (2019-09-04)
+
+* config to optionally display of the performance graph/datatable
+* add data table view of performance data
+
 ### 2.2.0 (2019-08-15)
 
 * add performance graphs to monitor status page

data/app/models/qa_server/performance_history.rb

@@ -1,11 +1,15 @@
 # frozen_string_literal: true
 # Provide access to the scenario_results_history database table which tracks specific scenario runs over time.
 module QaServer
-  class PerformanceHistory < ActiveRecord::Base
+  class PerformanceHistory < ActiveRecord::Base # rubocop:disable Metrics/ClassLength
     self.table_name = 'performance_history'
 
     enum action: [:fetch, :search]
 
+    PERFORMANCE_ALL_KEY = :all_authorities
+    PERFORMANCE_STATS_KEY = :stats
+    PERFORMANCE_FOR_LIFETIME_KEY = :lifetime_stats
+
     PERFORMANCE_FOR_DAY_KEY = :day
     PERFORMANCE_BY_HOUR_KEY = :hour
 
@@ -15,16 +19,24 @@ module QaServer
     PERFORMANCE_FOR_YEAR_KEY = :year
     PERFORMANCE_BY_MONTH_KEY = :month
 
-    LOAD_TIME_KEY = :load_avg_ms
-    NORMALIZATION_TIME_KEY = :normalization_avg_ms
-    COMBINED_TIME_KEY = :combined_avg_ms
+    SUM_LOAD_TIME_KEY = :load_sum_ms
+    SUM_NORMALIZATION_TIME_KEY = :normalization_sum_ms
+    SUM_FULL_REQUEST_TIME_KEY = :full_request_sum_ms
+    MIN_LOAD_TIME_KEY = :load_min_ms
+    MIN_NORMALIZATION_TIME_KEY = :normalization_min_ms
+    MIN_FULL_REQUEST_TIME_KEY = :full_request_min_ms
+    MAX_LOAD_TIME_KEY = :load_max_ms
+    MAX_NORMALIZATION_TIME_KEY = :normalization_max_ms
+    MAX_FULL_REQUEST_TIME_KEY = :full_request_max_ms
+    AVG_LOAD_TIME_KEY = :load_avg_ms
+    AVG_NORMALIZATION_TIME_KEY = :normalization_avg_ms
+    AVG_FULL_REQUEST_TIME_KEY = :full_request_avg_ms
 
     class << self
-
       # Save a scenario result
       # @param run_id [Integer] the run on which to gather statistics
       # @param result [Hash] the scenario result to be saved
-      def save_result(dt_stamp:, authority:, action:, size_bytes:, load_time_ms:, normalization_time_ms: )
+      def save_result(dt_stamp:, authority:, action:, size_bytes:, load_time_ms:, normalization_time_ms:) # rubocop:disable Metrics/ParameterLists
         QaServer::PerformanceHistory.create(dt_stamp: dt_stamp,
                                             authority: authority,
                                             action: action,
@@ -36,115 +48,207 @@ module QaServer
       # Performance data for a day, a month, and a year.
       # @returns [Hash] performance statistics for the past 24 hours
       # @example
-      #   { 0: { hour: 1400, load_avg_ms: 12.3, normalization_avg_ms: 4.2 },
-      #     1: { hour: 1500, load_avg_ms: 12.3, normalization_avg_ms: 4.2 },
-      #     2: { hour: 1600, load_avg_ms: 12.3, normalization_avg_ms: 4.2 },
-      #     ...,
-      #     23: { hour: 1300, load_avg_ms: 12.3, normalization_avg_ms: 4.2 }
+      #   { all_authorities:
+      #     { lifetime_stats:
+      #       { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }
+      #     }
+      #     { day:
+      #       { 0: { hour: '1400', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }},
+      #         1: { hour: '1500', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }},
+      #         2: { hour: '1600', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }},
+      #         ...,
+      #         23: { hour: 'NOW', load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }}
+      #       }
+      #     }
+      #     { month:
+      #       { 0: { day: '07-15-2019', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }},
+      #         1: { day: '07-16-2019', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }},
+      #         2: { day: '07-17-2019', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }},
+      #         ...,
+      #         29: { day: 'TODAY', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }}
+      #       }
+      #     }
+      #     { year:
+      #       { 0: { month: '09-2019', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }},
+      #         1: { month: '10-2019', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }},
+      #         2: { month: '11-2019', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }},
+      #         ...,
+      #         11: { month: '08-2019', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }}
+      #       }
+      #     }
       #   }
       def performance_data
         data = {}
-        data[PERFORMANCE_FOR_DAY_KEY] = average_last_24_hours
-        data[PERFORMANCE_FOR_MONTH_KEY] = average_last_30_days
-        data[PERFORMANCE_FOR_YEAR_KEY] = average_last_12_months
+        data[PERFORMANCE_ALL_KEY] = {
+          PERFORMANCE_FOR_LIFETIME_KEY => lifetime,
+          PERFORMANCE_FOR_DAY_KEY => average_last_24_hours,
+          PERFORMANCE_FOR_MONTH_KEY => average_last_30_days,
+          PERFORMANCE_FOR_YEAR_KEY => average_last_12_months
+        }
         data
       end
 
       private
 
+        # Get hourly average for the past 24 hours.
+        # @returns [Hash] performance statistics across all records
+        # @example
+        #   { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }
+        def lifetime
+          records = PerformanceHistory.all
+          calculate_stats(records)
+        end
+
         # Get hourly average for the past 24 hours.
         # @returns [Hash] performance statistics for the past 24 hours
         # @example
-        #   { 0: { hour: 1400, load_avg_ms: 12.3, normalization_avg_ms: 4.2, combined_avg_ms: 16.5 },
-        #     1: { hour: 1500, load_avg_ms: 12.3, normalization_avg_ms: 4.2, combined_avg_ms: 16.5 },
-        #     2: { hour: 1600, load_avg_ms: 12.3, normalization_avg_ms: 4.2, combined_avg_ms: 16.5 },
+        #   { 0: { hour: '1400', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }},
+        #     1: { hour: '1500', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }},
+        #     2: { hour: '1600', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }},
         #     ...,
-        #     23: { hour: 1300, load_avg_ms: 12.3, normalization_avg_ms: 4.2, combined_avg_ms: 16.5 }
+        #     23: { hour: 'NOW', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }}
         #   }
         def average_last_24_hours
-          start_hour = Time.now.beginning_of_hour - 23.hour
+          start_hour = Time.now.beginning_of_hour - 23.hours
           avgs = {}
           0.upto(23).each do |idx|
             records = PerformanceHistory.where(dt_stamp: start_hour..start_hour.end_of_hour)
-            averages = calculate_averages(records)
+            stats = calculate_stats(records)
             data = {}
-            data[PERFORMANCE_BY_HOUR_KEY] = idx == 23 ? I18n.t('qa_server.monitor_status.performance.now') : ((idx + 1) % 2 == 0 ? (start_hour.hour * 100).to_s : "")
-            data[LOAD_TIME_KEY] = averages[:avg_load_time_ms]
-            data[NORMALIZATION_TIME_KEY] = averages[:avg_normalization_time_ms]
-            data[COMBINED_TIME_KEY] = averages[:avg_combined_time_ms]
+            data[PERFORMANCE_BY_HOUR_KEY] = performance_by_hour_label(idx, start_hour)
+            data[PERFORMANCE_STATS_KEY] = stats
             avgs[idx] = data
-            start_hour = start_hour + 1.hour
+            start_hour += 1.hour
           end
           avgs
         end
 
+        def performance_by_hour_label(idx, start_hour)
+          if idx == 23
+            I18n.t('qa_server.monitor_status.performance.now')
+          elsif ((idx + 1) % 2).zero?
+            (start_hour.hour * 100).to_s
+          else
+            ""
+          end
+        end
+
         # Get daily average for the past 30 days.
         # @returns [Hash] performance statistics for the past 30 days
         # @example
-        #   { 0: { day: '07-15-2019', load_avg_ms: 12.3, normalization_avg_ms: 4.2, combined_avg_ms: 16.5 },
-        #     1: { day: '07-16-2019', load_avg_ms: 12.3, normalization_avg_ms: 4.2, combined_avg_ms: 16.5 },
-        #     2: { day: '07-17-2019', load_avg_ms: 12.3, normalization_avg_ms: 4.2, combined_avg_ms: 16.5 },
+        #   { 0: { day: '07-15-2019', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }},
+        #     1: { day: '07-16-2019', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }},
+        #     2: { day: '07-17-2019', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }},
         #     ...,
-        #     29: { day: '08-13-2019', load_avg_ms: 12.3, normalization_avg_ms: 4.2, combined_avg_ms: 16.5 }
+        #     29: { day: 'TODAY', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }}
         #   }
         def average_last_30_days
-          start_day = Time.now.beginning_of_day - 29.day
+          start_day = Time.now.beginning_of_day - 29.days
           avgs = {}
           0.upto(29).each do |idx|
             records = PerformanceHistory.where(dt_stamp: start_day..start_day.end_of_day)
-            averages = calculate_averages(records)
+            stats = calculate_stats(records)
             data = {}
-            data[PERFORMANCE_BY_DAY_KEY] = idx == 29 ? I18n.t('qa_server.monitor_status.performance.today') : ((idx + 1) % 5 == 0 ? (start_day).strftime("%m-%d") : "")
-            data[LOAD_TIME_KEY] = averages[:avg_load_time_ms]
-            data[NORMALIZATION_TIME_KEY] = averages[:avg_normalization_time_ms]
-            data[COMBINED_TIME_KEY] = averages[:avg_combined_time_ms]
+            data[PERFORMANCE_BY_DAY_KEY] = performance_by_day_label(idx, start_day)
+            data[PERFORMANCE_STATS_KEY] = stats
             avgs[idx] = data
-            start_day = start_day + 1.day
+            start_day += 1.day
           end
           avgs
         end
 
+        def performance_by_day_label(idx, start_day)
+          if idx == 29
+            I18n.t('qa_server.monitor_status.performance.today')
+          elsif ((idx + 1) % 5).zero?
+            start_day.strftime("%m-%d")
+          else
+            ""
+          end
+        end
+
         # Get daily average for the past 12 months.
         # @returns [Hash] performance statistics for the past 12 months
         # @example
-        #   { 0: { month: '09-2019', load_avg_ms: 12.3, normalization_avg_ms: 4.2, combined_avg_ms: 16.5 },
-        #     1: { month: '10-2019', load_avg_ms: 12.3, normalization_avg_ms: 4.2, combined_avg_ms: 16.5 },
-        #     2: { month: '11-2019', load_avg_ms: 12.3, normalization_avg_ms: 4.2, combined_avg_ms: 16.5 },
+        #   { 0: { month: '09-2019', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }},
+        #     1: { month: '10-2019', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }},
+        #     2: { month: '11-2019', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }},
         #     ...,
-        #     11: { month: '08-2019', load_avg_ms: 12.3, normalization_avg_ms: 4.2, combined_avg_ms: 16.5 }
+        #     11: { month: '08-2019', stats: { load_avg_ms: 12.3, normalization_avg_ms: 4.2, full_request_avg_ms: 16.5, etc. }}
         #   }
         def average_last_12_months
-          start_month = Time.now.beginning_of_month - 11.month
+          start_month = Time.now.beginning_of_month - 11.months
           avgs = {}
           0.upto(11).each do |idx|
             records = PerformanceHistory.where(dt_stamp: start_month..start_month.end_of_month)
-            averages = calculate_averages(records)
+            stats = calculate_stats(records)
             data = {}
-            data[PERFORMANCE_BY_MONTH_KEY] = (start_month).strftime("%m-%Y")
-            data[LOAD_TIME_KEY] = averages[:avg_load_time_ms]
-            data[NORMALIZATION_TIME_KEY] = averages[:avg_normalization_time_ms]
-            data[COMBINED_TIME_KEY] = averages[:avg_combined_time_ms]
+            data[PERFORMANCE_BY_MONTH_KEY] = start_month.strftime("%m-%Y")
+            data[PERFORMANCE_STATS_KEY] = stats
             avgs[idx] = data
-            start_month = start_month + 1.month
+            start_month += 1.month
           end
           avgs
         end
 
-        def calculate_averages(records)
-          return { avg_load_time_ms: 0, avg_normalization_time_ms: 0, avg_combined_time_ms: 0 } if records.count.zero?
-          sum_load_times = 0
-          sum_normalization_times = 0
-          sum_combined_times = 0
+        def calculate_stats(records)
+          stats = init_stats
+          return stats if records.count.zero?
+          first = true
           records.each do |record|
-            sum_load_times += record.load_time_ms
-            sum_normalization_times += record.normalization_time_ms
-            sum_combined_times += (record.load_time_ms + record.normalization_time_ms)
+            update_sum_stats(stats, record)
+            update_min_stats(stats, record)
+            update_max_stats(stats, record)
+            first = false
           end
-          {
-            avg_load_time_ms: sum_load_times / records.count,
-            avg_normalization_time_ms: sum_normalization_times / records.count,
-            avg_combined_time_ms: sum_combined_times / records.count
-          }
+          calculate_avg_stats(stats, records)
+          stats
+        end
+
+        MIN_STARTING_TIME = 999_999_999
+        def init_stats
+          stats = {}
+          stats[SUM_LOAD_TIME_KEY] = 0
+          stats[SUM_NORMALIZATION_TIME_KEY] = 0
+          stats[SUM_FULL_REQUEST_TIME_KEY] = 0
+          stats[AVG_LOAD_TIME_KEY] = 0
+          stats[AVG_NORMALIZATION_TIME_KEY] = 0
+          stats[AVG_FULL_REQUEST_TIME_KEY] = 0
+          stats[MIN_LOAD_TIME_KEY] = MIN_STARTING_TIME
+          stats[MIN_NORMALIZATION_TIME_KEY] = MIN_STARTING_TIME
+          stats[MIN_FULL_REQUEST_TIME_KEY] = MIN_STARTING_TIME
+          stats[MAX_LOAD_TIME_KEY] = 0
+          stats[MAX_NORMALIZATION_TIME_KEY] = 0
+          stats[MAX_FULL_REQUEST_TIME_KEY] = 0
+          stats
+        end
+
+        def update_sum_stats(stats, record)
+          stats[SUM_LOAD_TIME_KEY] += record.load_time_ms
+          stats[SUM_NORMALIZATION_TIME_KEY] += record.normalization_time_ms
+          stats[SUM_FULL_REQUEST_TIME_KEY] += full_request_time_ms(record)
+        end
+
+        def update_min_stats(stats, record)
+          stats[MIN_LOAD_TIME_KEY] = [stats[MIN_LOAD_TIME_KEY], record.load_time_ms].min
+          stats[MIN_NORMALIZATION_TIME_KEY] = [stats[MIN_NORMALIZATION_TIME_KEY], record.normalization_time_ms].min
+          stats[MIN_FULL_REQUEST_TIME_KEY] = [stats[MIN_FULL_REQUEST_TIME_KEY], full_request_time_ms(record)].min
+        end
+
+        def update_max_stats(stats, record)
+          stats[MAX_LOAD_TIME_KEY] = [stats[MAX_LOAD_TIME_KEY], record.load_time_ms].max
+          stats[MAX_NORMALIZATION_TIME_KEY] = [stats[MAX_NORMALIZATION_TIME_KEY], record.normalization_time_ms].max
+          stats[MAX_FULL_REQUEST_TIME_KEY] = [stats[MAX_FULL_REQUEST_TIME_KEY], full_request_time_ms(record)].max
+        end
+
+        def calculate_avg_stats(stats, records)
+          stats[AVG_LOAD_TIME_KEY] = stats[SUM_LOAD_TIME_KEY] / records.count
+          stats[AVG_NORMALIZATION_TIME_KEY] = stats[SUM_NORMALIZATION_TIME_KEY] / records.count
+          stats[AVG_FULL_REQUEST_TIME_KEY] = stats[SUM_FULL_REQUEST_TIME_KEY] / records.count
+        end
+
+        def full_request_time_ms(record)
+          record.load_time_ms + record.normalization_time_ms
         end
     end
   end

data/app/models/qa_server/term_scenario.rb

@@ -42,7 +42,7 @@ module QaServer
 
       def prefix_for_url(action)
         subauth = "/#{subauthority_name}" if subauthority_name.present?
-        prefix = "#{QaServer::Engine.qa_engine_mount}/#{action}/linked_data/#{authority_name.downcase}#{subauth}"
+        "#{QaServer::Engine.qa_engine_mount}/#{action}/linked_data/#{authority_name.downcase}#{subauth}"
       end
 
       # Convert identifier into URL safe version with encoding if needed.

data/app/prepends/prepended_linked_data/find_term.rb

@@ -1,7 +1,8 @@
+# frozen_string_literal: true
 module PrependedLinkedData::FindTerm
   # Override Qa::Authorities::LinkedData::FindTerm#find method
   # @return [Hash] single term results in requested format
-  def find(id, language: nil, replacements: {}, subauth: nil, format: nil, jsonld: false, performance_data: false) # rubocop:disable Metrics/ParameterLists, Metrics/MethodLength
+  def find(id, language: nil, replacements: {}, subauth: nil, format: nil, jsonld: false, performance_data: false) # rubocop:disable Metrics/ParameterLists
     saved_performance_data = performance_data
     performance_data = true
     full_results = super

data/app/prepends/prepended_linked_data/search_query.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 module PrependedLinkedData::SearchQuery
   # Override Qa::Authorities::LinkedData::SearchQuery#search method
   # @return [String] json results for search query

data/app/presenters/concerns/qa_server/monitor_status/gruff_graph.rb

@@ -0,0 +1,21 @@
+# frozen_string_literal: true
+require 'fileutils'
+require 'gruff'
+
+# This module include provides graph methods used by all monitor status presenters working with graphs
+module QaServer::MonitorStatus
+  module GruffGraph
+    private
+
+      def graph_relative_path
+        File.join('qa_server', 'charts')
+      end
+
+      def graph_full_path(graph_filename)
+        path = Rails.root.join('app', 'assets', 'images', graph_relative_path)
+        FileUtils.mkdir_p path
+        File.join(path, graph_filename)
+      end
+  end
+end
+# frozen_string_literal: true

data/app/presenters/qa_server/monitor_status/current_status_presenter.rb

@@ -0,0 +1,76 @@
+# frozen_string_literal: true
+# This presenter class provides data related to last test run as needed by the view that monitors status of authorities.
+module QaServer::MonitorStatus
+  class CurrentStatusPresenter
+    # @param current_summary [ScenarioRunSummary] summary status of the latest run of test scenarios
+    # @param current_data [Array<Hash>] current set of failures for the latest test run, if any
+    def initialize(current_summary:, current_failure_data:)
+      @current_summary = current_summary
+      @current_failure_data = current_failure_data
+    end
+
+    # @return [String] date of last test run
+    def last_updated
+      @current_summary.run_dt_stamp.in_time_zone("Eastern Time (US & Canada)").strftime("%m/%d/%y - %I:%M %p")
+    end
+
+    # @return [String] date of first recorded test run
+    def first_updated
+      QaServer::ScenarioRunRegistry.first.dt_stamp.in_time_zone("Eastern Time (US & Canada)").strftime("%m/%d/%y - %I:%M %p")
+    end
+
+    # @return [Integer] number of loaded authorities
+    def authorities_count
+      @current_summary.authority_count
+    end
+
+    # @return [Integer] number of authorities with failing tests in the latest test run
+    def failing_authorities_count
+      @current_failure_data.map { |f| f[:authority_name] }.uniq.count
+    end
+
+    # @return [String] css style class representing whether all tests passed or any failed
+    def authorities_count_style
+      failures? ? 'status-bad' : 'status-good'
+    end
+
+    # @return [Integer] number of tests in the latest test run
+    def tests_count
+      @current_summary.total_scenario_count
+    end
+
+    # @return [Integer] number of passing tests in the latest test run
+    def passing_tests_count
+      @current_summary.passing_scenario_count
+    end
+
+    # @return [Integer] number of failing tests in the latest test run
+    def failing_tests_count
+      @current_summary.failing_scenario_count
+    end
+
+    # @return [String] css style class representing whether all tests passed or any failed
+    def failing_tests_style
+      failures? ? 'summary-status-bad' : 'status-good'
+    end
+
+    # @return [Array<Hash>] A list of failures data in the latest test run, if any
+    # @example
+    #   [ { status: :FAIL,
+    #       status_label: 'X',
+    #       authority_name: 'LOCNAMES_LD4L_CACHE',
+    #       subauthority_name: 'person',
+    #       service: 'ld4l_cache',
+    #       action: 'search',
+    #       url: '/qa/search/linked_data/locnames_ld4l_cache/person?q=mark twain&maxRecords=4',
+    #       err_message: 'Exception: Something went wrong.' }, ... ]
+    def failures
+      @current_failure_data
+    end
+
+    # @return [Boolean] true if failure data exists for the latest test run; otherwise false
+    def failures?
+      failing_tests_count.positive?
+    end
+  end
+end

data/app/presenters/qa_server/monitor_status/history_presenter.rb

@@ -0,0 +1,138 @@
+# frozen_string_literal: true
+# This presenter class provides historical testing data needed by the view that monitors status of authorities.
+module QaServer::MonitorStatus
+  class HistoryPresenter
+    HISTORICAL_AUTHORITY_NAME_IDX = 0
+    HISTORICAL_FAILURE_COUNT_IDX = 1
+    HISTORICAL_PASSING_COUNT_IDX = 2
+
+    include QaServer::MonitorStatus::GruffGraph
+
+    # @param historical_summary_data [Array<Hash>] summary of past failuring runs per authority to drive chart
+    def initialize(historical_summary_data:)
+      @historical_summary_data = historical_summary_data
+    end
+
+    # @return [Array<Hash>] historical test data to be displayed (authname, failing, passing)
+    # @example
+    #   [ [ 'agrovoc', 0, 24 ],
+    #     [ 'geonames_ld4l_cache', 2, 22 ] ... ]
+    def historical_summary
+      @historical_summary_data
+    end
+
+    # @return [Boolean] true if historical test data exists; otherwise false
+    def history?
+      return true if @historical_summary_data.present?
+      false
+    end
+
+    def historical_graph
+      # g = Gruff::SideStackedBar.new('800x400')
+      g = Gruff::SideStackedBar.new
+      historical_graph_theme(g)
+      g.title = ''
+      historical_data = rework_historical_data_for_gruff
+      g.labels = historical_data[0]
+      g.data('Fail', historical_data[1])
+      g.data('Pass', historical_data[2])
+      g.write historical_graph_full_path
+      File.join(graph_relative_path, historical_graph_filename)
+    end
+
+    # @return [String] the name of the css style class to use for the status cell based on the status of the scenario test.
+    def status_style_class(status)
+      "status-#{status[:status]}"
+    end
+
+    # @return [String] the name of the css style class to use for the status cell based on the status of the scenario test.
+    def status_label(status)
+      case status[:status]
+      when :good
+        QaServer::ScenarioRunHistory::GOOD_MARKER
+      when :bad
+        QaServer::ScenarioRunHistory::BAD_MARKER
+      when :unknown
+        QaServer::ScenarioRunHistory::UNKNOWN_MARKER
+      end
+    end
+
+    def historical_data_authority_name(historical_entry)
+      historical_entry[HISTORICAL_AUTHORITY_NAME_IDX]
+    end
+
+    def days_authority_passing(historical_entry)
+      historical_entry[HISTORICAL_PASSING_COUNT_IDX]
+    end
+
+    def days_authority_failing(historical_entry)
+      historical_entry[HISTORICAL_FAILURE_COUNT_IDX]
+    end
+
+    def days_authority_tested(historical_entry)
+      days_authority_passing(historical_entry) + days_authority_failing(historical_entry)
+    end
+
+    def percent_authority_failing(historical_entry)
+      days_authority_failing(historical_entry).to_f / days_authority_tested(historical_entry)
+    end
+
+    def percent_authority_failing_str(historical_entry)
+      "#{percent_authority_failing(historical_entry) * 100}%"
+    end
+
+    def failure_style_class(historical_entry)
+      return "status-neutral" if days_authority_failing(historical_entry) <= 0
+      return "status-unknown" if percent_authority_failing(historical_entry) < 0.1
+      "status-bad"
+    end
+
+    def passing_style_class(historical_entry)
+      return "status-bad" if days_authority_passing(historical_entry) <= 0
+      "status-good"
+    end
+
+    def display_history_details?
+      display_historical_graph? || display_historical_datatable?
+    end
+
+    def display_historical_graph?
+      QaServer.config.display_historical_graph?
+    end
+
+    def display_historical_datatable?
+      QaServer.config.display_historical_datatable?
+    end
+
+    private
+
+      def historical_graph_theme(g)
+        g.theme_pastel
+        g.colors = ['#ffcccc', '#ccffcc']
+        g.marker_font_size = 12
+        g.x_axis_increment = 10
+      end
+
+      def historical_graph_full_path
+        graph_full_path(historical_graph_filename)
+      end
+
+      def historical_graph_filename
+        'historical_side_stacked_bar.png'
+      end
+
+      def rework_historical_data_for_gruff
+        labels = {}
+        pass_data = []
+        fail_data = []
+        i = 0
+        historical_summary.each do |data|
+          labels[i] = data[0]
+          i += 1
+          fail_data << data[1]
+          pass_data << data[2]
+        end
+        [labels, fail_data, pass_data]
+      end
+  end
+end