ruby-graphviz 0.9.10 → 0.9.11

data/test/output/sample21.rb.html

@@ -0,0 +1,3 @@
+base referer
+poly http://www.research.att.com/base.html 133,29 130,22 121,15 107,10 89,7 69,5 50,7 32,10 17,15 8,22 5,29 8,37 17,43 32,49 50,52 69,53 89,52 107,49 121,43 130,37
+poly colors.html 114,125 112,118 106,111 96,106 83,103 69,101 55,103 43,106 33,111 26,118 24,125 26,133 33,139 43,145 55,148 69,149 83,148 96,145 106,139 112,133

data/test/output/sample22.rb.html

@@ -0,0 +1,5 @@
+<map id="mainmap" name="mainmap">
+<area shape="poly" id="node1" href="http://www.research.att.com/command.html" title="command" alt="" coords="133,29 130,22 121,15 107,10 89,7 69,5 50,7 32,10 17,15 8,22 5,29 8,37 17,43 32,49 50,52 69,53 89,52 107,49 121,43 130,37"/>
+<area shape="poly" id="edge2" href="colors.html" alt="" coords="72,54 72,87 67,87 67,54"/>
+<area shape="rect" id="graph1" href="http://www.research.att.com/base.html" alt="" coords="0,0,139,155"/>
+</map>

data/test/output/sample29.rb.svg

@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<!-- Generated by graphviz version 2.26.3 (20100126.1600)
+ -->
+<!-- Title: G Pages: 1 -->
+<svg width="150pt" height="62pt"
+ viewBox="0.00 0.00 150.00 62.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph1" class="graph" transform="scale(1 1) rotate(0) translate(4 58)">
+<title>G</title>
+<polygon fill="white" stroke="white" points="-4,5 -4,-58 147,-58 147,5 -4,5"/>
+<!-- &quot;Hello\.&quot;\nHow are you ? -->
+<g id="node1" class="node"><title>&quot;Hello\.&quot;\nHow are you ?</title>
+<a xlink:href="http://www.website.com" xlink:title="&quot;Hello.&quot;\nHow are you ?">
+<ellipse fill="none" stroke="#ff0000" cx="71" cy="-27" rx="70.9184" ry="26.8701"/>
+<text text-anchor="middle" x="71" y="-29.4" font-family="Times,serif" font-size="14.00">&quot;Hello.&quot;</text>
+<text text-anchor="middle" x="71" y="-14.4" font-family="Times,serif" font-size="14.00">How are you ?</text>
+</a>
+</g>
+</g>
+</svg>

data/test/output/sample30.rb.ps

@@ -0,0 +1,268 @@
+%!PS-Adobe-3.0
+%%Creator: graphviz version 2.26.3 (20100126.1600)
+%%Title: g
+%%Pages: (atend)
+%%BoundingBox: (atend)
+%%EndComments
+save
+%%BeginProlog
+/DotDict 200 dict def
+DotDict begin
+
+/setupLatin1 {
+mark
+/EncodingVector 256 array def
+ EncodingVector 0
+
+ISOLatin1Encoding 0 255 getinterval putinterval
+EncodingVector 45 /hyphen put
+
+% Set up ISO Latin 1 character encoding
+/starnetISO {
+        dup dup findfont dup length dict begin
+        { 1 index /FID ne { def }{ pop pop } ifelse
+        } forall
+        /Encoding EncodingVector def
+        currentdict end definefont
+} def
+/Times-Roman starnetISO def
+/Times-Italic starnetISO def
+/Times-Bold starnetISO def
+/Times-BoldItalic starnetISO def
+/Helvetica starnetISO def
+/Helvetica-Oblique starnetISO def
+/Helvetica-Bold starnetISO def
+/Helvetica-BoldOblique starnetISO def
+/Courier starnetISO def
+/Courier-Oblique starnetISO def
+/Courier-Bold starnetISO def
+/Courier-BoldOblique starnetISO def
+cleartomark
+} bind def
+
+%%BeginResource: procset graphviz 0 0
+/coord-font-family /Times-Roman def
+/default-font-family /Times-Roman def
+/coordfont coord-font-family findfont 8 scalefont def
+
+/InvScaleFactor 1.0 def
+/set_scale {
+       dup 1 exch div /InvScaleFactor exch def
+       scale
+} bind def
+
+% styles
+/solid { [] 0 setdash } bind def
+/dashed { [9 InvScaleFactor mul dup ] 0 setdash } bind def
+/dotted { [1 InvScaleFactor mul 6 InvScaleFactor mul] 0 setdash } bind def
+/invis {/fill {newpath} def /stroke {newpath} def /show {pop newpath} def} bind def
+/bold { 2 setlinewidth } bind def
+/filled { } bind def
+/unfilled { } bind def
+/rounded { } bind def
+/diagonals { } bind def
+
+% hooks for setting color 
+/nodecolor { sethsbcolor } bind def
+/edgecolor { sethsbcolor } bind def
+/graphcolor { sethsbcolor } bind def
+/nopcolor {pop pop pop} bind def
+
+/beginpage {	% i j npages
+	/npages exch def
+	/j exch def
+	/i exch def
+	/str 10 string def
+	npages 1 gt {
+		gsave
+			coordfont setfont
+			0 0 moveto
+			(\() show i str cvs show (,) show j str cvs show (\)) show
+		grestore
+	} if
+} bind def
+
+/set_font {
+	findfont exch
+	scalefont setfont
+} def
+
+% draw text fitted to its expected width
+/alignedtext {			% width text
+	/text exch def
+	/width exch def
+	gsave
+		width 0 gt {
+			[] 0 setdash
+			text stringwidth pop width exch sub text length div 0 text ashow
+		} if
+	grestore
+} def
+
+/boxprim {				% xcorner ycorner xsize ysize
+		4 2 roll
+		moveto
+		2 copy
+		exch 0 rlineto
+		0 exch rlineto
+		pop neg 0 rlineto
+		closepath
+} bind def
+
+/ellipse_path {
+	/ry exch def
+	/rx exch def
+	/y exch def
+	/x exch def
+	matrix currentmatrix
+	newpath
+	x y translate
+	rx ry scale
+	0 0 1 0 360 arc
+	setmatrix
+} bind def
+
+/endpage { showpage } bind def
+/showpage { } def
+
+/layercolorseq
+	[	% layer color sequence - darkest to lightest
+		[0 0 0]
+		[.2 .8 .8]
+		[.4 .8 .8]
+		[.6 .8 .8]
+		[.8 .8 .8]
+	]
+def
+
+/layerlen layercolorseq length def
+
+/setlayer {/maxlayer exch def /curlayer exch def
+	layercolorseq curlayer 1 sub layerlen mod get
+	aload pop sethsbcolor
+	/nodecolor {nopcolor} def
+	/edgecolor {nopcolor} def
+	/graphcolor {nopcolor} def
+} bind def
+
+/onlayer { curlayer ne {invis} if } def
+
+/onlayers {
+	/myupper exch def
+	/mylower exch def
+	curlayer mylower lt
+	curlayer myupper gt
+	or
+	{invis} if
+} def
+
+/curlayer 0 def
+
+%%EndResource
+%%EndProlog
+%%BeginSetup
+14 default-font-family set_font
+1 setmiterlimit
+% /arrowlength 10 def
+% /arrowwidth 5 def
+
+% make sure pdfmark is harmless for PS-interpreters other than Distiller
+/pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse
+% make '<<' and '>>' safe on PS Level 1 devices
+/languagelevel where {pop languagelevel}{1} ifelse
+2 lt {
+    userdict (<<) cvn ([) cvn load put
+    userdict (>>) cvn ([) cvn load put
+} if
+
+%%EndSetup
+setupLatin1
+%%Page: 1 1
+%%PageBoundingBox: 275 302 337 490
+%%PageOrientation: Portrait
+0 0 1 beginpage
+gsave
+275 302 62 188 boxprim clip newpath
+1 1 set_scale 0 rotate 279 307 translate
+% A
+gsave
+1 setlinewidth
+0 0 0 nodecolor
+[ 54 180 0 180 0 144 54 144 54 180 ]  4 false sdl_procedure_start
+0 0 0 nodecolor
+14 /Times-Roman set_font
+21.5 156.9 moveto 11 (A) alignedtext
+grestore
+% B
+gsave
+1 setlinewidth
+0 0 0 nodecolor
+[ 54 108 0 108 0 72 54 72 54 108 ]  4 false sdl_save
+0 0 0 nodecolor
+14 /Times-Roman set_font
+22 84.9 moveto 10 (B) alignedtext
+grestore
+% A->B
+gsave
+1 setlinewidth
+0 0 0 edgecolor
+newpath 27 143.83 moveto
+27 136.13 27 126.97 27 118.42 curveto
+stroke
+0 0 0 edgecolor
+newpath 30.5 118.41 moveto
+27 108.41 lineto
+23.5 118.41 lineto
+closepath fill
+1 setlinewidth
+solid
+0 0 0 edgecolor
+newpath 30.5 118.41 moveto
+27 108.41 lineto
+23.5 118.41 lineto
+closepath stroke
+grestore
+% n
+gsave
+1 setlinewidth
+0 0 0 nodecolor
+newpath 54 36 moveto
+0 36 lineto
+0 0 lineto
+54 0 lineto
+closepath stroke
+0 0 0 nodecolor
+14 /Times-Roman set_font
+25 12.9 moveto 21 (g::n) alignedtext
+grestore
+% B->n
+gsave
+1 setlinewidth
+0 0 0 edgecolor
+newpath 27 71.83 moveto
+27 64.13 27 54.97 27 46.42 curveto
+stroke
+0 0 0 edgecolor
+newpath 30.5 46.41 moveto
+27 36.41 lineto
+23.5 46.41 lineto
+closepath fill
+1 setlinewidth
+solid
+0 0 0 edgecolor
+newpath 30.5 46.41 moveto
+27 36.41 lineto
+23.5 46.41 lineto
+closepath stroke
+grestore
+endpage
+showpage
+grestore
+%%PageTrailer
+%%EndPage: 1
+%%Trailer
+%%Pages: 1
+%%BoundingBox: 275 302 337 490
+end
+restore
+%%EOF

data/test/output/sample37.rb.dot

@@ -0,0 +1,50 @@
+digraph Solarsys {
+  Sun [label = "Sun\n", penwidth = "2", fillcolor = "orange", shape = "circle", fontsize = "12", style = "filled"];
+subgraph  {
+  rank = "same";
+  Moon [label = "Moon\n", penwidth = "2", fillcolor = "red", shape = "circle", fontsize = "12", style = "filled"];
+  Earth [label = "Earth\n", penwidth = "2", fillcolor = "blue", shape = "circle", fontsize = "12", style = "filled"];
+  Moon -> Earth [penwidth = "2", color = "black", labeltooltip = "distance"]
+}
+  Sun -> Earth [penwidth = "2", color = "black", labeltooltip = "distance"]
+subgraph  {
+  rank = "same";
+  Mercury [label = "Mercury\n", penwidth = "2", fillcolor = "green", shape = "circle", fontsize = "12", style = "filled"];
+  Sun -> Mercury [label = "distance", penwidth = "2", color = "black"]
+}
+subgraph  {
+  rank = "same";
+  Venus [label = "Venus\n", penwidth = "2", fillcolor = "green", shape = "circle", fontsize = "12", style = "filled"];
+  Sun -> Venus [label = "distance", penwidth = "2", color = "black"]
+}
+subgraph  {
+  rank = "same";
+  Mars [label = "Mars\n", penwidth = "2", fillcolor = "green", shape = "circle", fontsize = "12", style = "filled"];
+  Sun -> Mars [label = "distance", penwidth = "2", color = "black"]
+}
+subgraph  {
+  rank = "same";
+  Jupiter [label = "Jupiter\n", penwidth = "2", fillcolor = "green", shape = "circle", fontsize = "12", style = "filled"];
+  Sun -> Jupiter [label = "distance", penwidth = "2", color = "black"]
+}
+subgraph  {
+  rank = "same";
+  Saturn [label = "Saturn\n", penwidth = "2", fillcolor = "green", shape = "circle", fontsize = "12", style = "filled"];
+  Sun -> Saturn [label = "distance", penwidth = "2", color = "black"]
+}
+subgraph  {
+  rank = "same";
+  Uranus [label = "Uranus\n", penwidth = "2", fillcolor = "green", shape = "circle", fontsize = "12", style = "filled"];
+  Sun -> Uranus [label = "distance", penwidth = "2", color = "black"]
+}
+subgraph  {
+  rank = "same";
+  Neptune [label = "Neptune\n", penwidth = "2", fillcolor = "green", shape = "circle", fontsize = "12", style = "filled"];
+  Sun -> Neptune [label = "distance", penwidth = "2", color = "black"]
+}
+subgraph  {
+  rank = "same";
+  Pluto [label = "Pluto\n", penwidth = "2", fillcolor = "green", shape = "circle", fontsize = "12", style = "filled"];
+  Sun -> Pluto [label = "distance", penwidth = "2", color = "black"]
+}
+}

data/test/support.rb

@@ -0,0 +1,100 @@
+require 'rubygems'
+require 'test/unit'
+require 'ruby-debug'
+
+root = File.expand_path('../..',__FILE__)
+$:.unshift(root) unless $:.include?(root)
+
+require 'graphviz'
+
+# hack so that the example scripts don't unnecessarily unshift @todo
+class << $:
+  def unshift path
+    include?(path) ? self : super    # super will return self, too
+  end
+end
+
+module TestSupport
+  extend self
+
+  # @todo move to app?
+  def windows?
+    /Windows/ =~ ENV['OS']
+  end
+
+  def dev_null
+    windows? ? 'NUL' : '/dev/null'
+  end
+end
+
+module IoHack
+
+  #
+  # this is a ridiculous hack to capture what was written to $stdout/$stderr for testing
+  # an alternative is to use Open3.popen3 on external calls which has overhead
+  # and OS dependencies.
+  #
+  # This hack would apparently not be as bad on 1.9, which would allow you to simply
+  # set $stdout and $stderr to instances of StringIO
+  #
+  # I don't know what is the 'right way' to test this kind of thing
+  #
+
+  class IoHackStream < File
+    #
+    # pre 1.9 you can't assign $stdout and $stderr to anything other than
+    # an IO::File instance.  what we *want* is to have them be StringIOs that
+    # we can read from like strings for testing.  So this is a crazy proxy
+    # around StringIO.    Note it makes *all* methods except a few protected,
+    # which for me was failing silently when i forgot to make the appropriate
+    # ones public.  hack!
+    #
+
+    except = %w(inspect kind_of?)
+    these = ancestors[0].instance_methods
+    # these = [1,2,3].map{|x| ancestors[x].instance_methods(false)}.flatten
+    eraseme = (these - except)
+    eraseme.each{ |name| protected name }
+    attr_reader :io
+    def initialize()
+      @io = StringIO.new
+      super(TestSupport.dev_null, 'r+') # probably doesn't matter the mode
+    end
+    these = %w(write << puts)
+    these.each do |name|
+      define_method(name) do |*a|
+        @io.send(name, *a)
+      end
+    end
+  end
+
+  def fake_popen2 path
+    push_io
+    require path  # caller assumes responsibility for exceptions vis-a-vis stack
+    pop_io
+  end
+
+  def io_stack
+    @io_stack ||= []
+  end
+
+  def push_io
+    io_stack.push [$stdout, $stderr]
+    $stdout = IoHackStream.new
+    $stderr = IoHackStream.new
+    nil
+  end
+
+  def pop_io
+    fail('stack empty') unless io_stack.any?
+    result = [$stdout, $stderr]
+    $stdout, $stderr = io_stack.pop
+    result.each_with_index do |io,idx|
+      if io.kind_of? IoHackStream
+        io.io.seek(0)
+        result[idx] = io.io.read
+      end
+    end
+    result
+  end
+end