fit 1.1

data/test/fit_server_test.rb

@@ -0,0 +1,214 @@
+# Written by Object Mentor, Inc. 2005
+# Copyright (c) 2002 Cunningham & Cunningham, Inc.
+# Released under the terms of the GNU General Public License version 2 or later.
+
+# Make the test run location independent
+$:.unshift File.dirname(__FILE__)
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+
+require 'test/unit'
+require 'socket'
+require 'fit/fit_server'
+
+module Fit
+  class FitServerTest < Test::Unit::TestCase
+  
+    def setup
+      @fit_server = FitServer.new
+      @read_end_of_pipe, @write_end_of_pipe = IO.pipe
+    end
+    
+    def teardown
+      @session.close if @session != nil
+      @server.close if @server != nil
+      @server_thread.kill if @server_thread != nil and @server_thread.alive?
+    end
+  
+    def test_args
+      success = @fit_server.args(['localhost', '80', '123'])
+      assert(success);
+    	check_standard_fit_server_parameters
+    end
+    
+    def test_args_with_verbose
+      success = @fit_server.args(['-v', 'localhost', '80', '123'])
+      assert(success)
+      assert(@fit_server.verbose)
+    	check_standard_fit_server_parameters
+    end
+    
+    def test_bad_args
+      assert(! @fit_server.args(['-x', 'localhost', '80', '123']))
+      assert(! @fit_server.args(['-x', 'localhost', '80']))
+      assert(! @fit_server.args(['localhost', '80', '123', 'blah']))
+      assert(! @fit_server.args(['localhost', 'abc', '123']))
+    end
+    
+    def check_standard_fit_server_parameters
+    	assert_equal('localhost', @fit_server.host)
+    	assert_equal(80, @fit_server.port)
+    	assert_equal('123', @fit_server.test_ticket)
+    end
+    
+    def test_build_request
+    	@fit_server.test_ticket = "12345"
+    	expected_request = "GET /?responder=socketCatcher&ticket=12345 HTTP/1.1\r\n\r\n"
+    	assert_equal(expected_request, @fit_server.build_request)
+    end
+    
+    def test_read_size
+      @write_end_of_pipe.print("0000000000")
+    	assert_equal(0, FitProtocol.read_size(@read_end_of_pipe))
+      @write_end_of_pipe.print("0000000001")
+    	assert_equal(1, FitProtocol.read_size(@read_end_of_pipe))
+      @write_end_of_pipe.print("00000123450000000021")
+    	assert_equal(12345, FitProtocol.read_size(@read_end_of_pipe))
+    	assert_equal(21, FitProtocol.read_size(@read_end_of_pipe))
+    end
+    
+    def test_establish_connection
+      startSession do
+          @session.print('0000000000')
+          @session.flush
+      end
+      @fit_server.establish_connection()
+      assert(@fit_server.good_connection?)
+    end
+    
+    def test_validate_connection
+      message = "This would normally be an error message"
+      message_length = '00000000' + message.length.to_s
+    	startSession do
+    	  @session.print(message_length)
+    	  @session.print(message)
+    	  @session.flush
+    	end
+      @fit_server.establish_connection()
+    	assert(! @fit_server.good_connection?)
+    	assert_equal(message, @fit_server.reason_for_bad_connection)
+    end
+    
+    def test_run_one_passing_table
+    	startSession do
+    	  FitProtocol.write_size(0, @session)
+    	  FitProtocol.write_document(passing_table, @session)
+    	  FitProtocol.write_size(0, @session)
+    	end
+      @fit_server.establish_connection()
+      @fit_server.process()
+      results = FitProtocol.read_document(@session)
+      FitProtocol.read_size(@session)
+      counts = FitProtocol.read_counts(@session)
+      assert_not_nil(results.index("<td bgcolor=\"#cfffcf\">"), results)
+      check_counts(counts, 1, 0, 0, 0)
+      assert_equal(0, @fit_server.exit_code)
+    end
+    
+    def test_run_one_failing_table
+    	startSession do
+    	  FitProtocol.write_size(0, @session)
+    	  FitProtocol.write_document(failing_table, @session)
+    	  FitProtocol.write_size(0, @session)
+    	end
+      @fit_server.establish_connection()
+      @fit_server.process()
+      results = FitProtocol.read_document(@session)
+      FitProtocol.read_size(@session)
+      counts = FitProtocol.read_counts(@session)
+      assert_not_nil(results.index("<td bgcolor=\"#ffcfcf\">"), results)
+      check_counts(counts, 0, 1, 0, 0)
+      assert_equal(1, @fit_server.exit_code)
+    end
+    
+    def test_two_tables_in_one_document
+    	startSession do
+    	  FitProtocol.write_size(0, @session)
+    	  FitProtocol.write_document(passing_table + "\n" + failing_table, @session)
+    	  FitProtocol.write_size(0, @session)
+    	end
+      @fit_server.establish_connection()
+      @fit_server.process()
+      passing_results = FitProtocol.read_document(@session)
+      failing_results = FitProtocol.read_document(@session)
+      FitProtocol.read_size(@session)
+      counts = FitProtocol.read_counts(@session)
+      assert_not_nil(passing_results.index("<td bgcolor=\"#cfffcf\">"), passing_results)
+      assert_nil(passing_results.index("FailFixture"), "Shouldn't have second table in output")
+      assert_not_nil(failing_results.index("<td bgcolor=\"#ffcfcf\">"), failing_results)
+      check_counts(counts, 1, 1, 0, 0)
+      assert_equal(1, @fit_server.exit_code)
+    end
+    
+    def test_processing_two_documents
+    	startSession do
+    	  FitProtocol.write_size(0, @session)
+    	  FitProtocol.write_document(passing_table, @session)
+    	  FitProtocol.write_document(failing_table, @session)
+    	  FitProtocol.write_size(0, @session)
+    	end
+      @fit_server.establish_connection()
+      @fit_server.process()
+      passing_results = FitProtocol.read_document(@session)
+      FitProtocol.read_size(@session)
+      passingCounts = FitProtocol.read_counts(@session)
+      failing_results = FitProtocol.read_document(@session)
+      FitProtocol.read_size(@session)
+      failingCounts = FitProtocol.read_counts(@session)
+      assert_not_nil(passing_results.index("<td bgcolor=\"#cfffcf\">"), passing_results)
+      assert_not_nil(failing_results.index("<td bgcolor=\"#ffcfcf\">"), failing_results)
+      check_counts(passingCounts, 1, 0, 0, 0)
+      check_counts(failingCounts, 0, 1, 0, 0)
+      assert_equal(1, @fit_server.exit_code)
+    end
+    
+    def test_non_test_input
+    	startSession do
+    	  FitProtocol.write_size(0, @session)
+    	  FitProtocol.write_document("Hey! There's no table here!'", @session)
+    	  FitProtocol.write_size(0, @session)
+    	end
+      @fit_server.establish_connection()
+      @fit_server.process()
+      results = FitProtocol.read_document(@session)
+      FitProtocol.read_size(@session)
+      counts = FitProtocol.read_counts(@session)
+      assert_not_nil(results.index("Exception"))
+      assert_not_nil(results.index("Can't find tag: table"))
+      check_counts(counts, 0, 0, 0, 1)
+      assert_equal(1, @fit_server.exit_code)
+    end
+    
+    def check_counts (counts, right, wrong, ignores, exceptions)
+      assert_equal(right, counts.right, "rights wrong")
+      assert_equal(wrong, counts.wrong, "wrongs wrong")
+      assert_equal(ignores, counts.ignores, "ignores wrong")
+      assert_equal(exceptions, counts.exceptions, "exceptions wrong")
+    end
+    
+    def startSession (&connectionAction)
+      @fit_server.args(['localhost', '9002', '123'])
+      @server_thread = Thread.new do
+        begin
+          @server = TCPServer.new('localhost', 9002)
+          @session = @server.accept
+          request = @session.readline
+          @session.readline
+        rescue => e
+          puts e
+        end
+        
+        yield connectionAction
+      end
+      sleep(0.1)
+    end
+    
+    def passing_table
+      return "<table><tr><td>fixtures::PassFixture</td></tr></table>"
+    end
+    
+    def failing_table
+      return "<table><tr><td>fixtures::FailFixture</td></tr></table>"
+    end
+    
+  end
+end

data/test/fixture_loader_test.rb

@@ -0,0 +1,71 @@
+# Copyright (c) 2002 Cunningham & Cunningham, Inc.
+# Released under the terms of the GNU General Public License version 2 or later.
+
+require 'test/unit'
+
+# Make the test run location independent
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+
+require 'fit/fixture_loader'
+require 'fit/import_fixture'
+require 'eg/division'
+require 'eg/all_files'
+require 'eg/nested/bob_the_builder_fixture'
+require 'eg/music/browser'
+
+module Fit
+  class FixtureLoaderTest < Test::Unit::TestCase
+    def setup
+      @loader = FixtureLoader.new
+    end
+    def test_you_can_load_a_fixture
+      assert_instance_of(Eg::Division, @loader.load('Eg.Division'))
+    end
+    def test_java_simple_fixture
+      assert_instance_of(Eg::AllFiles, @loader.load('eg.AllFiles'))
+    end
+    def test_java_nested_fixture
+      assert_instance_of(Eg::AllFiles::Expand, @loader.load('eg.AllFiles$Expand'))
+    end
+    def test_you_can_load_a_fixture_with_colons_rather_than_dots
+      assert_instance_of(Eg::Nested::BobTheBuilderFixture, @loader.load('Eg::Nested::BobTheBuilderFixture'))
+    end
+    class LookImNotInTheRightPlace < Fixture
+    end
+    def test_you_can_load_any_fixture_already_loaded_regardless_of_path
+      assert_instance_of(Fit::FixtureLoaderTest::LookImNotInTheRightPlace,
+                         @loader.load('Fit.FixtureLoaderTest.LookImNotInTheRightPlace'))
+    end
+    def test_you_can_add_fixture_packages
+      FixtureLoader.add_fixture_package('Eg::Music')
+      assert_instance_of(Eg::Music::Browser, @loader.load('Browser'))
+    end 
+    def test_it_finds_fixtures_in_the_fit_module
+      assert_instance_of(Fit::ImportFixture, @loader.load('ImportFixture'))
+    end        
+    def test_it_adds_fixture_to_the_end_if_it_cant_find_the_class
+      assert_instance_of(Fit::ImportFixture, @loader.load('Import'))
+    end
+    def test_it_camalizes_seperated_words
+      FixtureLoader.add_fixture_package('Eg::Nested')
+      assert_instance_of(Eg::Nested::BobTheBuilderFixture, @loader.load('bob the builder fixture'))
+      assert_instance_of(Eg::Nested::BobTheBuilderFixture, @loader.load('bob the builder'))
+    end
+    def test_punctuation_seperates_words
+      FixtureLoader.add_fixture_package('Eg::Nested')
+      assert_instance_of(Eg::Nested::BobTheBuilderFixture, @loader.load('bob_the!-builder,fixture.'))
+      assert_instance_of(Eg::Nested::BobTheBuilderFixture, @loader.load('bob_the!-builder.'))
+    end
+    def test_it_raises_when_it_cant_find_the_fixture
+      @loader.load "NoSuchClass"
+    rescue StandardError => e
+      assert_equal("Fixture NoSuchClass not found.", e.to_s)
+    end
+    def test_it_only_loads_fixtures
+      @loader.load "String"
+      flunk("Should have thrown.")
+    rescue StandardError => e
+      assert_equal("String is not a fixture.", e.to_s)
+    end
+  end
+end

data/test/fixture_test.rb

@@ -0,0 +1,41 @@
+# Copyright (c) 2002 Cunningham & Cunningham, Inc.
+# Released under the terms of the GNU General Public License version 2 or later.
+
+require 'test/unit'
+# Make the test run location independent
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+require 'fit/fixture'
+require 'fit/parse'
+
+module Fit
+
+  class FixtureTest < Test::Unit::TestCase
+    def test_escape
+      junk = "!@$%^*()_-+={}|[]\\:\";',./?`#"
+      assert_equal junk, Fixture.escape(junk)
+
+      assert_equal ' &nbsp; &nbsp; ', Fixture.escape('     ')
+      assert_equal '', Fixture.escape('')
+      assert_equal '&lt;', Fixture.escape('<')
+      assert_equal '&lt;&lt;', Fixture.escape('<<')
+      assert_equal 'x&lt;', Fixture.escape('x<')
+      assert_equal '&amp;', Fixture.escape('&')
+      assert_equal '&lt;&amp;&lt;', Fixture.escape('<&<')
+      assert_equal '&amp;&lt;&amp;', Fixture.escape('&<&')
+      assert_equal 'a &lt; b &amp;&amp; c &lt; d', Fixture.escape('a < b && c < d')
+      assert_equal 'a<br />b', Fixture.escape("a\nb")
+    end
+    class ArgsFixture < Fit::Fixture
+      @@args = nil
+      def do_table table
+        @@args = @args
+      end
+      def self.args; @@args; end
+    end
+    def test_it_passes_parameters
+      p = Parse.new '<table><tr><td>Fit.FixtureTest.ArgsFixture</td><td>a</td><td>b</td></tr></table>' 
+      Fixture.new.do_tables p      
+      assert_equal ['a', 'b'], ArgsFixture.args
+    end
+  end
+end

data/test/fixtures/fail_fixture.rb

@@ -0,0 +1,9 @@
+require 'fit/fixture'
+
+module Fixtures
+  class FailFixture < Fit::Fixture
+    def do_table(table)
+      wrong(table.parts.parts)
+    end
+  end
+end

data/test/fixtures/pass_fixture.rb

@@ -0,0 +1,9 @@
+require 'fit/fixture'
+
+module Fixtures
+  class PassFixture < Fit::Fixture
+    def do_table(table)
+      right(table.parts.parts)
+    end
+  end
+end

data/test/framework_test.rb

@@ -0,0 +1,51 @@
+# Copyright (c) 2002 Cunningham & Cunningham, Inc.
+# Released under the terms of the GNU General Public License version 2 or later.
+
+require 'test/unit'
+# Make the test run location independent
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+require 'fit/fixture'
+require 'fit/parse'
+
+module Fit
+
+  class FrameworkTest < Test::Unit::TestCase
+    def test_runs
+      # The original Java version for the arithmetic fixture led to
+      # 37, 10, 0, 2 as results, but Ruby handles maths differently.
+      # Using a more strict delta in Fit::TypeAdapter could lead to
+      # worse results on the Ruby front.
+      run_page 'arithmetic', 39, 8, 0, 2
+      run_page 'BinaryChop', 95, 0, 0, 0
+      run_page 'CalculatorExample', 75, 9, 0, 0
+      run_page 'MusicExample', 95, 0, 0, 0
+      run_page 'MusicExampleWithErrors', 54, 10, 0, 0
+      run_page 'NetworkExample', 5, 0, 0, 0
+      # run_page 'SimpleExample', 5, 0, 0, 0
+    end
+    def run_page file, right, wrong, ignores, exceptions
+      input = File.open("../../examples/#{file}.html") {|f| f.read}
+      fixture = Fixture.new
+      tables = nil
+      unless input.index('<wiki>').nil?
+        tables = Parse.new input, ['wiki', 'table', 'tr', 'td']
+        fixture.do_tables tables.parts
+      else
+        tables = Parse.new input, ['table', 'tr', 'td']
+        fixture.do_tables tables
+      end
+      tables.print OutputStream.new
+      
+      assert_equal right, fixture.counts.right, "#{file} right"
+      assert_equal wrong, fixture.counts.wrong, "#{file} wrong"
+      assert_equal ignores, fixture.counts.ignores, "#{file} ignores"
+      assert_equal exceptions, fixture.counts.exceptions, "#{file} exceptions"
+    end
+  end
+
+  # A dummy output stream to avoid creating output files
+  class OutputStream < String
+    def print text; end
+  end
+
+end

data/test/parse_test.rb

@@ -0,0 +1,101 @@
+# Copyright (c) 2002 Cunningham & Cunningham, Inc.
+# Released under the terms of the GNU General Public License version 2 or later.
+
+require 'test/unit'
+# Make the test run location independent
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+require 'fit/parse'
+
+module Fit
+
+  class ParseTest < Test::Unit::TestCase
+    def test_parsing
+      p = Parse.new 'leader<Table foo=2>body</table>trailer', ['table']
+      assert_equal 'leader', p.leader
+      assert_equal '<Table foo=2>', p.tag
+      assert_equal 'body', p.body
+      assert_equal 'trailer', p.trailer
+    end
+    def test_recursing
+      p = Parse.new 'leader<table><TR><Td>body</tD></TR></table>trailer'
+      assert_nil p.body
+      assert_nil p.parts.body
+      assert_equal 'body', p.parts.parts.body
+    end
+    def test_iterating
+      p = Parse.new 'leader<table><tr><td>one</td><td>two</td><td>three</td></tr></table>trailer'
+      assert_equal 'one', p.parts.parts.body
+      assert_equal 'two', p.parts.parts.more.body
+      assert_equal 'three', p.parts.parts.more.more.body
+    end
+    def test_indexing
+      p = Parse.new 'leader<table><tr><td>one</td><td>two</td><td>three</td></tr><tr><td>four</td></tr></table>trailer'
+      assert_equal 'one', p.at(0, 0, 0).body
+      assert_equal 'two', p.at(0,0,1).body
+      assert_equal 'three', p.at(0,0,2).body
+      assert_equal 'three', p.at(0,0,3).body
+      assert_equal 'three', p.at(0,0,4).body
+      assert_equal 'four', p.at(0,1,0).body
+      assert_equal 'four', p.at(0,1,1).body
+      assert_equal 'four', p.at(0,2,0).body
+      assert_equal 1, p.size()
+      assert_equal 2, p.parts.size()
+      assert_equal 3, p.parts.parts.size()
+      assert_equal 'one', p.leaf().body
+      assert_equal 'four', p.parts.last().leaf().body
+    end
+    def test_parse_exception
+      begin
+        p = Parse.new 'leader<table><tr><th>one</th><th>two</th><th>three</th></tr><tr><td>four</td></tr></table>trailer'
+        fail 'Expected ParseException not thrown.'
+      rescue ParseException => e
+        assert_equal 17, e.error_offset
+        assert_equal "Can't find tag: td", e.message
+      end
+    end
+    def test_text
+      tags = ['td']
+      p = Parse.new '<td>a&lt;b</td>', tags
+      assert_equal 'a&lt;b', p.body
+      assert_equal 'a<b', p.text
+      p = Parse.new "<td>\ta&gt;b&nbsp;&amp;&nbsp;b>c &&&lt;</td>", tags
+      assert_equal 'a>b & b>c &&<', p.text
+      p = Parse.new "<td>\ta&gt;b&nbsp;&amp;&nbsp;b>c &&lt;</td>", tags
+      assert_equal 'a>b & b>c &<', p.text
+      p = Parse.new '<TD><P><FONT FACE="Arial" SIZE=2>GroupTestFixture</FONT></TD>', tags
+      assert_equal 'GroupTestFixture', p.text()
+    end
+    def test_html_to_text
+      assert_equal '', Parse.html_to_text('&nbsp;')
+      assert_equal 'a b', Parse.html_to_text('a <tag /> b')
+      assert_equal 'a', Parse.html_to_text('a &nbsp;')
+      assert_equal '&nbsp;', Parse.html_to_text('&amp;nbsp;')
+      assert_equal '1     2', Parse.html_to_text('1 &nbsp; &nbsp; 2')
+      assert_equal '1     2', Parse.html_to_text("1 \xa0\xa0\xa0\xa02")
+      assert_equal 'a', Parse.html_to_text('  <tag />a')
+      assert_equal "a\nb", Parse.html_to_text('a<br />b')
+      assert_equal 'ab', Parse.html_to_text('<font size=+1>a</font>b')
+      assert_equal 'ab', Parse.html_to_text('a<font size=+1>b</font>')
+      assert_equal 'a<b', Parse.html_to_text('a<b')
+      assert_equal "a\nb\nc\nd", Parse.html_to_text('a<br>b<br/>c<  br   /   >d')
+      assert_equal "a\nb", Parse.html_to_text('a</p><p>b')
+      assert_equal "a\nb", Parse.html_to_text('a< / p >   <   p  >b')
+    end
+    def test_unescape
+      assert_equal 'a<b', Parse.unescape('a&lt;b')
+      assert_equal 'a>b & b>c &&', Parse.unescape('a&gt;b&nbsp;&amp;&nbsp;b>c &&')
+      assert_equal '&amp;&amp;', Parse.unescape('&amp;amp;&amp;amp;')
+      assert_equal 'a>b & b>c &&', Parse.unescape('a&gt;b&nbsp;&amp;&nbsp;b>c &&')
+      assert_equal "'\"\"'", Parse.unescape("\221��\222")
+    end
+    def test_whitespace_is_condensed
+      assert_equal 'a b', Parse.condense_whitespace(' a  b  ')
+      assert_equal 'a b', Parse.condense_whitespace(" a  \n\tb  ")
+      assert_equal '', Parse.condense_whitespace(' ')
+      assert_equal '', Parse.condense_whitespace('  ')
+      assert_equal '', Parse.condense_whitespace('   ')
+      assert_equal '', Parse.condense_whitespace("\240")
+    end
+  end
+
+end

data/test/row_fixture_test.rb

@@ -0,0 +1,44 @@
+# Copyright (c) 2002 Cunningham & Cunningham, Inc.
+# Released under the terms of the GNU General Public License version 2 or later.
+
+require 'test/unit'
+# Make the test run location independent
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+require 'fit/row_fixture'
+
+module Fit
+
+  class RowFixtureTest < Test::Unit::TestCase
+
+    def test_match
+      fixture = TestRowFixture.new
+      adapter = TypeAdapter.for(fixture, 'get_strings', false)
+      fixture.column_bindings = [adapter]
+      computed = [BusinessObject.new(["1"])]
+      expected = [ParseHolder.create('tr', '', ParseHolder.create('td', '1', nil, nil), nil)]
+      fixture.match expected, computed, 0
+
+      puts fixture.counts.to_s # 0, 0, 0, 0 (!!!)
+      puts fixture.missing.size # 1
+      puts fixture.surplus.size # 1
+      assert_equal 1, fixture.counts.right, 'right'
+      assert_equal 0, fixture.counts.exceptions, 'exceptions'
+      assert_equal 0, fixture.missing.size, 'missing'
+      assert_equal 0, fixture.surplus.size, 'surplus'
+    end
+
+    class BusinessObject
+      def initialize strings
+        @strings = strings
+      end
+      def get_strings
+        @strings
+      end
+    end
+
+    class TestRowFixture < RowFixture
+    end
+
+  end
+
+end

data/test/scientific_double_test.rb

@@ -0,0 +1,35 @@
+# Copyright (c) 2002 Cunningham & Cunningham, Inc.
+# Released under the terms of the GNU General Public License version 2 or later.
+
+require 'test/unit'
+# Make the test run location independent
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+require 'fit/scientific_double'
+
+module Fit
+
+  class ScientificDoubleTest < Test::Unit::TestCase
+    def test_pi_number
+      pi = 3.141592653
+      assert_equal pi, ScientificDouble.value_of('3.14')
+      assert_equal pi, ScientificDouble.value_of('3.142')
+      assert_equal pi, ScientificDouble.value_of('3.1416')
+      assert_equal pi, ScientificDouble.value_of('3.14159')
+      assert_equal pi, ScientificDouble.value_of('3.141592653')
+
+      assert_not_equal pi, ScientificDouble.value_of('3.140')
+      assert_not_equal pi, ScientificDouble.value_of('3.144')
+      assert_not_equal pi, ScientificDouble.value_of('3.1414')
+      assert_not_equal pi, ScientificDouble.value_of('3.141492651')
+    end
+    def test_avogadro_number
+      assert_equal 6.02e23, ScientificDouble.value_of('6.02e23')
+      assert_equal 6.024E23, ScientificDouble.value_of('6.02E23')
+      assert_equal 6.016e23, ScientificDouble.value_of('6.02e23')
+
+      assert_not_equal 6.026e23, ScientificDouble.value_of('6.02e23')
+      assert_not_equal 6.014e23, ScientificDouble.value_of('6.02e23')
+    end
+  end
+
+end