first commit

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

@@ -0,0 +1,112 @@
+#!/usr/bin/perl -w
+
+# test layouts after setting attributes
+use Test::More;
+use strict;
+
+BEGIN
+   {
+   plan tests => 12;
+   chdir 't' if -d 't';
+   use lib '../lib';
+   use_ok ("Graph::Easy") or die($@);
+   };
+
+can_ok ('Graph::Easy', qw/
+  new
+  /);
+
+#############################################################################
+# setup a graph
+
+my $graph = Graph::Easy->new();
+
+is (ref($graph), 'Graph::Easy');
+
+is ($graph->error(), '', 'no error yet');
+
+my ($bonn,$berlin,$edge) = $graph->add_edge('Bonn','Berlin');
+
+#############################################################################
+# lay out as ascii
+
+my $ascii = $graph->as_ascii();
+
+is ($ascii, <<EOF
++------+     +--------+
+| Bonn | --> | Berlin |
++------+     +--------+
+EOF
+, 'as_ascii');
+
+#############################################################################
+# change label of Bonn to be longer
+
+$bonn->set_attribute('label', 'Frankfurt a. Main');
+
+$ascii = $graph->as_ascii();
+
+is ($ascii, <<EOF
++-------------------+     +--------+
+| Frankfurt a. Main | --> | Berlin |
++-------------------+     +--------+
+EOF
+, 'as_ascii');
+
+$bonn->set_attribute('label', 'Frankfurt\n(a. Main)');
+$ascii = $graph->as_ascii();
+
+is ($ascii, <<EOF
++-----------+     +--------+
+| Frankfurt |     | Berlin |
+| (a. Main) | --> |        |
++-----------+     +--------+
+EOF
+, 'as_ascii');
+
+# Change label of Bonn to be shorter (and one line high, this also tests
+# resetting the height of Berlin even though we did not change an attribute
+# on Berlin itself:
+
+$bonn->set_attribute('label', 'Frankfurt');
+
+$ascii = $graph->as_ascii();
+
+is ($ascii, <<EOF
++-----------+     +--------+
+| Frankfurt | --> | Berlin |
++-----------+     +--------+
+EOF
+, 'as_ascii');
+
+is ($bonn->{w}, 13, 'w is 13');
+is ($bonn->{h}, 3, 'h is 2');
+
+#############################################################################
+# change edge label
+
+$edge->set_attribute('label', 'Test');
+
+$ascii = $graph->as_ascii();
+
+is ($ascii, <<EOF
++-----------+  Test   +--------+
+| Frankfurt | ------> | Berlin |
++-----------+         +--------+
+EOF
+, 'as_ascii');
+
+$edge->set_attribute('label', 'Testtest');
+
+$ascii = $graph->as_ascii();
+
+is ($ascii, <<EOF
++-----------+  Testtest   +--------+
+| Frankfurt | ----------> | Berlin |
++-----------+             +--------+
+EOF
+, 'as_ascii');
+
+#############################################################################
+
+