1 files changed, 72 insertions, 0 deletions
diff --git a/t/bmo/comments.t b/t/bmo/comments.t
new file mode 100755
index 000000000..4b0bb8177
--- /dev/null
+++ b/t/bmo/comments.t
@@ -0,0 +1,72 @@
+#!/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 lib qw(. lib local/lib/perl5);
+use Test::More;
+
+use Bugzilla;
+use Bugzilla::Constants;
+use Bugzilla::Bug;
+BEGIN { Bugzilla->extensions }
+
+Bugzilla->usage_mode(USAGE_MODE_TEST);
+Bugzilla->error_mode(ERROR_MODE_DIE);
+
+my $user = Bugzilla::User->check({id => 1});
+Bugzilla->set_user($user);
+
+my $bug_1 = Bugzilla::Bug->create(
+    {
+        short_desc   => 'A test bug',
+        product      => 'Firefox',
+        component    => 'General',,
+        bug_severity => 'normal',
+        groups       => [],
+        op_sys       => 'Unspecified',
+        rep_platform => 'Unspecified',
+        version      => 'Trunk',
+        keywords     => [],
+        cc           => [],
+        comment      => 'This is a brand new bug',
+        assigned_to  => 'nobody@mozilla.org',
+    }
+);
+ok($bug_1->id, "got a new bug");
+
+my $urlbase = Bugzilla->localconfig->{urlbase};
+my $bug_1_id = $bug_1->id;
+my $bug_2 = Bugzilla::Bug->create(
+    {
+        short_desc   => 'A bug that references another bug',
+        product      => 'Firefox',
+        component    => 'General',,
+        bug_severity => 'normal',
+        groups       => [],
+        op_sys       => 'Unspecified',
+        rep_platform => 'Unspecified',
+        version      => 'Trunk',
+        keywords     => [],
+        cc           => [],
+        comment      => "This is related to ${urlbase}show_bug.cgi?id=$bug_1_id",
+        assigned_to  => 'nobody@mozilla.org',
+    }
+);
+
+my $bug_2_id = $bug_2->id;
+
+Bugzilla::Template::quoteUrls(
+    $bug_2->comments->[0]->body, undef, undef, undef,
+    sub {
+        my $bug_id = $_[0];
+        is($bug_id, $bug_1_id, "found Bug $bug_1_id on Bug $bug_2_id");
+    }
+);
+
+done_testing;