fit 1.1

data/lib/eg/page.rb

@@ -0,0 +1,91 @@
+# Copyright (c) 2002 Cunningham & Cunningham, Inc.
+# Released under the terms of the GNU General Public License version 2 or later.
+
+require 'fit/parse'
+require 'fit/row_fixture'
+
+require 'open-uri'
+require 'uri'
+
+module Eg
+
+  class Page < Fit::RowFixture
+
+    @@url = nil
+    @@text = ''
+
+    # Actions
+
+    def location url
+      @@url = URI.parse url
+      @@text = open(@@url) {|stream| stream.read}
+    end
+
+    def title
+      Fit::Parse.new(@@text, ['title']).text
+    end
+
+    def link label
+      links = Fit::Parse.new @@text, ['a']
+      until links.text =~ /^#{label}/
+        links = links.more
+      end
+      links.tag =~ /href\s*=\s*"(.*)"\s*>?/i
+      if $1.nil?
+        links.tag =~ /href\s*=\s*(.*)\s*>/i
+      end
+      link = $1
+      if link =~ /^(http:)?\/\//
+        @@url = URI.parse($1.nil? ? "http:#{link}" : link)
+      else
+        @@url = URI.parse(context(@@url) + link)
+      end
+      @@text = open(@@url) {|stream| stream.read}
+    end
+
+    def context url
+      u = "#{url.scheme}://#{url.host}"
+      u += (url.port == 80 ? '' : ":#{url.port}") + '/'
+      u
+    end
+
+    # Rows
+
+    def query
+      tags = ['wiki', 'table', 'tr', 'td']
+      rows = Fit::Parse.new(@@text, tags).at(0, 0, 2)
+      result = [nil] * rows.size
+      0.upto(rows.size - 1) do |i|
+        result[i] = Row.new rows
+        rows = rows.more
+      end
+      result
+    end
+
+    # Utility
+
+    def get url
+      response = Net::HTTP.get_response url
+      response.body
+    end
+
+    class Row
+      attr_accessor :cells
+      def initialize row
+        @cells = row.parts
+      end
+      def numerator; to_number(@cells.at(0).text); end
+      def denominator; to_number(@cells.at(1).text); end
+      # An hack to get the right type of number
+      def to_number string
+        begin
+          return Integer(string)
+        rescue
+          return Float(string)
+        end
+      end
+    end
+
+  end
+
+end

data/lib/eg/sqrt.rb

@@ -0,0 +1,19 @@
+# Copyright (c) 2002 Cunningham & Cunningham, Inc.
+# Released under the terms of the GNU General Public License version 2 or later.
+
+require 'fit/column_fixture'
+
+module Eg
+
+  class Sqrt < Fit::ColumnFixture
+    attr_accessor :value
+    def sqrt
+      # But Math.sqrt already raise an error if its parameter is less than zero...
+      # and in fact this guard clause is present because the java.lang.Math method
+      # for sqare radix would return NaN if its argument is negative.
+      raise "negative sqrt" if @value < 0
+      Math.sqrt @value
+    end
+  end
+
+end

data/lib/fat/annotation_fixture.rb

@@ -0,0 +1,83 @@
+# Copyright (c) 2002 Cunningham & Cunningham, Inc.
+# Released under the terms of the GNU General Public License version 2 or later.
+
+require 'fat/string_writer'
+require 'fit/column_fixture'
+
+module Fat
+
+  class AnnotationFixture < Fit::ColumnFixture
+  
+    attr_accessor :original_html, :row, :column,
+                  :overwrite_cell_body, :add_to_cell_body,
+                  :overwrite_cell_tag, :overwrite_end_cell_tag, :add_to_cell_tag,
+                  :overwrite_row_tag, :overwrite_end_row_tag, :add_to_row_tag,
+                  :overwrite_table_tag, :overwrite_end_table_tag, :add_to_table_tag,
+                  :add_cell_following, :remove_following_cell,
+                  :add_row_following, :remove_following_row,
+                  :add_table_following
+                  
+    def initialize
+      super
+      @row = @column = 0
+    end
+
+    def resulting_html
+      table = Fit::Parse.new original_html
+      row = table.at 0, @row - 1
+      cell = row.at 0, @column - 1
+      
+      cell.body = @overwrite_cell_body unless @overwrite_cell_body.nil?
+      cell.add_to_body(@add_to_cell_body) unless @add_to_cell_body.nil?
+      
+      cell.tag = @overwrite_cell_tag unless @overwrite_cell_tag.nil?
+      cell.end = @overwrite_end_cell_tag unless @overwrite_end_cell_tag.nil?
+      cell.add_to_tag(strip_delimiters(@add_to_cell_tag)) unless @add_to_cell_tag.nil?
+      
+      row.tag = @overwrite_row_tag unless @overwrite_row_tag.nil?
+      row.end = @overwrite_end_row_tag unless @overwrite_end_row_tag.nil?
+      row.add_to_tag(strip_delimiters(@add_to_row_tag)) unless @add_to_row_tag.nil?
+      
+      table.tag = @overwrite_table_tag unless @overwrite_table_tag.nil?
+      table.end = @overwrite_end_table_tag unless @overwrite_end_table_tag.nil?
+      table.add_to_tag(strip_delimiters(@add_to_table_tag)) unless @add_to_table_tag.nil?
+      
+      add_parse(cell, @add_cell_following, ['td']) unless @add_cell_following.nil?
+      remove_parse(cell) unless @remove_following_cell.nil?
+      
+      add_parse(row, @add_row_following, ['tr', 'td']) unless @add_row_following.nil?
+      remove_parse(row) unless @remove_following_row.nil?
+      
+      add_parse(table, @add_table_following, ['table', 'tr', 'td']) unless @add_table_following.nil?
+      
+      generate_output table
+    end
+    
+    def add_parse parse, new_string, tags
+      new_parse = Fit::Parse.new new_string, tags
+      new_parse.more = parse.more
+      new_parse.trailer = parse.trailer
+      parse.more = new_parse
+      parse.trailer = nil
+    end
+    
+    def remove_parse parse
+      parse.trailer = parse.more.trailer
+      parse.more = parse.more.more
+    end
+    
+    def strip_delimiters string
+      string.gsub(/^\[/, '').gsub(/\]$/, '')
+    end
+
+    # Code smell note: copied from Fat::ParseFixture
+    def generate_output parse
+      result = StringWriter.new
+      parse.print result
+      result.to_s.strip
+    end
+    
+    private :generate_output
+  end
+
+end

data/lib/fat/color.rb

@@ -0,0 +1,45 @@
+# Copyright (c) 2002 Cunningham & Cunningham, Inc.
+# Released under the terms of the GNU General Public License version 2 or later.
+
+require 'fit/primitive_fixture'
+require 'fat/table'
+
+module Fat
+
+  class Color < Fit::PrimitiveFixture
+    def do_rows rows
+      @actual_row = Table.table.parts
+      raise "wrong size table" if not rows.size == @actual_row.size
+      super
+    end
+    def do_row row
+      super
+      @actual_row = @actual_row.more
+    end
+    def do_cell cell, column_index
+      check_value cell, color(@actual_row.parts.at(column_index))
+    end
+    def color cell
+      b = extract cell.tag, 'bgcolor="', 'white'
+      f = extract cell.body, '<font color="', 'black'
+      f == 'black' ? b : "#{f}/#{b}"
+    end
+    def extract text, pattern, default_color
+      index = text.index pattern
+      return default_color if index.nil?
+      index += pattern.size
+      decode text[index..(index + 6)]
+    end
+    def decode code
+      case code
+        when Fit::Fixture::RED then 'red'
+        when Fit::Fixture::GREEN then 'green'
+        when Fit::Fixture::YELLOW then 'yellow'
+        when Fit::Fixture::GRAY then 'gray'
+        when '#808080' then 'gray'
+        else code
+      end
+    end
+  end
+
+end

data/lib/fat/divide.rb

@@ -0,0 +1,13 @@
+# Copyright (c) 2002 Cunningham & Cunningham, Inc.
+# Released under the terms of the GNU General Public License version 2 or later.
+
+require 'fit/column_fixture'
+
+module Fat
+
+  class Divide < Fit::ColumnFixture
+    attr_accessor :x, :y
+    def divide; x / y; end
+  end
+
+end

data/lib/fat/document_parse_fixture.rb

@@ -0,0 +1,67 @@
+# Copyright (c) 2002 Cunningham & Cunningham, Inc.
+# Released under the terms of the GNU General Public License version 2 or later.
+
+require 'fit/column_fixture'
+require 'fat/string_writer'
+
+module Fat
+
+  class DocumentParseFixture < Fit::ColumnFixture
+    attr_accessor :html
+    attr_accessor :note # non-functional
+
+    def output
+      generate_output(Fit::Parse.new(@html))
+    end
+
+    def structure
+      dump_tables(Fit::Parse.new(@html))
+    end
+
+    def dump_tables(table)
+      result = ""
+      separator = ""
+      while (table) 
+        result += separator
+        result += dump_rows(table.parts)
+        separator = "\n----\n"
+        table = table.more
+      end
+      result
+    end
+
+    def dump_rows(row)
+      result = ""
+      separator = ""
+      while (row)
+        result += separator
+        result += dump_cells(row.parts)
+        separator = "\n"
+        row = row.more
+      end
+      result
+    end
+	
+    def dump_cells(cell)
+      result = ""
+      separator = ""
+      while (cell) 
+        result += separator
+        result += "[" + cell.body + "]"
+        separator = " "
+        cell = cell.more
+      end
+      result
+    end
+    
+    def generate_output parse
+      result = StringWriter.new
+      parse.print result
+      result.to_s
+    end
+    
+    private :dump_tables, :dump_rows, :dump_cells, :generate_output
+    
+  end
+  
+end

data/lib/fat/equals.rb

@@ -0,0 +1,59 @@
+# Copyright (c) 2002 Cunningham & Cunningham, Inc.
+# Released under the terms of the GNU General Public License version 2 or later.
+
+require 'fit/primitive_fixture'
+require 'fit/scientific_double'
+require 'fit/type_adapter'
+
+require 'fat/money'
+
+module Fat
+
+  class Equals < Fit::PrimitiveFixture
+
+    attr_accessor :heads, :adapter, :x, :y
+
+    def do_rows rows
+      @heads = rows.parts
+      super rows.more
+    end
+
+    def do_cell cell, column_index
+      begin
+        head = @heads.at(column_index).text[0..0]
+        case head
+          when 't' then @adapter = type(cell.text)
+          when 'x' then @x = @adapter.parse(cell.text)
+          when 'y' then @y = @adapter.parse(cell.text)
+          when '=' then check_boolean(cell, @adapter.equals(@x, @y))
+          when '?' then cell.add_to_body(Fit::Fixture.gray("x: #{print(@x)} y: #{print(@y)}"))
+          else raise "Don't do #{head}"
+        end
+      rescue Exception => e
+        exception cell, e
+      end
+    end
+
+    def type name;
+      case name
+        when 'date' then Fit::TypeAdapter.on(self, ParseDate)
+        when 'integer' then Fit::TypeAdapter.on(self, Integer)
+        when 'real' then Fit::TypeAdapter.on(self, Float)
+        when 'scientific' then Fit::TypeAdapter.on(self, Fit::ScientificDouble)
+        when 'money' then Fit::TypeAdapter.on(self, Money)
+        else Fit::TypeAdapter.for(self, '', false)
+      end
+    end
+
+    def parse string, klass
+      return Money.new(string) if klass == Money
+      return Float(string) if klass == Float
+      return Integer(string) if klass == Integer
+      super
+    end
+
+    def print value; @adapter.to_s value; end
+    
+  end
+
+end

data/lib/fat/fixture_name_fixture.rb

@@ -0,0 +1,67 @@
+# Copyright (c) 2002 Cunningham & Cunningham, Inc.
+# Released under the terms of the GNU General Public License version 2 or later.
+
+require 'fit/column_fixture'
+
+module Fat
+
+  class FixtureNameFixture < Fit::ColumnFixture
+    attr_accessor :table
+    def fixture_name
+      table_parse = generate_table_parse(@table)
+      dump_tables generate_table_parse(@table)
+    end
+    def dump_tables table
+      result = ''
+      separator = ''
+      until table.nil?
+        result += separator
+        result += dump_rows table.parts
+        separator = "\n----\n"
+        table = table.more
+      end
+      result
+    end
+    def dump_rows row
+      result = ''
+      separator = ''
+      until row.nil?
+        result += separator
+        result += dump_cells row.parts
+        separator = "\n"
+        row = row.more
+      end
+      result
+    end
+    def dump_cells cell
+      result = ''
+      separator = ''
+      until cell.nil?
+        result += separator
+        result += "[#{cell.text}]"
+        separator = ' '
+        cell = cell.more
+      end
+      result
+    end
+    def valid_fixture; 'not implemented'; end
+    def error; 'not implemented'; end
+    def generate_table_parse table
+      rows = table.split(/\n/)
+      Fit::ParseHolder.create 'table', nil, generate_row_parses(rows, 0), nil
+    end
+    def generate_row_parses rows, row_index
+      return nil if row_index >= rows.size
+      md = /\[(.*?)\]/.match(rows[row_index])
+      cells = md[1..-1]
+      Fit::ParseHolder.create 'tr', nil, generate_cell_parses(cells, 0), generate_row_parses(rows, row_index + 1)
+    end
+    def generate_cell_parses cells, cell_index
+      return nil if cell_index >= cells.size
+      Fit::ParseHolder.create 'td', cells[cell_index], nil, generate_cell_parses(cells, cell_index + 1)
+    end
+    private :dump_tables, :dump_rows, :dump_cells
+    private :generate_table_parse, :generate_row_parses, :generate_cell_parses
+  end
+
+end

data/lib/fat/html_to_text_fixture.rb

@@ -0,0 +1,20 @@
+# Copyright (c) 2002 Cunningham & Cunningham, Inc.
+# Released under the terms of the GNU General Public License version 2 or later.
+
+require 'fit/column_fixture'
+
+module Fat
+
+  class HtmlToTextFixture < Fit::ColumnFixture
+    @@metadata = {'html' => String}
+    attr_writer :html
+    def text
+      html = @html.gsub(/\\u00a0/, "\240")
+      escape_ascii(Fit::Parse.html_to_text(html))
+    end
+    def escape_ascii text
+      text.gsub("\x0a", "\\n").gsub("\x0d", "\\r").gsub("\xa0", " ")
+    end
+  end
+
+end

data/lib/fat/money.rb

@@ -0,0 +1,18 @@
+# Copyright (c) 2002 Cunningham & Cunningham, Inc.
+# Released under the terms of the GNU General Public License version 2 or later.
+
+module Fat
+
+  class Money
+    attr_accessor :cents
+    def initialize string
+      stripped = ''
+      string.each {|char| stripped += char if char.between?('0', '9') or char == '.'}
+      @cents = (100 * stripped.to_f).to_i
+    end
+    def == money
+      @cents == money.cents
+    end
+  end
+
+end

data/lib/fat/output_fixture.rb

@@ -0,0 +1,32 @@
+# Copyright (c) 2002 Cunningham & Cunningham, Inc.
+# Released under the terms of the GNU General Public License version 2 or later.
+
+require 'fit/column_fixture'
+
+module Fat
+
+  class OutputFixture < Fit::ColumnFixture
+    attr_accessor :text
+    def cell_output
+      cell = Fit::ParseHolder.create 'td', '', nil, nil
+      cell.leader = ''
+      cell.body = Fit::Fixture.escape unescape(@text)
+      generate_output cell
+    end
+    def unescape text
+      text.gsub(/\\n/, "\n").gsub(/\\r/, "\r")
+    end
+    def generate_output parse
+      result = StringWriter.new
+      parse.print result
+      result.to_s
+    end
+    private :unescape, :generate_output
+    class StringWriter
+      def initialize; @s = ''; end
+      def print s; @s += s; end
+      def to_s; @s; end
+    end
+  end
+
+end

data/lib/fat/parse_fixture.rb

@@ -0,0 +1,92 @@
+# Copyright (c) 2002 Cunningham & Cunningham, Inc.
+# Released under the terms of the GNU General Public License version 2 or later.
+
+require 'fat/string_writer'
+require 'fit/column_fixture'
+
+module Fat
+
+  # A fixture to discuss parsing specification.
+  class ParseFixture < Fit::ColumnFixture
+
+    attr_accessor :html, :table_cell, :entity
+    attr_accessor :note # unused
+
+    def generate_parse
+      input_columns = 0
+      html = nil
+      unless @html.nil?
+        input_columns += 1
+        html = @html
+      end
+      unless @table_cell.nil?
+        input_columns += 1
+        html = "<table><tr>#@table_cell</tr></table>"
+      end
+      unless @entity.nil?
+        input_columns += 1
+        html = "<table><tr><td>#@entity</td></tr></table>"
+      end
+
+      raise "Exactly ONE of the following columns is needed: 'Html', 'TableCell', or 'Entity'" if input_columns != 1
+
+      html.gsub!(/\\u00a0/, "\240")
+      Fit::Parse.new html
+    end
+
+    def output; generate_output(generate_parse); end
+    
+    def generate_output parse
+      result = StringWriter.new
+      parse.print result
+      result.to_s
+    end
+
+    def parse; dump_tables(generate_parse); end
+
+    def dump_tables table
+      result = ''
+      separator = ''
+      until table.nil?
+        result += separator
+        result += dump_rows(table.parts)
+        separator = "\n----\n"
+        table = table.more
+      end
+      result
+    end
+
+    def dump_rows row
+      result = ''
+      separator = ''
+      until row.nil?
+        result += separator
+        result += dump_cells(row.parts)
+        separator = "\n"
+        row = row.more
+      end
+      result
+    end
+
+    def dump_cells cell
+      result = ''
+      separator = ''
+      until cell.nil?
+        result += separator
+        result += "[#{escape_ascii(cell.text)}]"
+        separator = ' '
+        cell = cell.more
+      end
+      result
+    end
+    
+    def escape_ascii text
+      text.gsub("\x0a", "\\n").gsub("\x0d", "\\r").gsub("\xa0", " ")
+    end
+
+    private :generate_parse, :generate_output
+    private :dump_tables, :dump_rows, :dump_cells, :escape_ascii
+
+  end
+
+end

data/lib/fat/reference_fixture.rb

@@ -0,0 +1,31 @@
+# Copyright (c) 2002 Cunningham & Cunningham, Inc.
+# Released under the terms of the GNU General Public License version 2 or later.
+
+require 'fit/column_fixture'
+
+module Fat
+
+  class ReferenceFixture < Fit::ColumnFixture
+    attr_accessor :description, :location
+    def result
+      input_name = "spec/#@location"
+      output_name = "spec/results_#@location"
+      begin
+        runner = Fit::FileRunner.new
+        runner.process_args [input_name, output_name]
+        runner.process
+        runner.output.close
+        
+        counts = runner.fixture.counts
+        if counts.total_errors.zero?
+          return 'pass'
+        else
+          return "fail: #{counts.to_s}"
+        end
+      rescue Exception => e
+        return "file not found: #{input_name}"
+      end
+    end
+  end
+
+end