t/04array.t - metacpan.org

#!/usr/bin/perl -w

BEGIN {
  unshift @INC,'../lib';
}

use Test::More tests=>18;
use GraphViz::Data::Structure;

while (my $current = get_current()) {
  %hash = eval $current;
  my $result = eval $hash{'code'};
  die $@ if $@;
  is (normalize($result), normalize($hash{'out'}), $hash{'name'});
}

sub get_current {
   my $code = "";
   while (<DATA>) {
   last if /%%/;
   $code .= $_;
   }
   $code;
}

sub normalize {  }

__DATA__
(name => 'ref to zero-element array',
 code => 'GraphViz::Data::Structure->new(\\[],graph=>{label=>"ref to zero-element array"})->graph->as_canon',
 out  => qq(digraph test {
	graph [ratio=fill, label="ref to zero-element array"];
	node [label="\\N"];
	{
		graph [rank=same];
		gvds_scalar0 [label="", color=white, fontcolor=black, rank=0, shape=record, style=filled];
	}
	{
		graph [rank=same];
		gvds_array0 [label="\\[\\]", rank=1, shape=plaintext];
	}
	gvds_scalar0 -> gvds_array0;
}

)
)
%%
(name => 'ref to one-element array',
 code => 'GraphViz::Data::Structure->new(\\["test"],graph=>{label=>"ref to one-element array"})->graph->as_canon',
 out  => qq(digraph test {
	graph [ratio=fill, label="ref to one-element array"];
	node [label="\\N"];
	{
		graph [rank=same];
		gvds_scalar0 [label="", color=white, fontcolor=black, rank=0, shape=record, style=filled];
	}
	{
		graph [rank=same];
		gvds_array0 [label="<port1>test", color=white, fontcolor=black, rank=1, shape=record, style=filled];
	}
	gvds_scalar0 -> gvds_array0;
}

)
)
%%
(name => 'ref to three-element array',
 code => 'GraphViz::Data::Structure->new(\\["larry","moe","curly"],graph=>{label=>"ref to three-element array"})->graph->as_canon',
 out  => qq(digraph test {
	graph [ratio=fill, label="ref to three-element array"];
	node [label="\\N"];
	{
		graph [rank=same];
		gvds_scalar0 [label="", color=white, fontcolor=black, rank=0, shape=record, style=filled];
	}
	{
		graph [rank=same];
		gvds_array0 [label="{<port1>larry}|{<port2>moe}|{<port3>curly}", color=white, fontcolor=black, rank=1, shape=record, style=filled];
	}
	gvds_scalar0 -> gvds_array0;
}

)
)
%%
(name => 'ref to vertical three-element array',
 code => 'GraphViz::Data::Structure->new(\\["larry","moe","curly"],Orientation=>"vertical",graph=>{label=>"ref to vertical three-element array"})->graph->as_canon',
 out  => qq(digraph test {
	graph [rankdir=LR, ratio=fill, label="ref to vertical three-element array"];
	node [label="\\N"];
	{
		graph [rank=same];
		gvds_scalar0 [label="", color=white, fontcolor=black, rank=0, shape=record, style=filled];
	}
	{
		graph [rank=same];
		gvds_array0 [label="{<port1>larry}|{<port2>moe}|{<port3>curly}", color=white, fontcolor=black, rank=1, shape=record, style=filled];
	}
	gvds_scalar0 -> gvds_array0;
}

)
)
%%
(name => 'single-element array ref to empty arrays',
 code => 'my @a=([]); 
        GraphViz::Data::Structure->new(\\@a,%title)->graph->as_canon',
 out  => qq(digraph test {
	graph [ratio=fill];
	node [label="\\N"];
	{
		graph [rank=same];
		gvds_array0 [label="<port1>.", color=white, fontcolor=black, rank=0, shape=record, style=filled];
	}
	{
		graph [rank=same];
		gvds_array1 [label="\\[\\]", rank=1, shape=plaintext];
	}
	gvds_array0:port1 -> gvds_array1;
}

)
)
%%
(name => 'three-element array ref to empty arrays',
 code => 'my @a=([],[],[]); 
        GraphViz::Data::Structure->new(\\@a,graph=>{label=>"three-element array ref to empty arrays"})->graph->as_canon',
 out  => qq(digraph test {
	graph [ratio=fill, label="three-element array ref to empty arrays"];
	node [label="\\N"];
	{
		graph [rank=same];
		gvds_array0 [label="{<port1>.}|{<port2>.}|{<port3>.}", color=white, fontcolor=black, rank=0, shape=record, style=filled];
	}
	{
		graph [rank=same];
		gvds_array1 [label="\\[\\]", rank=1, shape=plaintext];
		gvds_array2 [label="\\[\\]", rank=1, shape=plaintext];
		gvds_array3 [label="\\[\\]", rank=1, shape=plaintext];
	}
	gvds_array0:port1 -> gvds_array1;
	gvds_array0:port2 -> gvds_array2;
	gvds_array0:port3 -> gvds_array3;
}

)
)
%%
(name => 'single-element array ref to one-element arrays',
 code => 'my @a=(["test"]); 
        GraphViz::Data::Structure->new(\\@a,graph=>{label=>"single-element array ref to one-element arrays"})->graph->as_canon',
 out  => qq(digraph test {
	graph [ratio=fill, label="single-element array ref to one-element arrays"];
	node [label="\\N"];
	{
		graph [rank=same];
		gvds_array0 [label="<port1>.", color=white, fontcolor=black, rank=0, shape=record, style=filled];
	}
	{
		graph [rank=same];
		gvds_array1 [label="<port1>test", color=white, fontcolor=black, rank=1, shape=record, style=filled];
	}
	gvds_array0:port1 -> gvds_array1;
}

)
)
%%
(name => 'three-element array ref to one-element arrays',
 code => 'my @a=(["larry"],["moe"],["curly"]); 
        GraphViz::Data::Structure->new(\\@a,graph=>{label=>"three-element array ref to one-element arrays"})->graph->as_canon',
 out  => qq(digraph test {
	graph [ratio=fill, label="three-element array ref to one-element arrays"];
	node [label="\\N"];
	{
		graph [rank=same];
		gvds_array0 [label="{<port1>.}|{<port2>.}|{<port3>.}", color=white, fontcolor=black, rank=0, shape=record, style=filled];
	}
	{
		graph [rank=same];
		gvds_array1 [label="<port1>larry", color=white, fontcolor=black, rank=1, shape=record, style=filled];
		gvds_array2 [label="<port1>moe", color=white, fontcolor=black, rank=1, shape=record, style=filled];
		gvds_array3 [label="<port1>curly", color=white, fontcolor=black, rank=1, shape=record, style=filled];
	}
	gvds_array0:port1 -> gvds_array1;
	gvds_array0:port2 -> gvds_array2;
	gvds_array0:port3 -> gvds_array3;
}

)
)
%%
(name => 'single-element array ref to three-element arrays',
 code => 'my @a=(["larry","moe","curly"]); 
        GraphViz::Data::Structure->new(\\@a,graph=>{label=>"single-element array ref to three-element arrays"})->graph->as_canon',
 out  => qq(digraph test {
	graph [ratio=fill, label="single-element array ref to three-element arrays"];
	node [label="\\N"];
	{
		graph [rank=same];
		gvds_array0 [label="<port1>.", color=white, fontcolor=black, rank=0, shape=record, style=filled];
	}
	{
		graph [rank=same];
		gvds_array1 [label="{<port1>larry}|{<port2>moe}|{<port3>curly}", color=white, fontcolor=black, rank=1, shape=record, style=filled];
	}
	gvds_array0:port1 -> gvds_array1;
}

)
)
%%
(name => 'three-element array ref to three-element arrays',
 code => 'my @a=(["larry","moe","curly"],
               ["groucho","harpo","chico"],
               ["seagoon","bloodnok","eccles"]); 
        GraphViz::Data::Structure->new(\\@a,graph=>{label=>"three-element array ref to three-element arrays"})->graph->as_canon',
 out  => qq(digraph test {
	graph [ratio=fill, label="three-element array ref to three-element arrays"];
	node [label="\\N"];
	{
		graph [rank=same];
		gvds_array0 [label="{<port1>.}|{<port2>.}|{<port3>.}", color=white, fontcolor=black, rank=0, shape=record, style=filled];
	}
	{
		graph [rank=same];
		gvds_array1 [label="{<port1>larry}|{<port2>moe}|{<port3>curly}", color=white, fontcolor=black, rank=1, shape=record, style=filled];
		gvds_array2 [label="{<port1>groucho}|{<port2>harpo}|{<port3>chico}", color=white, fontcolor=black, rank=1, shape=record, style=filled];
		gvds_array3 [label="{<port1>seagoon}|{<port2>bloodnok}|{<port3>eccles}", color=white, fontcolor=black, rank=1, shape=record, style=filled];
	}
	gvds_array0:port1 -> gvds_array1;
	gvds_array0:port2 -> gvds_array2;
	gvds_array0:port3 -> gvds_array3;
}

)
)
%%
(name => 'single-element array ref to empty hash',
 code => 'my @a=({}); 
        GraphViz::Data::Structure->new(\\@a,graph=>{label=>"single-element array ref to empty hash"})->graph->as_canon',
 out  => qq(digraph test {
	graph [ratio=fill, label="single-element array ref to empty hash"];
	node [label="\\N"];
	{
		graph [rank=same];
		gvds_array0 [label="<port1>.", color=white, fontcolor=black, rank=0, shape=record, style=filled];
	}
	{
		graph [rank=same];
		gvds_hash0 [label="\\{\\}", rank=1, shape=plaintext];
	}
	gvds_array0:port1 -> gvds_hash0;
}

)
)
%%
(name => 'three-element array ref to empty hashes',
 code => 'my @a=({},{},{}); 
        GraphViz::Data::Structure->new(\\@a,graph=>{label=>"three-element array ref to empty hashes"})->graph->as_canon',
 out  => qq(digraph test {
	graph [ratio=fill, label="three-element array ref to empty hashes"];
	node [label="\\N"];
	{
		graph [rank=same];
		gvds_array0 [label="{<port1>.}|{<port2>.}|{<port3>.}", color=white, fontcolor=black, rank=0, shape=record, style=filled];
	}
	{
		graph [rank=same];
		gvds_hash0 [label="\\{\\}", rank=1, shape=plaintext];
		gvds_hash1 [label="\\{\\}", rank=1, shape=plaintext];
		gvds_hash2 [label="\\{\\}", rank=1, shape=plaintext];
	}
	gvds_array0:port1 -> gvds_hash0;
	gvds_array0:port2 -> gvds_hash1;
	gvds_array0:port3 -> gvds_hash2;
}

)
)
%%
(name => 'single-element array ref to one-element hashes',
 code => 'my @a=({"test"=>1}); 
        GraphViz::Data::Structure->new(\\@a,graph=>{label=>"single-element array ref to one-element hashes"})->graph->as_canon',
 out  => qq(digraph test {
	graph [ratio=fill, label="single-element array ref to one-element hashes"];
	node [label="\\N"];
	{
		graph [rank=same];
		gvds_array0 [label="<port1>.", color=white, fontcolor=black, rank=0, shape=record, style=filled];
	}
	{
		graph [rank=same];
		gvds_hash0 [label="{<port1>test|<port2>1}", color=white, fontcolor=black, rank=1, shape=record, style=filled];
	}
	gvds_array0:port1 -> gvds_hash0;
}

)
)
%%
(name => 'three-element array ref to one-element hashes',
 code => 'my @a=({"larry"=>2},{"moe"=>1},{"curly"=>3}); 
        GraphViz::Data::Structure->new(\\@a,graph=>{label=>"three-element array ref to one-element hashes"})->graph->as_canon',
 out  => qq(digraph test {
	graph [ratio=fill, label="three-element array ref to one-element hashes"];
	node [label="\\N"];
	{
		graph [rank=same];
		gvds_array0 [label="{<port1>.}|{<port2>.}|{<port3>.}", color=white, fontcolor=black, rank=0, shape=record, style=filled];
	}
	{
		graph [rank=same];
		gvds_hash0 [label="{<port1>larry|<port2>2}", color=white, fontcolor=black, rank=1, shape=record, style=filled];
		gvds_hash1 [label="{<port1>moe|<port2>1}", color=white, fontcolor=black, rank=1, shape=record, style=filled];
		gvds_hash2 [label="{<port1>curly|<port2>3}", color=white, fontcolor=black, rank=1, shape=record, style=filled];
	}
	gvds_array0:port1 -> gvds_hash0;
	gvds_array0:port2 -> gvds_hash1;
	gvds_array0:port3 -> gvds_hash2;
}

)
)
%%
(name => 'single-element array ref to three-element hash',
 code => 'my @a=({"larry"=>2,"moe"=>1,"curly"=>3}); 
        GraphViz::Data::Structure->new(\\@a,graph=>{label=>"single-element array ref to three-element hash"})->graph->as_canon',
 out  => qq(digraph test {
	graph [ratio=fill, label="single-element array ref to three-element hash"];
	node [label="\\N"];
	{
		graph [rank=same];
		gvds_array0 [label="<port1>.", color=white, fontcolor=black, rank=0, shape=record, style=filled];
	}
	{
		graph [rank=same];
		gvds_hash0 [label="{<port1>curly|<port2>3}|{<port3>larry|<port4>2}|{<port5>moe|<port6>1}", color=white, fontcolor=black, rank=1, shape=record, style=filled];
	}
	gvds_array0:port1 -> gvds_hash0;
}

)
)
%%
(name => 'three-element array ref to three-element hashes',
 code => 'my @a=({"larry"=>2,"moe"=>1,"curly"=>3},
               {"groucho"=>1,"harpo"=>3,"chico"=>2},
               {"seagoon"=>2,"bloodnok"=>1,"eccles"=>3}); 
        GraphViz::Data::Structure->new(\\@a,graph=>{label=>"three-element array ref to three-element hashes"})->graph->as_canon',
 out  => qq(digraph test {
	graph [ratio=fill, label="three-element array ref to three-element hashes"];
	node [label="\\N"];
	{
		graph [rank=same];
		gvds_array0 [label="{<port1>.}|{<port2>.}|{<port3>.}", color=white, fontcolor=black, rank=0, shape=record, style=filled];
	}
	{
		graph [rank=same];
		gvds_hash0 [label="{<port1>curly|<port2>3}|{<port3>larry|<port4>2}|{<port5>moe|<port6>1}", color=white, fontcolor=black, rank=1, shape=record, style=filled];
		gvds_hash1 [label="{<port1>chico|<port2>2}|{<port3>groucho|<port4>1}|{<port5>harpo|<port6>3}", color=white, fontcolor=black, rank=1, shape=record, style=filled];
		gvds_hash2 [label="{<port1>bloodnok|<port2>1}|{<port3>eccles|<port4>3}|{<port5>seagoon|<port6>2}", color=white, fontcolor=black, rank=1, shape=record, style=filled];
	}
	gvds_array0:port1 -> gvds_hash0;
	gvds_array0:port2 -> gvds_hash1;
	gvds_array0:port3 -> gvds_hash2;
}

)
)
%%
(name => 'verify port assignments',
 code => 'my @a=(Nil=>[],Nada=>[],Zip=>[]); 
        GraphViz::Data::Structure->new(\\@a,graph=>{label=>"verify port assignments"})->graph->as_canon',
 out  => qq(digraph test {
	graph [ratio=fill, label="verify port assignments"];
	node [label="\\N"];
	{
		graph [rank=same];
		gvds_array0 [label="{<port1>Nil}|{<port2>.}|{<port3>Nada}|{<port4>.}|{<port5>Zip}|{<port6>.}", color=white, fontcolor=black, rank=0, shape=record, style=filled];
	}
	{
		graph [rank=same];
		gvds_array1 [label="\\[\\]", rank=1, shape=plaintext];
		gvds_array2 [label="\\[\\]", rank=1, shape=plaintext];
		gvds_array3 [label="\\[\\]", rank=1, shape=plaintext];
	}
	gvds_array0:port2 -> gvds_array1;
	gvds_array0:port4 -> gvds_array2;
	gvds_array0:port6 -> gvds_array3;
}

)
)
%%
(name => 'odd characters',
 code => 'my @a=("<html>"=>[],"<script>"=>[],"<body>"=>[]); 
        GraphViz::Data::Structure->new(\\@a,graph=>{label=>"odd characters"})->graph->as_canon',
 out  => qq(digraph test {
	graph [ratio=fill, label="odd characters"];
	node [label="\\N"];
	{
		graph [rank=same];
		gvds_array0 [label="{<port1>\\<html\\>}|{<port2>.}|{<port3>\\<script\\>}|{<port4>.}|{<port5>\\<body\\>}|{<port6>.}", color=white, fontcolor=black, rank=0, shape=record, style=filled];
	}
	{
		graph [rank=same];
		gvds_array1 [label="\\[\\]", rank=1, shape=plaintext];
		gvds_array2 [label="\\[\\]", rank=1, shape=plaintext];
		gvds_array3 [label="\\[\\]", rank=1, shape=plaintext];
	}
	gvds_array0:port2 -> gvds_array1;
	gvds_array0:port4 -> gvds_array2;
	gvds_array0:port6 -> gvds_array3;
}

)
)
	Global
`s`	Focus search bar
`?`	Bring up this help dialog
	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)
	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse
	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)