97 lines
2.2 KiB
Perl
97 lines
2.2 KiB
Perl
#!/usr/bin/perl -w
|
|
|
|
use Test::More;
|
|
use strict;
|
|
|
|
BEGIN
|
|
{
|
|
plan tests => 8;
|
|
chdir 't' if -d 't';
|
|
use lib '../lib';
|
|
use_ok qw/Graph::Easy/;
|
|
use_ok qw/Graph::Easy::Parser/;
|
|
}
|
|
|
|
######################################################
|
|
package Graph::Easy::MyNode;
|
|
|
|
use Graph::Easy::Node;
|
|
use base qw/Graph::Easy::Node/;
|
|
|
|
# override here methods for your node class
|
|
|
|
######################################################
|
|
# when overriding nodes, we also need ::Anon
|
|
|
|
package Graph::Easy::MyNode::Anon;
|
|
|
|
#use Graph::Easy::MyNode;
|
|
use base qw/Graph::Easy::MyNode/;
|
|
use base qw/Graph::Easy::Node::Anon/;
|
|
|
|
######################################################
|
|
# and :::Empty
|
|
|
|
package Graph::Easy::MyNode::Empty;
|
|
|
|
#use Graph::Easy::MyNode;
|
|
use base qw/Graph::Easy::MyNode/;
|
|
|
|
######################################################
|
|
package Graph::Easy::MyGraph;
|
|
|
|
use Graph::Easy;
|
|
use base qw/Graph::Easy/;
|
|
|
|
######################################################
|
|
package Graph::Easy::MyGroup;
|
|
|
|
use Graph::Easy::Group;
|
|
use base qw/Graph::Easy::Group/;
|
|
|
|
######################################################
|
|
package Graph::Easy::MyEdge;
|
|
|
|
use Graph::Easy::Edge;
|
|
use base qw/Graph::Easy::Edge/;
|
|
|
|
######################################################
|
|
package main;
|
|
|
|
use Graph::Easy::Parser;
|
|
use Graph::Easy;
|
|
|
|
my $parser = Graph::Easy::Parser->new();
|
|
|
|
$parser->use_class('node', 'Graph::Easy::MyNode');
|
|
$parser->use_class('edge', 'Graph::Easy::MyEdge');
|
|
$parser->use_class('graph', 'Graph::Easy::MyGraph');
|
|
$parser->use_class('group', 'Graph::Easy::MyGroup');
|
|
|
|
my $graph = $parser->from_text("( Cities: [ Bonn ] -> [ Berlin| |Spree ] -> [ ])");
|
|
|
|
is (ref($graph), 'Graph::Easy::MyGraph', 'graph worked');
|
|
|
|
my $group = $graph->group('Cities:');
|
|
|
|
is (ref($group), 'Graph::Easy::MyGroup', 'group worked');
|
|
|
|
my $bonn = $graph->node('Bonn');
|
|
|
|
is (ref($bonn), 'Graph::Easy::MyNode', 'node worked');
|
|
|
|
my @nodes = $graph->nodes();
|
|
|
|
my $empty = $graph->node('BerlinSpree.1');
|
|
is (ref($empty), 'Graph::Easy::MyNode::Empty', 'empty node worked');
|
|
|
|
$graph = $parser->from_text("[ ]");
|
|
is (ref($graph), 'Graph::Easy::MyGraph', 'graph with anon node worked');
|
|
|
|
@nodes = $graph->nodes();
|
|
my $anon = $nodes[0];
|
|
is (ref($anon), 'Graph::Easy::MyNode::Anon', 'anon node worked');
|
|
|
|
|
|
|