diff options
Diffstat (limited to 't/009bugwords.t')
-rw-r--r-- | t/009bugwords.t | 38 |
1 files changed, 30 insertions, 8 deletions
diff --git a/t/009bugwords.t b/t/009bugwords.t index 740cbf6aa..242ac478d 100644 --- a/t/009bugwords.t +++ b/t/009bugwords.t @@ -1,9 +1,24 @@ -# 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/. +# -*- Mode: perl; indent-tabs-mode: nil -*- +# +# The contents of this file are subject to the Mozilla Public +# License Version 1.1 (the "License"); you may not use this file +# except in compliance with the License. You may obtain a copy of +# the License at http://www.mozilla.org/MPL/ +# +# Software distributed under the License is distributed on an "AS +# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or +# implied. See the License for the specific language governing +# rights and limitations under the License. +# +# The Original Code are the Bugzilla tests. +# +# The Initial Developer of the Original Code is Jacob Steenhagen. +# Portions created by Jacob Steenhagen are +# Copyright (C) 2001 Jacob Steenhagen. All +# Rights Reserved. +# +# Contributor(s): Gervase Markham <gerv@gerv.net> # -# This Source Code Form is "Incompatible With Secondary Licenses", as -# defined by the Mozilla Public License, v. 2.0. ################# #Bugzilla Test 9# @@ -15,11 +30,9 @@ # "[% terms.bug %]". This test makes sure the relevant words aren't used # bare. -use 5.10.1; use strict; -use warnings; -use lib qw(. lib local/lib/perl5 t); +use lib 't'; use Support::Files; use Support::Templates; @@ -62,6 +75,15 @@ foreach my $file (@testitems) { next; } } + + # "Bugzilla" + if (grep /(?<!X\-)Bugzilla(?!_|::|->|\.pm)/, $text) { + # Exclude JS comments, hyperlinks, USE, and variable assignment. + unless (grep /(\/\/.*|org.*>|api\/|USE |= )Bugzilla/, $text) { + push(@errors, [$lineno, $text]); + next; + } + } } if (scalar(@errors)) { |