#!/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();