summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/010dependencies.t108
1 files changed, 108 insertions, 0 deletions
diff --git a/t/010dependencies.t b/t/010dependencies.t
new file mode 100644
index 000000000..977c8aa67
--- /dev/null
+++ b/t/010dependencies.t
@@ -0,0 +1,108 @@
+# -*- 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.
+#
+# Contributor(s): David Miller <justdave@bugzilla.org>
+# Frédéric Buclin <LpSolit@gmail.com>
+
+
+##################
+#Bugzilla Test 10#
+## dependencies ##
+
+use strict;
+
+use lib 't';
+
+use Support::Files;
+use Test::More qw(no_plan);
+
+my %mods;
+my %deps;
+
+# Extract all Perl modules.
+foreach my $file (@Support::Files::testitems) {
+ if ($file =~ /^(.*)\.pm$/) {
+ my $module = $1;
+ $module =~ s#/#::#g;
+ $mods{$module} = $file;
+ }
+}
+
+foreach my $module (keys %mods) {
+ my $reading = 1;
+ my @use;
+
+ open(SOURCE, $mods{$module});
+ while (my $line = <SOURCE>) {
+ last if ($line =~ /^__END__/);
+ if ($line =~ /^=cut/) {
+ $reading = 1;
+ next;
+ }
+ next unless $reading;
+ if ($line =~ /^=(head|over|item|back|pod|begin|end|for)/) {
+ $reading = 0;
+ next;
+ }
+ if ($line =~ /^package\s+([^;]);/) {
+ $module = $1;
+ }
+ elsif ($line =~ /^\s*(?:use|^require) *"?(Bugzilla.*?)"?(?:;|\s+qw[\(\{]|\s+\(\))/) {
+ my $used = $1;
+ $used =~ s#/#::#g;
+ $used =~ s#\.pm$##;
+ $used =~ s#\$module#[^:]+#;
+ $used =~ s#\${[^}]+}#[^:]+#;
+ $used =~ s#[" ]##g;
+ my $exclude = "";
+ if ($used eq 'Bugzilla::Auth::Login::[^:]+' ) { $exclude = 'Bugzilla::Auth::Login::Stack' }
+ elsif ($used eq 'Bugzilla::Auth::Verify::[^:]+') { $exclude = 'Bugzilla::Auth::Verify::Stack' }
+ elsif ($used eq 'Bugzilla::Config::[^:]+' ) { $exclude = 'Bugzilla::Config::Common' }
+ push(@use, grep(/^$used$/, grep(!/^$exclude$/, keys %mods)));
+ }
+ }
+ close (SOURCE);
+
+ foreach my $u (@use) {
+ if (!grep {$_ eq $u} @{$deps{$module}}) {
+ push(@{$deps{$module}}, $u);
+ }
+ }
+}
+
+sub creates_loop {
+ my ($module, $used_module) = @_;
+ my @list = ($used_module);
+ my %seen;
+ while (my $next = shift @list) {
+ if ($module eq $next) {
+ ok(0, "Dependency on $used_module from $module causes loop. --ERROR");
+ return;
+ }
+ if (!$seen{$next}) {
+ push(@list, @{$deps{$next}}) if defined $deps{$next};
+ }
+ $seen{$next} = 1;
+ }
+ ok(1, "No dependency loop between $module and $used_module");
+}
+
+
+foreach my $module (keys %deps) {
+ foreach my $used_module (@{$deps{$module}}) {
+ creates_loop($module, $used_module);
+ }
+}
+
+exit 0;