#!/usr/bin/perl
use strict;
use Test::Simple tests => 1;
use Graph::SocialMap;
use Graph::Writer::GraphViz;
use IO::All;
use YAML;
my $relation = {
1357 => [qw/Marry Rose/],
3579 => [qw/Marry Peacock/],
2468 => [qw/Joan/],
4680 => [qw/Rose Joan/],
CLOCK => [qw/12 1 2 3 4 5 6 7 8 9 10 11/],
1234 => [qw/Tifa Dora Charlee Angie/],
5555 => [qw/A B C D E F G H I J K/],
RAND => [qw/A Tifa Peacock Joan Peacock/]
};
my $gsm = Graph::SocialMap->new(relation => $relation);
my $writer = Graph::Writer::GraphViz->new(-format=>'png');
$writer->write_graph($gsm->type2,'/tmp/graph.png');
ok( -f '/tmp/graph.png');
unlink('/tmp/graph.png');