first commit

perl/lib/Graph-Easy-0.76/t/in/dot/0_empty.dot

@@ -0,0 +1,4 @@
+strict/*comment*/digraph/*comment*/{
+  // test comments
+
+}

perl/lib/Graph-Easy-0.76/t/in/dot/10_numbers.dot

@@ -0,0 +1,14 @@
+digraph G {
+
+  // test parsing of numbers as node names
+
+  0.99 -> 12.88
+
+  -100 -> 123.1230
+
+  00019.1001 -> 1000.
+
+  .99 -> 0.
+
+  .1 -> -1.
+}

perl/lib/Graph-Easy-0.76/t/in/dot/16_split.dot

@@ -0,0 +1,12 @@
+digraph SPLIT {
+
+  0 [ shape=record, label="<f1>nil| | | <f2> 0" ]
+  1 [ shape=record, label="<f1>nil| | | <f2> 1" ]
+  2 [ shape=record, label="<f1>nil| | | <f2> 2" ]
+  3 [ shape=record, label="<f1>nil| | | <f2> 3" ]
+
+  "0":f1 -> "1":f2;
+  "0":"f2" -> "1":"f1";
+  2:"f1" -> 3:"f2";
+  2:f2 -> 3:f1;
+}

perl/lib/Graph-Easy-0.76/t/in/dot/2_bool.dot

@@ -0,0 +1,27 @@
+digraph G {
+  node [ center
+  compound
+  concentrate
+  constraint
+  decorate
+  diredgeconstraints
+  fixedsize
+  headclip
+  labelfloat
+  landscape
+  mosek
+  nojustify
+  normalize
+  overlap
+  pack
+  pin
+  regular
+  remincross
+  root
+  splines
+  tailclip
+  truecolor
+  ]
+  "Bonn" -> "Berlin"
+
+}

perl/lib/Graph-Easy-0.76/t/in/dot/2_comment_inside_attr.dot

@@ -0,0 +1,5 @@
+digraph G {
+  a [ label = "a" /* color=red */ ]
+
+  a -> b;
+} /* digraph */

perl/lib/Graph-Easy-0.76/t/in/dot/2_graph_label_bottom.dot

@@ -0,0 +1,4 @@
+digraph GRAPH_0 {
+  graph [ labelloc=b, label="Deutsche Städte" ]
+  "Köln" -> "Stralsund"
+}

perl/lib/Graph-Easy-0.76/t/in/dot/2_group_labelloc.dot

@@ -0,0 +1,11 @@
+digraph GRAPH_0 {
+  subgraph "cluster0" {
+    label="Bergtour:";
+    style="filled,dashed";
+    labelloc=bottom;
+    labeljust=l;
+
+    Zugspitze -> Wasserkuppe
+  }
+
+}

perl/lib/Graph-Easy-0.76/t/in/dot/2_ignore.dot

@@ -0,0 +1,8 @@
+strict digraph G {
+  node [ pname=123, foo=9, bar=baz ]
+
+  node1 [ fname=o ]
+  node2 [ bar=zup ]
+
+  node1 -> node2 [ brabble=bramble ]
+}

perl/lib/Graph-Easy-0.76/t/in/dot/2_linewidth.dot

@@ -0,0 +1,3 @@
+digraph G {size="11,8.5"; ratio=fill; overlap=false; node[fontsize=10,shape=plaintext];edge[dir=none,style="setlinewidth(0.1)"];
+"123"->"foo"[];
+}

perl/lib/Graph-Easy-0.76/t/in/dot/2_no_spaces.dot

@@ -0,0 +1 @@
+strict graph{bonn--berlin}

perl/lib/Graph-Easy-0.76/t/in/dot/2_nospace.dot

@@ -0,0 +1,3 @@
+digraph mike{
+  mike -> michael
+}

perl/lib/Graph-Easy-0.76/t/in/dot/2_ports.dot

@@ -0,0 +1,3 @@
+digraph ports {
+  north -> south [ headport=west tailport=east ]
+}

perl/lib/Graph-Easy-0.76/t/in/dot/2_setlinewidth.dot

@@ -0,0 +1,7 @@
+digraph {
+  "Bonn" [ style="setlinewidth(4)" ]
+  "Berlin" [ style="filled, setlinewidth(5)" ]
+
+  "Bonn" -> "Berlin"
+
+}

perl/lib/Graph-Easy-0.76/t/in/dot/2_square_bracket_in_attr.dot

@@ -0,0 +1,5 @@
+digraph G {
+  a [ label = < ] > ]
+
+  a -> b;
+}

perl/lib/Graph-Easy-0.76/t/in/dot/2_strict.dot

@@ -0,0 +1,3 @@
+strict digraph G {
+  Wolfsbüttel -> Köln
+}

perl/lib/Graph-Easy-0.76/t/in/dot/3_colors.dot

@@ -0,0 +1,15 @@
+# Differen ways to write colors, all of them should result in "red",
+# except "/accent4/4":
+digraph G {
+  subgraph cluster_1 {
+    pencolor="#ff 00 00";
+# "//" means empty color scheme and is equivalen to ""
+    node [ color=red fontcolor="//red" ]
+
+    A -> B [ color="#ff0000ff" ]
+  }
+  C [ color="0 1.0 1.0" fontcolor="/x11/red" ]
+  B -> C [ color="1.0,1.0,1.0" ]
+  // results in "#ffff99"
+  B [ color="/accent4/4" ]
+}

perl/lib/Graph-Easy-0.76/t/in/dot/3_empty_record.dot

@@ -0,0 +1,3 @@
+digraph G {
+  "Compositor"  [shape="record", label="{Compositor||Compose()}"]
+}

perl/lib/Graph-Easy-0.76/t/in/dot/3_empty_record_LR.dot

@@ -0,0 +1,4 @@
+digraph G {
+  rankdir=LR;
+  "Compositor"  [shape="record", label="{Compositor||Compose()}"]
+}

perl/lib/Graph-Easy-0.76/t/in/dot/3_graph_label_long.dot

@@ -0,0 +1,4 @@
+digraph GRAPH_0 {
+  graph [ labelloc=b, label="Deutsche Städte am Rhein" ]
+  "Köln" -> "Bonn" -> "Koblenz"
+}

perl/lib/Graph-Easy-0.76/t/in/dot/3_ids.dot

@@ -0,0 +1,3 @@
+digraph G {
+  123abc -> test
+  }

perl/lib/Graph-Easy-0.76/t/in/dot/3_invis.dot

@@ -0,0 +1,7 @@
+digraph G {
+  node [ style=invis ]
+
+  { node [ style=filled ] a; c; }
+
+  a -> b -> c;
+}

perl/lib/Graph-Easy-0.76/t/in/dot/3_node_label.dot

@@ -0,0 +1,7 @@
+digraph Graphname {
+  graph [ label="\G" ]
+  node [ label="\G \N" ]
+
+  0 -> 1 [ label="\E \G \T \H" ]
+  2 [ label="Name: \N \G" ]
+}

perl/lib/Graph-Easy-0.76/t/in/dot/3_output_lone.dot

@@ -0,0 +1,5 @@
+digraph G {
+  output = html;
+  c:w;		/* a node named "c" with port "w" */
+  a -> b;
+}

perl/lib/Graph-Easy-0.76/t/in/dot/4_cluster_labeljust.dot

@@ -0,0 +1,14 @@
+digraph G {
+  subgraph cluster_0 {
+    aaaaaaaaaaaaaaaaaaa -> b;
+
+    labeljust=r;
+    label="Right aligned";
+  }
+  subgraph cluster_1 {
+    c -> ddddddddddddddd;
+
+    labeljust=l;
+    label="Left aligned";
+  }
+}

perl/lib/Graph-Easy-0.76/t/in/dot/4_compass.dot

@@ -0,0 +1,11 @@
+// Test compass directions and port names
+// Note: This graph does not have a name, as the ID is optional
+digraph {
+
+  bonn [ label="<N> bonn N | <S> S" shape=record]
+  berlin [ label="<N> berlin N | <w> w" shape=record]
+
+  bonn:S -> berlin:w
+  bonn:s -> berlin:N:w
+
+}

perl/lib/Graph-Easy-0.76/t/in/dot/4_html_like.dot

@@ -0,0 +1,9 @@
+# these are all invalid HTML-like labels. The should not result
+# in errors and the "<>" should be stripped, leaving only the inner
+# text as the label text:
+digraph G {
+  first [ label = <> ]
+  second [ label =<> ]
+  third [ label =< > ]
+  fourth [ label = <a> ]
+}

perl/lib/Graph-Easy-0.76/t/in/dot/4_record.dot

@@ -0,0 +1,7 @@
+digraph G {
+
+  node1 [ label = "<a1> test | <a2> split", shape=record ]
+  node2 [ label = "<b1> record | <b2> test", shape=record ]
+
+  node1:a1 -> node2:b2
+}

perl/lib/Graph-Easy-0.76/t/in/dot/4_strings.dot

@@ -0,0 +1,22 @@
+strict digraph graph0 {
+
+  // test continuation lines (ending in \)
+  berlin [ label="Berlin\
+  Ost" ]
+
+  bonn [ label="Bonn\
+  am\
+  Rhein" ]
+
+  // test double quoted string continuation "foo" + "bar" in attributes
+  bonn -> berlin [ label="train" + " (ICE)" ]
+
+  // and nodes
+  "bonn" + "test" [ label="Bonn" + " (Rhei \
+   n)" ]
+
+  // test more than one concat, more than one space plus empty parts
+  "Cottbus" [ label= "Cot"  + "" + "tb" +"" +"" +  "us" ]
+
+  "bonntest" -> "Cottbus"
+}

perl/lib/Graph-Easy-0.76/t/in/dot/4_uppercase.dot

@@ -0,0 +1,8 @@
+STRICT DIGRAPH "graph" {
+	EDGE [ label=foo ]
+	NODE [ style=dotted ]
+	SUBGRAPH cluster_me {
+		a -> b
+	}
+	c -> d
+}

perl/lib/Graph-Easy-0.76/t/in/dot/5_scope_atr.dot

@@ -0,0 +1,7 @@
+digraph GRAPH_0 {
+
+  b [ style=rounded ]
+
+  a -> { node [ shape=plaintext ] b c d }
+  { b c d } -> u
+}

perl/lib/Graph-Easy-0.76/t/in/dot/5_scopes.dot

@@ -0,0 +1,5 @@
+digraph GRAPH_0 {
+
+  a -> { b c d }
+  { b c d } -> u
+}

perl/lib/Graph-Easy-0.76/t/in/dot/5_scopes_chain.dot

@@ -0,0 +1,3 @@
+digraph GRAPH_0 {
+  a -> { b c d } -> o
+}

perl/lib/Graph-Easy-0.76/t/in/dot/5_scopes_uni.dot

@@ -0,0 +1,3 @@
+digraph GRAPH_0 {
+  a -- { b c d } -- o
+}

perl/lib/Graph-Easy-0.76/t/in/dot/6_2_cluster.dot

@@ -0,0 +1,16 @@
+digraph G {
+
+  subgraph cluster_first {
+	a -> b;
+	label=first;
+  }
+
+  subgraph cluster_second {
+	p -> q -> r -> s
+	label=second;
+	s -> p;
+  }
+
+  r -> a [ style=bold ];
+  b -> q;
+}

perl/lib/Graph-Easy-0.76/t/in/dot/6_comments.dot

@@ -0,0 +1,10 @@
+/* this is a
+ * multi line
+ * comment
+*/
+/* comment */ digraph /* one comment */ GRAPH_0 /* another */ /* comment */ { // comment
+  // comment
+  a -> /* comment */ { b c /* comment */ d }
+  { b /* comment */ c d } /* comment */ -> u
+  " my node /* not a comment */ " -> b
+}

perl/lib/Graph-Easy-0.76/t/in/dot/6_group_align.dot

@@ -0,0 +1,3 @@
+( Left:  [ A ]  -> [ B ]) { align: left; }
+( Right: [ C ] -> [ D ]) { align: right; }
+( Center: [ E ] -> [ F ]) { align: center; }

perl/lib/Graph-Easy-0.76/t/in/dot/7_record.dot

@@ -0,0 +1,10 @@
+digraph gaph {
+  graph [ labeljust=l, label="Left aligned label" ]
+
+  "<f1> Aa | <f2> Bb | Cc" [ shape=rect ];
+
+  node [ shape=record ]
+
+  a [ label = "<f1> AA | <f2> BB | CC" ]
+  "<f1> A | <f2> B | C";
+}

perl/lib/Graph-Easy-0.76/t/in/dot/9_back.dot

@@ -0,0 +1,12 @@
+digraph G {
+graph [rankdir=LR];
+"11" -> "1"
+"1" -> "2"
+"2" -> "3"
+"1" -> "10"
+"3" -> "8"
+"8" -> "5" [ dir=back; ]
+"5" -> "6"
+"10" -> "6"
+"0" -> "11"
+}

perl/lib/Graph-Easy-0.76/t/in/dot/9_edge_styles.dot

@@ -0,0 +1,24 @@
+# dot -Tpng 9_edge_styles.dot -o 9_edge_styles.png
+// various edge styles and misc. attributes
+digraph G {
+  node [style=filled, color=lightsalmon, fontsize=14, fontname="Helvetica"];
+  edge [style="setlinewidth(3)"];
+  margin="0";
+  ratio=auto;
+  nodesep=0.2;
+  ranksep=0.2;
+  clusterrank=local;
+
+  A -> B [ style=solid ]
+  B -> C [ style=invis ]
+  C -> D [ style=dotted ]
+  D -> E [ style=dashed ]
+  // bold-dash
+  A -> F [ style="setlinewidth(3), dashed" ]
+  // setlinewidth(3) => bold
+  F -> G [ style="setlinewidth(3)" ]
+  // setlinewidth(5) => broad
+  G -> H [ style="setlinewidth(5)" ]
+  // setlinewidth(11) => wide
+  H -> I [ style="setlinewidth(11)" ]
+}

perl/lib/Graph-Easy-0.76/t/in/dot/9_stacking.dot

@@ -0,0 +1,12 @@
+digraph G {
+graph [rankdir=LR];
+"11" -> "1"
+"1" -> "2"
+"2" -> "3"
+"1" -> "10"
+"3" -> "8"
+"8" -> "5"
+"5" -> "6"
+"10" -> "6"
+"0" -> "11"
+}

perl/lib/Graph-Easy-0.76/t/in/dot/9_tree.dot

@@ -0,0 +1,9 @@
+digraph G {
+  node [ shape=record ];
+  node0 [label = "<f0> |<f1> A|<f2> "];
+  node1 [label = "<f0> |<f1> B|<f2> "];
+  node2 [label = "<f0> |<f1> C|<f2> "];
+  "node0":f0 -> "node1":f1;
+  "node1":f0 -> "node2":f1;
+  "node0":f2 -> "node2":f2;
+}