From a91453b19c462929b3ab77927b0d0a6807558b92 Mon Sep 17 00:00:00 2001
From: Israel Madueme <purelogiq@gmail.com>
Date: Mon, 10 Sep 2018 12:34:56 -0400
Subject: Bug 1479466 - Add Security Bugs Report

Adds the security bugs report with open count and median age open of
sec-critical and sec-high bugs.
---
 t/security-risk.t | 156 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 156 insertions(+)
 create mode 100644 t/security-risk.t

(limited to 't')

diff --git a/t/security-risk.t b/t/security-risk.t
new file mode 100644
index 000000000..520953bc0
--- /dev/null
+++ b/t/security-risk.t
@@ -0,0 +1,156 @@
+#!/usr/bin/perl
+# This Source Code Form is subject to the terms of the Mozilla Public
+# License, v. 2.0. If a copy of the MPL was not distributed with this
+# file, You can obtain one at http://mozilla.org/MPL/2.0/.
+#
+# This Source Code Form is "Incompatible With Secondary Licenses", as
+# defined by the Mozilla Public License, v. 2.0.
+use strict;
+use warnings;
+use 5.10.1;
+use lib qw( . lib local/lib/perl5 );
+use Bugzilla;
+
+BEGIN { Bugzilla->extensions };
+
+use Test::More;
+use Test2::Tools::Mock;
+use Try::Tiny;
+
+use ok 'Bugzilla::Report::SecurityRisk';
+can_ok('Bugzilla::Report::SecurityRisk', qw(new results));
+
+sub check_open_state_mock {
+    my ($state) = @_;
+    return grep { /^$state$/ } qw(UNCOMFIRMED NEW ASSIGNED REOPENED);
+}
+
+try {
+    use Bugzilla::Report::SecurityRisk;
+    my $report = Bugzilla::Report::SecurityRisk->new(
+        start_date      => DateTime->new( year => 2000, month => 1, day => 9 ),
+        end_date        => DateTime->new( year => 2000, month => 1, day => 16 ),
+        products        => [ 'Firefox', 'Core' ],
+        sec_keywords    => [ 'sec-critical', 'sec-high' ],
+        check_open_state  => \&check_open_state_mock,
+        initial_bug_ids => [ 1, 2, 3, 4 ],
+        initial_bugs    => {
+            1 => {
+                id         => 1,
+                product    => 'Firefox',
+                sec_level  => 'sec-high',
+                is_open    => 0,
+                created_at => DateTime->new( year => 2000, month => 1, day => 1 ),
+            },
+            2 => {
+                id         => 2,
+                product    => 'Core',
+                sec_level  => 'sec-critical',
+                is_open    => 0,
+                created_at => DateTime->new( year => 2000, month => 1, day => 1 ),
+            },
+            3 => {
+                id         => 3,
+                product    => 'Core',
+                sec_level  => 'sec-high',
+                is_open    => 1,
+                created_at => DateTime->new( year => 2000, month => 1, day => 5 ),
+            },
+            4 => {
+                id         => 4,
+                product    => 'Firefox',
+                sec_level  => 'sec-critical',
+                is_open    => 1,
+                created_at => DateTime->new( year => 2000, month => 1, day => 10 ),
+            },
+        },
+        events           => [
+            # Canned event's should be in reverse chronological order.
+            {
+                bug_id     => 2,
+                bug_when   => DateTime->new( year => 2000, month => 1, day => 14 ),
+                field_name => 'keywords',
+                removed    => '',
+                added      => 'sec-critical',
+
+            },
+            {
+                bug_id     => 1,
+                bug_when   => DateTime->new( year => 2000, month => 1, day => 12 ),
+                field_name => 'bug_status',
+                removed    => 'ASSIGNED',
+                added      => 'RESOLVED',
+            },
+        ],
+    );
+    my $actual_results = $report->results;
+    my $expected_results = [
+        {
+            date => DateTime->new( year => 2000, month => 1, day => 9 ),
+            bugs_by_product => {
+                'Firefox' => {
+                    # Rewind the event that caused 1 to close.
+                    open            => [1],
+                    closed          => [],
+                    median_age_open => 8
+                },
+                'Core' => {
+                    # 2 wasn't a sec-critical bug on the report date.
+                    open            => [3],
+                    closed          => [],
+                    median_age_open => 4
+                }
+            },
+            bugs_by_sec_keyword => {
+                'sec-critical' => {
+                    # 2 wasn't a sec-crtical bug and 4 wasn't created yet on the report date.
+                    open            => [],
+                    closed          => [],
+                    median_age_open => 0
+                },
+                'sec-high' => {
+                    # Rewind the event that caused 1 to close.
+                    open            => [ 1, 3 ],
+                    closed          => [],
+                    median_age_open => 6
+                }
+            },
+        },
+        {   # The report on 2000-01-16 matches the state of initial_bugs.
+            date => DateTime->new( year => 2000, month => 1, day => 16 ),
+            bugs_by_product => {
+                'Firefox' => {
+                    open            => [4],
+                    closed          => [1],
+                    median_age_open => 6
+                },
+                'Core' => {
+                    open            => [3],
+                    closed          => [2],
+                    median_age_open => 11
+                }
+            },
+            bugs_by_sec_keyword => {
+                'sec-critical' => {
+                    open            => [4],
+                    closed          => [2],
+                    median_age_open => 6
+                },
+                'sec-high' => {
+                    open            => [3],
+                    closed          => [1],
+                    median_age_open => 11
+                }
+            },
+        },
+    ];
+
+    is_deeply($actual_results, $expected_results, 'Report results are accurate');
+
+}
+catch {
+    fail('got an exception during main part of test');
+    diag($_);
+};
+
+done_testing;
-- 
cgit v1.2.3-24-g4f1b