From ed53ecda0546d6c639fa3d227a59ace4d57b81a5 Mon Sep 17 00:00:00 2001
From: Upasana <upasana-me@users.noreply.github.com>
Date: Mon, 5 Mar 2018 00:58:41 +0100
Subject: Bug 1273381 - Improve bugzilla object performance by using
 Class::XSAccessor for object accessors

---
 t/bugzilla-objects-def.t | 136 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 136 insertions(+)
 create mode 100644 t/bugzilla-objects-def.t

(limited to 't')

diff --git a/t/bugzilla-objects-def.t b/t/bugzilla-objects-def.t
new file mode 100644
index 000000000..6ba33f450
--- /dev/null
+++ b/t/bugzilla-objects-def.t
@@ -0,0 +1,136 @@
+#!/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 5.10.1;
+use strict;
+use warnings;
+use autodie;
+use lib qw(. lib local/lib/perl5);
+use constant HAVE_DATABASE => 0;
+
+use if HAVE_DATABASE, 'Bugzilla';
+BEGIN {
+    if (HAVE_DATABASE) {
+        Bugzilla->extensions
+    }
+}
+use Bugzilla::DB::Schema;
+use Module::Runtime qw(require_module);
+use Test::More;
+
+# These are all subclasses of Bugzilla::Object
+my @packages = qw(
+    Bugzilla::Attachment
+    Bugzilla::Bug
+    Bugzilla::BugUrl
+    Bugzilla::BugUserLastVisit
+    Bugzilla::Classification
+    Bugzilla::Comment
+    Bugzilla::Comment::TagWeights
+    Bugzilla::Component
+    Bugzilla::Extension::BugmailFilter::Filter
+    Bugzilla::Extension::MyDashboard::BugInterest
+    Bugzilla::Extension::Push::BacklogMessage
+    Bugzilla::Extension::Push::Backoff
+    Bugzilla::Extension::Push::LogEntry
+    Bugzilla::Extension::Push::Message
+    Bugzilla::Extension::Push::Option
+    Bugzilla::Extension::Review::FlagStateActivity
+    Bugzilla::Extension::TrackingFlags::Flag
+    Bugzilla::Extension::TrackingFlags::Flag::Bug
+    Bugzilla::Extension::TrackingFlags::Flag::Value
+    Bugzilla::Extension::TrackingFlags::Flag::Visibility
+    Bugzilla::Field
+    Bugzilla::Field::Choice
+    Bugzilla::Flag
+    Bugzilla::FlagType
+    Bugzilla::Group
+    Bugzilla::Keyword
+    Bugzilla::Milestone
+    Bugzilla::Product
+    Bugzilla::Search::Recent
+    Bugzilla::Search::Saved
+    Bugzilla::User
+    Bugzilla::User::APIKey
+    Bugzilla::User::Session
+    Bugzilla::Version
+    Bugzilla::Whine
+    Bugzilla::Whine::Query
+    Bugzilla::Whine::Schedule
+);
+
+# some of the subclasses have things to skip.
+# 'name' means skip checking the name() method
+# 'id' means skip checking the id() method
+# 'db_name' means NAME_FIELD isn't a database field.
+my %skip = (
+    'Bugzilla::Attachment'                                 => { db_name => 1 },
+    'Bugzilla::Comment'                                    => { db_name => 1 },
+    'Bugzilla::Extension::BugmailFilter::Filter'           => { db_name => 1 },
+    'Bugzilla::Extension::Push::BacklogMessage'            => { db_name => 1 },
+    'Bugzilla::Extension::Push::Backoff'                   => { db_name => 1 },
+    'Bugzilla::Extension::Push::Message'                   => { db_name => 1 },
+    'Bugzilla::Extension::Push::Option'                    => { name => 1 },
+    'Bugzilla::Extension::Review::FlagStateActivity'       => { db_name => 1 },
+    'Bugzilla::Extension::TrackingFlags::Flag'             => { id   => 1 },
+    'Bugzilla::Extension::TrackingFlags::Flag::Bug'        => { db_name => 1 },
+    'Bugzilla::Extension::TrackingFlags::Flag::Value'      => { name => 1 },
+    'Bugzilla::Extension::TrackingFlags::Flag::Visibility' => { db_name => 1 },
+    'Bugzilla::Flag'                                       => { name => 1, id => 1 },
+    'Bugzilla::Search::Recent'                             => { db_name => 1 },
+    'Bugzilla::User'                                       => { name => 1 },
+    'Bugzilla::Whine'                                      => { db_name => 1 },
+    'Bugzilla::Whine::Query'                               => { name => 1 },
+);
+
+# this is kind of evil, but I want a copy
+# of the schema without accessing a real DB.
+my $schema = Bugzilla::DB::Schema::ABSTRACT_SCHEMA;
+if (HAVE_DATABASE) {
+    Bugzilla::Hook::process( 'db_schema_abstract_schema', { schema => $schema } );
+}
+
+foreach my $package (@packages) {
+    next if $package =~ /^Bugzilla::Extension::/ && !HAVE_DATABASE;
+    require_module($package);
+    isa_ok($package, 'Bugzilla::Object');
+    can_ok($package, qw( id name ID_FIELD NAME_FIELD));
+    my $fake = bless {}, $package;
+    my ($NAME_FIELD, $ID_FIELD);
+    unless ($skip{$package}{id}) {
+        $ID_FIELD = $package->ID_FIELD;
+        $fake->{ $package->ID_FIELD } = 42;
+        my $ok = eval {
+            is($fake->id, 42, "$package->id is ID_FIELD");
+            1;
+        };
+        ok($ok, "$package->id is not a fatal error");
+    }
+    unless ($skip{$package}{name}) {
+        $NAME_FIELD = $package->NAME_FIELD;
+        $fake->{ $package->NAME_FIELD } = 'camel';
+        my $ok = eval {
+            is($fake->name, 'camel', "$package->name is NAME_FIELD");
+            1;
+        };
+        ok($ok, "$package->name is not a fatal error");
+    }
+    if ($package->can('DB_TABLE')) {
+        my $table = $package->DB_TABLE;
+        my $table_def = $schema->{$table};
+        my %fields = @{ $table_def->{FIELDS} };
+        ok($table_def, "$package has a table definition");
+        if ($ID_FIELD and not $skip{$package}{db_id}) {
+            ok($fields{ $ID_FIELD }, "$package table $table has column named by $ID_FIELD");
+        }
+        if ($NAME_FIELD and not $skip{$package}{db_name}) {
+            ok($fields{ $NAME_FIELD }, "$package table $table has column named $NAME_FIELD");
+        }
+    }
+}
+
+done_testing;
-- 
cgit v1.2.3-24-g4f1b