graffle 0.1.0

data/test/hacks-tests.rb

@@ -0,0 +1,58 @@
+#!/usr/bin/env ruby
+#
+#  Created by Brian Marick on 2007-07-06.
+#  Copyright (c) 2007. All rights reserved.
+
+require "set-standalone-test-paths.rb" unless $started_from_rakefile
+require 'test/unit'
+require 's4t-utils'
+include S4tUtils
+
+require 'graffle/nodoc/hacks'
+
+class TestHacks < Test::Unit::TestCase
+  
+  module Something
+    def foo
+      "foo"
+    end
+  end
+  
+
+  def test_my_idiosyncratic_version_of_duck_type_extension
+    o = Object.new
+    o.behave_like(Something)
+    assert_equal("foo", o.foo)
+  end
+  
+  def test_effete_chaining_terminology
+    o = Object.new.and_behave_like(Something)
+    assert_equal("foo", o.foo)
+  end
+  
+  def test_duck_typing
+    o = Object.new
+    assert_false(o.behaves_like?(Something))
+    o.behave_like(Something)
+    assert_true(o.behaves_like?(Something))
+  end
+  
+  def test_module_base_name
+    assert_equal("Unit", Test::Unit.basename)
+    assert_equal("Test", Test.basename)
+  end
+  
+  def test_self_description_includes_behavior
+    assert_match(/acts as Something/, Object.new.behave_like(Something).to_s)
+    assert_match(/acts as Something/, Object.new.behave_like(Something).inspect)
+    assert_match(/acts as Unit/, Object.new.behave_like(Test::Unit).pretty_inspect)
+    
+  end
+  
+  def test_can_tell_what_its_stereotype_is
+    assert_equal(Something, Object.new.behave_like(Something).stereotype)
+  end
+  
+
+  
+end

data/test/line-graphic-tests.rb

@@ -0,0 +1,155 @@
+#!/usr/bin/env ruby
+#
+#  Created by Brian Marick on 2007-07-06.
+#  Copyright (c) 2007. All rights reserved.
+
+
+require "set-standalone-test-paths.rb" unless $started_from_rakefile
+require 'test/unit'
+require 's4t-utils'
+include S4tUtils
+
+require 'graffle'
+require 'extensions/string'
+
+class TestLineGraphics < Test::Unit::TestCase
+  include Graffle
+  include Graffle::Builders
+
+  
+  def test_creation
+    assert_true(line_graphic.behaves_like?(LineGraphic))
+    assert_equal("LineGraphic", line_graphic['Class'])
+    assert_equal({ 'Class' => 'LineGraphic'}, line_graphic)
+  end
+  
+  
+
+  def test_id
+    o = line_graphic { graffle_id_is 1 }
+    assert_equal(1, o.graffle_id)
+    assert_equal(1, o['ID'])
+  end
+  
+  def test_line_graphics_have_points
+    o = line_graphic { 
+      points_at [5, 3.4], [1, 3]
+    }
+    
+    assert_equal(["{5, 3.4}", "{1, 3}"], o['Points'])
+    assert_equal([Point.new(5, 3.4), Point.new(1, 3)], o.points)
+  end
+  
+  def test_line_graphic_origin_is_first_point
+    o = line_graphic { 
+      points_at [5, 3.4], [1, 3]
+    }
+    
+    assert_equal(Point.new(5, 3.4), o.origin)
+  end
+
+  def test_joins_two_shaped_graphics
+      head_graphic = shaped_graphic { graffle_id_is 1 }
+      tail_graphic = shaped_graphic { graffle_id_is 2 }
+      connector = line_graphic { 
+        go_from tail_graphic
+        go_to head_graphic
+    }
+    assert_equal(1, connector['Head']['ID'])
+    assert_equal(2, connector['Tail']['ID'])
+  end
+
+  def test_can_join_graphic_by_their_ids
+      head_graphic = shaped_graphic { graffle_id_is 1 }
+      tail_graphic = shaped_graphic { graffle_id_is 2 }
+      connector = line_graphic { 
+        go_from 2
+        go_to 1
+    }
+    
+    assert_equal(1, connector['Head']['ID'])
+    assert_equal(2, connector['Tail']['ID'])
+  end
+  
+  def test_line_in_sheet_returns_head_and_tail_as_objects
+    s = sheet { 
+      with head_graphic = shaped_graphic { graffle_id_is 1 }
+      with tail_graphic = shaped_graphic { graffle_id_is 2 }
+      with line_graphic { 
+        graffle_id_is 3
+        go_from tail_graphic
+        go_to head_graphic
+      }
+    }
+    
+    line = s.find_by_id(3)
+    assert_equal(s.find_by_id(2), line.from)
+    assert_equal(s.find_by_id(1), line.to)
+  end
+  
+  def test_lines_can_span_grouping_levels
+    s = sheet {
+      with head = shaped_graphic { graffle_id_is 333 }
+      with g = group {
+        with tail = shaped_graphic { graffle_id_is 44 }
+        with line_graphic { 
+          graffle_id_is 3
+          go_from tail
+          go_to head
+        }
+      }
+    }
+    
+    s = Plist.parse_xml(s.to_plist)
+    Sheet.takes_on(s)
+    
+    assert_equal(s.graphics[0], 
+                 s.graphics[1].graphics[1].to)
+    assert_equal(s.graphics[1].graphics[0], 
+                 s.graphics[1].graphics[1].from)
+  end
+  
+  LINE_LABEL_TEXT = "
+     | {\\rtf1\\mac\\ansicpg10000\\cocoartf824\\cocoasubrtf420
+     | {\\fonttbl\\f0\\fswiss\\fcharset77 Helvetica;}
+     | {\\colortbl;\\red255\\green255\\blue255;}
+     | \\pard\\tx560\\tx1120\\tx1680\\tx2240\\tx2800\\tx3360\\tx3920\\tx4480\\tx5040\\tx5600\\tx6160\\tx6720\\qc\\pardirnatural
+     | 
+     | \\f0\\fs24 \\cf0 the line has a label}".trim("|")
+
+
+  def line_label_sheet
+    sheet {
+      with line_label {   # Line labels are graphics at same level as lines.
+        for_line 1
+        with_text LINE_LABEL_TEXT
+        graffle_id_is 3
+      }
+      with line_graphic {
+        graffle_id_is 1
+      }
+    }
+  end
+
+  
+  def test_lines_labels_are_distinct_graphics
+    label_graphic = line_label_sheet.find_by_id(3)
+    assert_true(label_graphic.behaves_like?(ShapedGraphic))
+    # TODO: graffle_class should be a method, not use hash all over the place
+    assert_equal("ShapedGraphic", label_graphic['Class'])
+    assert_equal(1, label_graphic['Line']['ID'])
+
+    assert_equal(1, label_graphic.line.graffle_id)
+  end
+  
+  def test_labels_can_nevertheless_be_treated_as_attached_to_line
+    line = line_label_sheet.find_by_id(1)
+    assert_equal(3, line.label.graffle_id)
+    
+    assert_equal("the line has a label", line.label.content.as_plain_text)
+    # above is cumbersome, so...
+    assert_equal("the line has a label", line.label_rtf.as_plain_text)
+  end
+  
+  
+end

data/test/point-tests.rb

@@ -0,0 +1,43 @@
+#!/usr/bin/env ruby
+#
+#  Created by Brian Marick on 2007-07-06.
+#  Copyright (c) 2007. All rights reserved.
+
+require "set-standalone-test-paths.rb" unless $started_from_rakefile
+require 'test/unit'
+require 's4t-utils'
+include S4tUtils
+
+require 'graffle'
+require 'extensions/string'
+
+class TestPoint < Test::Unit::TestCase
+  include Graffle
+  
+  def test_origin_parsing
+    o = Point.new("{{0.5, 11}, {irrelevant, irrelevant}}")
+    assert_equal(0.5, o.x)
+    assert_equal(11, o.y)
+    
+    # alternately...
+    
+    o = Point.new("{3, 2.2}")
+    assert_equal(3, o.x)
+    assert_equal(2.2, o.y)
+  end
+  
+  def test_origin_spaceship
+    orig = Point.new("{{0.5, 11}, {-, -}}")
+    same = Point.new("{0.5, 11.0}")
+    vertically_before = Point.new("{0.5, 10.9}")
+    horizontally_before = Point.new("{0.4, 11}")
+    
+    assert_equal(0, orig <=> same)
+    assert_equal(-1, vertically_before <=> orig)
+    assert_equal(1, same <=> horizontally_before)
+  end
+  
+  def test_origins_are_fully_comparable
+    assert_true(Point.new("{{0, 0}, {5, 5}}") < Point.new("{1, 1}"))
+  end
+end

data/test/set-standalone-test-paths.rb

@@ -0,0 +1,5 @@
+require 'pathname'
+
+PACKAGE_ROOT = Pathname.new(__FILE__).parent.parent.to_s
+$:.unshift("#{PACKAGE_ROOT}/lib")
+require 'graffle/third-party/s4t-utils/load-path-auto-adjuster'

data/test/shaped-graphic-tests.rb

@@ -0,0 +1,93 @@
+#!/usr/bin/env ruby
+#
+#  Created by Brian Marick on 2007-07-06.
+#  Copyright (c) 2007. All rights reserved.
+
+require "set-standalone-test-paths.rb" unless $started_from_rakefile
+require 'test/unit'
+require 's4t-utils'
+include S4tUtils
+
+require 'graffle'
+require 'extensions/string'
+
+class TestShapedGraphics < Test::Unit::TestCase
+  include Graffle
+  include Graffle::Builders
+  
+  def test_creation
+    assert_true(shaped_graphic.behaves_like?(ShapedGraphic))
+    assert_equal("ShapedGraphic", shaped_graphic['Class'])
+    assert_equal({ 'Class' => 'ShapedGraphic'}, shaped_graphic)
+  end
+  
+
+  def test_id
+    o = shaped_graphic { graffle_id_is 1 }
+    assert_equal(1, o.graffle_id)
+    assert_equal(1, o['ID'])
+  end
+    
+  
+  def test_bounds
+    o = shaped_graphic { bounded_by "351.323", "648.9", "149", "14" }
+    assert_equal(351.323, o.x)
+    assert_equal(648.9, o.y)
+    assert_equal(149, o.width)
+    assert_equal(14, o.height)
+    assert_equal("{{351.323, 648.9}, {149, 14}}", o['Bounds'])
+  end
+  
+  def test_origin
+    o = shaped_graphic { bounded_by "351", "648", "-", "-" }
+    assert_equal(Point.new(351, 648), o.origin)
+  end
+    
+  
+  def test_shaped_graphics_can_have_rtf_text_as_contents
+    
+    rtf = %Q{
+       | {\\rtf1\\mac\\ansicpg10000\\cocoartf824\\cocoasubrtf420
+       | {\\fonttbl\\f0\\fswiss\\fcharset77 Helvetica;}
+       | {\\colortbl;\\red255\\green255\\blue255;}
+       | \\pard\\tx560\\tx1120\\tx1680\\tx2240\\tx2800\\tx3360\\tx3920\\tx4480\\tx5040\\tx5600\\tx6160\\tx6720\\qc\\pardirnatural
+       |
+       | \\f0\\fs24 \\cf0 John follows "sign up" link}}.trim('|')
+
+    g = shaped_graphic {
+      with_text rtf
+    }
+    
+    assert_true(g.has_content?)
+    assert_equal(rtf, g.content.as_rtf)
+    
+    # It's sort of annoying that you use the 'contents' message to 
+    # retrieve the text node. 
+    assert_true(g.content.behaves_like?(Graffle::Text))
+    assert_equal(%Q{John follows "sign up" link}, g.content.as_plain_text)
+    assert_equal([['John follows', 'sign up', 'link']], 
+                 g.content.as_tokens_within_lines)
+  end
+  
+  def test_shaped_graphics_do_not_have_to_have_text
+    assert_false(shaped_graphic.has_content?)
+  end
+  
+  
+  def test_shaped_graphics_stereotypes_its_content
+    s = sheet {
+      with shaped_graphic { 
+        graffle_id_is 333 
+        with_text "foo"
+      }
+      with shaped_graphic { graffle_id_is 44 } # Check that this doesn't blow up
+    }
+    
+    # buid correct structure, but without anything stereotyped.
+    s = Plist.parse_xml(s.to_plist)
+    Sheet.takes_on(s)
+    
+    assert_true(s.find_by_id(333).content.behaves_like?(Graffle::Text))
+  end
+  
+end

data/test/sheet-tests.rb

@@ -0,0 +1,124 @@
+#!/usr/bin/env ruby
+#
+#  Created by Brian Marick on 2007-07-06.
+#  Copyright (c) 2007. All rights reserved.
+
+require "set-standalone-test-paths.rb" unless $started_from_rakefile
+require 'test/unit'
+require 's4t-utils'
+include S4tUtils
+require 'test/util'
+
+require 'graffle'
+
+class TestSheets < Test::Unit::TestCase
+  include Graffle
+  include Graffle::Builders
+  include Test::Util
+
+  def test_creation
+    assert_equal({ 'GraphicsList' => [] }, sheet)
+    assert_true(sheet.behaves_like?(Sheet))
+    assert_equal([], sheet.graphics)
+  end
+  
+  def test_sheet_has_an_array_of_graphics
+    abstract = abstract_graphic
+    line = line_graphic
+    shaped = shaped_graphic
+
+    assert_equal([abstract, line, shaped], 
+                sheet { with abstract, line, shaped }.graphics)
+  end
+  
+  
+  def test_sheet_elements_know_parent
+    abstract = abstract_graphic
+    line = line_graphic
+    shaped = shaped_graphic
+    s = sheet { with abstract, line, shaped }
+
+    assert_equal(s, abstract.container )
+    assert_equal(s, line.container)
+    assert_equal(s, shaped.container)
+  end
+  
+  def test_sheet_can_find_graphics_by_id
+    shaped = shaped_graphic { graffle_id_is 1 }
+    line = line_graphic { graffle_id_is 2 }
+    
+    s = sheet { with shaped, line } 
+    
+    assert_equal(shaped, s.find_by_id(1))
+    assert_equal(1, s.find_by_id(1).graffle_id)
+    assert_equal(line, s.find_by_id(2))
+    assert_nil(s.find_by_id(3))
+  end
+  
+  def test_sheets_created_from_raw_data_can_stereotype_and_structure_their_contents
+    s = sheet {
+      with head = shaped_graphic { graffle_id_is 333 }
+      with tail = shaped_graphic { graffle_id_is 44 }
+      with line_graphic { 
+        graffle_id_is 3
+        go_from tail
+        go_to head
+      }
+    }
+    
+    # buid correct structure, but without anything stereotyped.
+    s = Plist.parse_xml(s.to_plist)
+    Sheet.takes_on(s)
+    
+    assert_true(s.behaves_like?(Sheet))
+
+    assert_true(s.graphics[0].behaves_like?(ShapedGraphic))
+    assert_true(s.graphics[1].behaves_like?(ShapedGraphic))
+    assert_true(s.graphics[2].behaves_like?(LineGraphic))
+    
+    # graphics link to their parent sheets.
+    assert_equal(s, s.graphics[0].container)
+    assert_equal(s, s.graphics[1].container)
+    assert_equal(s, s.graphics[2].container)
+    
+    # links within a sheet work (this is no surprise)
+    assert_equal(s.graphics[0], s.graphics[2].to)
+    assert_equal(s.graphics[1], s.graphics[2].from)
+  end
+  
+  
+  def test_find_lines_when_lines_to_be_found
+    s = sheet {
+      with shaped_graphic
+      with line_graphic {
+        graffle_id_is 1
+      }
+      with shaped_graphic
+      with line_graphic {
+        graffle_id_is 2
+      }
+    }
+    
+    assert_equal([1, 2], s.all_lines.collect { | l | l.graffle_id })
+    assert_equal(1, s.first_line.graffle_id)
+  end
+  
+  def test_find_lines_when_there_are_no_lines
+    assert_equal([], sheet.all_lines)
+    assert_equal(nil, sheet.first_line)
+  end
+  
+  def test_lines_within_groups_are_not_found
+    s = sheet {
+      with group {
+        with line_graphic {
+          graffle_id_is 1
+        }
+      }
+    }
+    
+    assert_equal([], s.all_lines)
+  end
+
+  
+end