graffle 0.1.8 → 0.1.9

data/test/graphical_tests_for_rails/in-workflow-order-tests.rb

@@ -14,7 +14,7 @@ require 'graphical_tests_for_rails/orderings.rb'
 
 class TestWorkflowOrder < Test::Unit::TestCase
   include Graffle::Builders
-  include GraphicalTestsForRails
+  include GraphicalTestsForRails::GraphicArrayOrderings
   
   def test_workflow_order_finds_highest_first
     s = sheet {

data/test/graphical_tests_for_rails/picture-applier-tests.rb

@@ -0,0 +1,215 @@
+#!/usr/bin/env ruby
+#
+#  Created by Brian Marick on 2007-07-20.
+#  Copyright (c) 2007. All rights reserved.
+
+require 'test/unit'
+require 's4t-utils'
+include S4tUtils
+
+require "../set-standalone-test-paths.rb" unless $started_from_rakefile
+
+require 'extensions/string'
+require 'test/graphical_tests_for_rails/util'
+require 'graffle'
+require 'graphical_tests_for_rails/picture-appliers'
+
+class PictureApplierTest < Test::Unit::TestCase
+  include Graffle
+  include Graffle::Builders
+  include GraphicalTestsForRails
+  include GraphicalTestsForRails::TextAppliers
+
+  def setup
+    @sheet = sheet { 
+      with shaped_graphic { 
+        graffle_id_is 1
+          with_content 'shaped graphic text...' 
+        }
+      with line_label {  
+        for_line 22
+        with_content 'line label text...'
+      }
+      with line_graphic {
+        graffle_id_is 22
+      }
+      with shaped_graphic {  # no text
+        graffle_id_is 333
+      }
+      with line_graphic {    # no label 
+        graffle_id_is 4444
+      }
+    }
+  end
+  
+  def shaped_graphic_with_content; @sheet.find_by_id(1); end
+  def shaped_graphic_without_text; @sheet.find_by_id(333); end
+  def line_graphic_with_label; @sheet.find_by_id(22); end
+  def line_graphic_without_label; @sheet.find_by_id(4444); end
+    
+
+  def test_empty_applier_produces_eager_but_useless_volunteer
+    @applier = PictureApplier.new
+    g = shaped_graphic { with_content 'foo' }
+    assert_equal(EagerButUselessVolunteer, @applier.find_volunteer_for(g).class)
+    # Or, as shorthand:
+    assert_eager_but_useless_volunteer_for(g)
+  end
+
+  def assert_eager_but_useless_volunteer_for(graphic)
+    assert_equal(EagerButUselessVolunteer, @applier.find_volunteer_for(graphic).class)
+  end
+  
+  def assert_trained_volunteer_for(graphic)
+    assert_not_equal(EagerButUselessVolunteer, @applier.find_volunteer_for(graphic).class)
+  end
+  
+  def test_useless_volunteer_does_nothing
+    # ... so we can just test for it rather than having it do something.  
+    @applier = PictureApplier.new
+    g = shaped_graphic { with_note 'foo' }
+    @applier.apply([g], "will blow up if used")
+  end
+  
+
+  # Some examples of how a PictureApplier can use the Volunteer
+  # mechanism to prepare volunteers trained for certain kinds
+  # of graphics.
+  def test_can_recruit_trained_volunteers_for_shaped_graphic_contents
+    @applier = PictureApplier.new {
+      given('shaped graphic content')   # ... chained methods go here
+    }
+    
+    assert_trained_volunteer_for(shaped_graphic_with_content)
+    assert_eager_but_useless_volunteer_for(shaped_graphic_without_text)
+    assert_eager_but_useless_volunteer_for(line_graphic_with_label)
+  end
+  
+  def test_can_recruit_trained_volunteers_for_line_graphic_labels
+    @applier = PictureApplier.new {
+      given('line label content')   # ... chained methods go here
+    }
+    
+    assert_trained_volunteer_for(line_graphic_with_label)
+    assert_eager_but_useless_volunteer_for(line_graphic_without_label)
+    assert_eager_but_useless_volunteer_for(shaped_graphic_with_content)
+  end
+  
+  def test_there_is_a_fixed_set_of_graphically_oriented_volunteers 
+    assert_raises(StandardError) {
+      PictureApplier.new { given 'oopsla' }
+    }
+  end
+  
+  
+  # Examples of using the 'matching' clause to augment a 
+  # graphically-oriented volunteer with a textually-oriented one.
+  
+  def test_can_augment_a_volunteer_to_look_for_ellipses
+    @applier = PictureApplier.new {
+      given('shaped graphic content').matching('text...')   # ... chained methods go here
+    }
+    
+    assert_trained_volunteer_for(shaped_graphic { with_content "blah..." })
+    assert_eager_but_useless_volunteer_for(shaped_graphic { with_content "blah" })
+    assert_eager_but_useless_volunteer_for(shaped_graphic)
+    assert_eager_but_useless_volunteer_for(line_graphic_with_label)
+  end
+  
+  def test_there_is_a_fixed_set_of_textually_oriented_volunteers 
+    ok_so_far = PictureApplier.new { given 'shaped graphic content' }
+    assert_raises(StandardError) {
+      ok_so_far.matching('something never defined')
+    }
+  end
+  
+  # An example of how it's all put together to send messages to targets.
+  
+  class Echoer < AbstractTextApplier
+    def message_and_args_from(string)
+      [:echo, string]
+    end
+  end
+  
+  def test_application_of_matches
+    @applier = PictureApplier.new {
+      given('note').matching('text...').skip
+      given('note').use(Echoer.new)
+    }
+    
+    s = sheet {
+      with shaped_graphic { with_notes 'hello world' }
+      with line_graphic
+      with shaped_graphic { with_notes "waiting..."}
+      with line_graphic { with_notes "goodbye world" }
+    }
+    
+    target = CommandRecorder.new
+    @applier.apply(s.graphics, target)    
+    assert_equal(['echo("hello world")', 'echo("goodbye world")'], 
+                 target.record)
+  end
+  
+  
+  class ThriceThenDie
+    include Test::Unit::Assertions
+    
+    def initialize
+      @count = 0
+    end
+    
+    def echo(value)
+      @count += 1 
+      assert_equal("right", "wrong") if @count >= 4
+    end
+    
+  end
+
+  def four_counting_shaped_graphics
+    sheet {
+      with shaped_graphic { with_content "first" }
+      with shaped_graphic { with_content "second" }
+      with shaped_graphic { with_content "third" }
+      with shaped_graphic { with_content "yikes!"}
+    }.graphics
+  end
+  
+  def four_graphic_contents
+    four_counting_shaped_graphics.collect { |g| g.content.as_plain_text }
+  end
+  
+  def assert_thrice_then_die_log(exc, expected_echoed)
+    assert_match(/right.*expected.*was.*wrong/m, exc.message)
+    expected = expected_echoed.collect do |w|
+      "echo\\(" + w.inspect + "\\)"
+    end.join('.*')
+    assert_match(/#{expected}/m, exc.message)
+  end
+  
+  def test_logging_prints_list_of_calls_into_target
+    @applier = PictureApplier.new {
+      given('shaped graphic content').use(Echoer.new)
+    }
+    begin
+      @applier.apply(four_counting_shaped_graphics, ThriceThenDie.new)
+    rescue Test::Unit::AssertionFailedError => e 
+      assert_thrice_then_die_log(e, four_graphic_contents)
+    end
+  end
+  
+  def test_log_can_be_injected
+    def test_logging_prints_list_of_calls_into_target
+      @applier = PictureApplier.new {
+        given('shaped graphic content').use(Echoer.new)
+      }
+      begin
+        @applier.apply(four_counting_shaped_graphics, 
+                       ThriceThenDie.new,
+                       ['echo("prior value of log")'])
+      rescue Test::Unit::AssertionFailedError => e 
+        assert_thrice_then_die_log(e, ["prior value of log"] + four_graphic_contents)
+      end
+    end
+  end
+  
+end

data/test/graphical_tests_for_rails/{text-interpreter-tests.rb → text-applier-tests.rb}

@@ -17,7 +17,7 @@ class TestProductionOfMessages < Test::Unit::TestCase
   include GraphicalTestsForRails
   
   def assert_translation(expected, original)
-    actual = @interpreter.produce_method_call(original)
+    actual = @interpreter.message_and_args_from(original)
     assert_equal(expected, actual)
   end
   
@@ -75,9 +75,23 @@ class TestProductionOfMessages < Test::Unit::TestCase
     assert_translation(["capitals_are_lowercased_throughout"],
                        %q{Capitals are lowercased THROUGHOUT})
   end
+  
+  def test_messages_created_from_prefix_name_and_quoted_args
+    @interpreter = PrefixNameAndArgsFromQuotedText.new
+    
+    assert_translation(["runs", "nathan"],
+                       %q{Nathan runs})
+
+    assert_translation(["runs_to", "nathan", "Tacoma"],
+                       %q{Nathan runs to "Tacoma"})  
+
+    assert_raises_with_matching_message(StandardError, /'runs' cannot be split into a name and an action./) {
+       @interpreter.message_and_args_from('runs')
+    }
+  end
 
   def test_messages_created_from_page_names
-    @interpreter = TextIsNameOfPage.new('assert_on_page')
+    @interpreter = TextAsNameOfPage.new('assert_on_page')
     assert_translation(['assert_on_page', "markup"],
                        "MARKUP")
                        
@@ -91,7 +105,7 @@ class TestProductionOfMessages < Test::Unit::TestCase
 
 
   def test_ineffectual_interpreters_produce_messages_that_do_nothing
-    @interpreter = Ineffectual.new
+    @interpreter = TextApplierThatDoesNothing.new
     assert_translation([:object_id], "MARKUP")
   end
 end

data/test/graphical_tests_for_rails/util.rb

@@ -0,0 +1,16 @@
+#!/usr/bin/env ruby
+#
+#  Created by Brian Marick on 2007-07-20.
+#  Copyright (c) 2007. All rights reserved.
+
+
+class CommandRecorder
+  attr_reader :record
+  def initialize
+    @record = []
+  end
+  
+  def method_missing(message, *args)
+    @record << "#{message}(" + args.collect { | a | a.inspect }.join(", ") + ')'
+  end
+end

data/test/line-graphic-tests.rb

@@ -130,12 +130,15 @@ class TestLineGraphics < Test::Unit::TestCase
     sheet {
       with line_label {   # Line labels are graphics at same level as lines.
         for_line 1
-        with_text LINE_LABEL_TEXT
+        with_content LINE_LABEL_TEXT
         graffle_id_is 3
       }
       with line_graphic {
         graffle_id_is 1
       }
+      with line_graphic {
+        graffle_id_is 883    # No label.
+      }
     }
   end
 
@@ -150,6 +153,11 @@ class TestLineGraphics < Test::Unit::TestCase
     assert_equal(1, label_graphic.line.graffle_id)
   end
   
+  def test_lines_can_be_asked_if_they_have_labels
+    assert_true(line_label_sheet.find_by_id(1).has_label?)
+    assert_false(line_label_sheet.find_by_id(883).has_label?)
+  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)

data/test/note-tests.rb

@@ -0,0 +1,62 @@
+#!/usr/bin/env ruby
+#
+#  Created by Brian Marick on 2007-07-19.
+#  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'
+
+# Notes need to have the same interface as Text, even though they 
+# have a different structure. 
+
+class TestNotes < Test::Unit::TestCase
+  include Graffle
+  include Graffle::Builders
+  
+  def test_creation
+    assert_true(annotation("hello").behaves_like?(Note))
+    assert_equal("hello", annotation("hello"))
+  end
+  
+  
+  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\\
+     | hi}}.trim('|')
+
+
+  def test_as_rtf_just_reproduces_input
+    assert_equal(RTF, annotation(RTF).as_rtf)
+  end
+  
+  def test_as_plain_text_removes_rtf
+    assert_equal("John follows \"sign up\" link\nhi", annotation(RTF).as_plain_text)
+  end
+  
+  def test_as_lines
+    assert_equal(["John follows \"sign up\" link", "hi"],
+                 annotation(RTF).as_lines)
+  end
+  
+  def test_plain_text_is_more_convenient_for_testing_so_allow_it
+    unrtf = %Q{John follows "sign up" link}
+    assert_equal(['John follows "sign up" link'],
+                 annotation(unrtf).as_lines)
+  end
+  
+
+  def test_null_text_just_returns_empty_lines
+    assert_equal([], Note::Null.new.as_lines)
+  end
+  
+  
+end

data/test/{graffle-file-types → sample-files}/opening-tests.rb

@@ -15,17 +15,17 @@ class TestOpeningOfDocuments < Test::Unit::TestCase
   include Graffle
 
   def test_reading_of_plain_file
-    document = Graffle.parse(relative("multiple-canvases.graffle"))
+    document = Graffle.parse_file(relative("multiple-canvases.graffle"))
     assert_equal(3, document.sheets.length)
   end
   
   def test_reading_of_package
-    document = Graffle.parse(relative("as-a-package.graffle"))
+    document = Graffle.parse_file(relative("as-a-package.graffle"))
     assert_equal(1, document.sheets.length)
   end
   
   def test_reading_of_file_with_lines
-    document = Graffle.parse(relative("two-boxes-and-a-line.graffle"))
+    document = Graffle.parse_file(relative("two-boxes-and-a-line.graffle"))
     assert_equal(1, document.sheets.length)
     line = document.first_sheet.first_line
     assert_equal("the line has a label", line.label_rtf.as_plain_text)
@@ -35,10 +35,15 @@ class TestOpeningOfDocuments < Test::Unit::TestCase
     assert_equal('FilledArrow', line['Style']['stroke']['HeadArrow'])
   end
   
+  def test_nonexistent_file_raises_exception
+    assert_raises(Errno::ENOENT) do
+      Graffle.parse_file("/no such file")
+    end
+  end
   
   private
   
   def relative(file)
-    File.join(PACKAGE_ROOT, 'test', 'graffle-file-types', file)
+    File.join(PACKAGE_ROOT, 'test', 'sample-files', file)
   end
 end

data/test/shaped-graphic-tests.rb

@@ -55,7 +55,7 @@ class TestShapedGraphics < Test::Unit::TestCase
        | \\f0\\fs24 \\cf0 John follows "sign up" link}}.trim('|')
 
     g = shaped_graphic {
-      with_text rtf
+      with_content rtf
     }
     
     assert_true(g.has_content?)
@@ -77,12 +77,11 @@ class TestShapedGraphics < Test::Unit::TestCase
     assert_equal([], shaped_graphic.content.as_lines)
   end
   
-  
   def test_shaped_graphics_stereotypes_its_content
     s = sheet {
       with shaped_graphic { 
         graffle_id_is 333 
-        with_text "foo"
+        with_content "foo"
       }
       with shaped_graphic { graffle_id_is 44 } # Check that this doesn't blow up
     }