From 05d7924b1c44e85a379b3ff5cca7b512383df769 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Fri, 8 Jun 2012 08:07:07 +0200
Subject: Ensure that no cycle is created when add an alias.

---
 lib/Fripost/Tests.pm | 80 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 80 insertions(+)
 create mode 100755 lib/Fripost/Tests.pm

(limited to 'lib/Fripost/Tests.pm')

diff --git a/lib/Fripost/Tests.pm b/lib/Fripost/Tests.pm
new file mode 100755
index 0000000..cfdfa47
--- /dev/null
+++ b/lib/Fripost/Tests.pm
@@ -0,0 +1,80 @@
+package Fripost::Tests;
+
+use 5.010_000;
+use strict;
+use warnings;
+use utf8;
+
+=head1 NAME
+
+Tests.pm
+
+=cut
+
+our @EXPORT = qw/build_alias_graph search_path/;
+our @ISA = qw(Exporter);
+
+use FindBin qw($Bin);
+use lib "$Bin/lib";
+
+use Fripost::Schema;
+
+sub build_alias_graph {
+    my $graph;
+    foreach (@_) {
+        my $to = $_->{goto};
+        foreach my $from (@{$_->{address}}) {
+            push @{$graph->{$from}}, $to;
+        }
+    }
+
+    return $graph;
+}
+
+
+sub search_path {
+    my ($graph, $from, $to) = @_;
+
+    my @stack;
+    push @stack, [$from];
+
+    while (@stack) {
+        my $path = pop @stack;
+        my $last = @{$path}[$#$path];
+        return @$path if $last eq $to;
+
+        foreach (@{$graph->{$last}}) {
+            push @stack, [@$path,$_];
+        }
+    }
+}
+
+
+
+
+=head1 AUTHOR
+
+Stefan Kangas C<< <skangas at skangas.se> >>
+
+Guilhem Moulin C<< <guilhem at fripost.org> >>
+
+=head1 COPYRIGHT
+
+Copyright 2010,2011 Stefan Kangas.
+
+Copyright 2012 Guilhem Moulin.
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as perl itself.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+=cut
+
+1; # End of Tests.pm
+
+__END__
-- 
cgit v1.2.3