first commit

perl/lib/Graph-Easy-0.76/t/layout_r.t

@@ -0,0 +1,40 @@
+#!/usr/bin/perl -w
+
+# test the recursive layouter
+
+use Test::More;
+use strict;
+
+BEGIN
+   {
+   plan tests => 3;
+   chdir 't' if -d 't';
+   use lib '../lib';
+   use_ok ("Graph::Easy") or die($@);
+   use_ok ("Graph::Easy::As_txt") or die($@);
+   require_ok ("Graph::Easy::As_ascii") or die($@);
+   };
+
+#############################################################################
+# laying out a group of nodes
+
+my $g = Graph::Easy->new();
+
+my $gr = $g->add_group('Am Rhein:');
+
+my ($a,$b,$e) =  $g->add_edge('St. Goarshausen','St. Goar', 'Ferry');
+
+$gr->add_node($a);
+$gr->add_node($b);
+
+#$g->{debug} = 1;
+# this is only called for the graph itself, so force it beforehand
+$g->_edges_into_groups();
+
+$gr->_layout();
+
+#use Data::Dumper;
+#print STDERR Dumper($gr->{cells});
+
+#print $g->as_ascii();
+