greenpepper-ruby 0.0.1

data/lib/greenpepper/writer/result.rb

@@ -0,0 +1,35 @@
+=begin
+Author: Simon Mathieu (simon.math@gmail.com)
+        Pascal Ouellet (pas.ouellet@gmail.com)
+Date: October 5, 2009
+=end
+
+module GreenPepper
+
+class ExampleResult
+  attr_reader :silent
+
+  def initialize(silent = false)
+    @silent = silent
+  end
+
+  def success?
+    false
+  end
+
+  def failure?
+    false
+  end
+
+  def error?
+    false
+  end
+
+  def ignored?
+    false
+  end
+
+  def update_stats(results)
+  end
+end
+end

data/lib/greenpepper/writer/xmlwriter.rb

@@ -0,0 +1,32 @@
+=begin
+author: Alexandre Mathieu (alex.mathieu@gmail.com)
+date: March 20th 2009
+=end
+module GreenPepper
+
+class XmlWriter
+  def initialize(document)
+    @document = document
+    @modified_doc = ''
+  end
+
+  def output
+    @modified_doc.to_s
+  end
+  
+  def write_results(results)
+    all_results = HtmlTableExecutionResults.get_all_results results
+    @modified_doc = 
+      '<?xml version="1.0" encoding="UTF-8" standalone="no"?>' + 
+      '<documents><document><statistics><success>' + 
+      all_results.successes.to_s +
+      '</success>'
+    @modified_doc += '<failure>' + all_results.failures.to_s +
+      '</failure><error>' + all_results.errors.to_s + '</error><ignored>' +
+      all_results.ignored.to_s + '</ignored></statistics>'
+    @modified_doc += '<results><![CDATA[' + @document +
+      ']]></results></document></documents>'
+  end
+end
+
+end #module GreenPepper

data/test/coreseedstest.rb

@@ -0,0 +1,39 @@
+=begin
+ Author: Simon Mathieu (simon.math@gmail.com)
+ Date: April 19, 2009
+=end
+
+require 'test/unit'
+require 'greenpepper/core'
+
+include GreenPepper
+
+class CoreSeedTest < Test::Unit::TestCase
+  def test_autorun_all_seeds
+    seeds = ["Html Parsing.html",
+      "Value Comparison.html",
+      "Cell decoration.html",
+      "List of Interpreter.html",
+      "Set of Interpreter.html",
+      "Subset of Interpreter.html",
+      "Superset of Interpreter.html",
+      "Rule For Interpreter.html",
+      "Set Up Interpreter.html",
+      "Do With Interpreter.html",
+      "Statistics and Annotations.html"
+    ]
+    base_path = "test/core_seeds/"
+    
+    seeds.each{|s|
+      last_executed_seed = File.join("test/core_seeds_result",
+                     s)
+      s = File.join("test/core_seeds/", s)
+      core = GreenPepperCore.new
+      result = core.run [s, last_executed_seed]
+      message = "Failed to execute seed #{s}."
+      results = HtmlTableExecutionResults.get_all_results(result)
+      assert_equal 0, results.failures, message
+      assert_equal 0, results.errors, message
+    }
+  end
+end

data/test/greenpepper/argumentparsertest.rb

@@ -0,0 +1,162 @@
+require 'test/unit'
+require 'greenpepper/argumentparser'
+
+include GreenPepper
+
+class ArgumentParserTest < Test::Unit::TestCase
+  def test_check_validity_of_execution_context_with_input_argument
+    input = "input_doc"
+    output = input + "_output"
+
+    argument_parser = ArgumentParser.new input
+
+    assert_equal_execution_context argument_parser.execution_context, input,
+      output, nil, true, false, ""
+  end
+
+  def test_check_validity_of_execution_context_with_input_and_output_arguments
+    input = "input_doc"
+    output = "output_doc"
+
+    argument_parser = ArgumentParser.new [input, output]
+    execution_context = argument_parser.execution_context
+
+    assert_equal_execution_context execution_context, input, output, nil, true,
+      false, ""
+  end
+
+  def test_check_validity_of_execution_context_with_invalid_arguments
+    argument_parser = ArgumentParser.new "--pouet"
+    
+    assert_equal_execution_context argument_parser.execution_context, nil, nil,
+      nil, true, false,
+      "--pouet option is not recognize\n#{ArgumentParser.usage}"
+  end
+
+  def test_check_validity_of_execution_context_with_no_argument
+    argument_parser = ArgumentParser.new []
+
+    assert_equal_execution_context argument_parser.execution_context, nil, nil,
+      nil, true, false, ArgumentParser.usage
+  end
+
+  def test_parse_unrecognized_standard_command
+    unrecognized_args = []
+    unrecognized_args.push "--stop"
+    unrecognized_args.push "--sud"
+    unrecognized_args.push "-f"
+    unrecognized_args.push "-l"
+    unrecognized_args.push "--locale"
+    unrecognized_args.push "-o"
+    unrecognized_args.push "-s"
+    unrecognized_args.push "--suite"
+    unrecognized_args.push "--lazy"
+    unrecognized_args.push "--debug"
+
+    unrecognized_args.each { |arg|
+      error_message = "#{arg} option is not recognize\n#{ArgumentParser.usage}"
+
+      argument_parser = ArgumentParser.new arg
+
+      assert_equal_execution_context argument_parser.execution_context, nil,
+        nil, nil, true, false, error_message
+    }
+  end
+
+  def test_parse_command_help
+    argument_parser = ArgumentParser.new "--help"
+    
+    assert_equal_execution_context argument_parser.execution_context, nil, nil,
+      nil, true, false, ArgumentParser.usage
+  end
+
+  def test_parse_command_version
+    argument_parser = ArgumentParser.new "--version"
+
+    assert_equal_execution_context argument_parser.execution_context, nil, nil,
+      nil, true, false, "#{$APP_NAME} version : #{$VERSION}"
+  end
+
+  def test_parse_command_repository_with_no_other_arg
+    argument_parser = ArgumentParser.new "-r"
+
+    assert_equal_execution_context argument_parser.execution_context, nil, nil,
+      nil, true, false, ArgumentParser.usage
+  end
+
+  def test_parse_command_repository_with_correct_arg
+    repository = "repository"
+    argument_parser = ArgumentParser.new ["-r", repository]
+
+    assert_equal_execution_context argument_parser.execution_context, nil, nil,
+      repository, true, false, ArgumentParser.usage
+  end
+
+  def test_parse_command_no_html_results
+    input = 'input_file'
+    argument_parser = ArgumentParser.new [input, "--no-html-results"]
+
+    assert_equal_execution_context argument_parser.execution_context, input,
+      input + '_output', nil, false, false, ""
+  end
+
+  def test_parse_command_no_exception_stack
+    input = 'input_file'
+    argument_parser = ArgumentParser.new [input, "--no-exception-stack"]
+
+    assert argument_parser.writer_context[:no_exception_stack]
+  end
+
+  def test_xml_output_without_specified_output_file
+    input = 'input_file.html'
+    output = 'input_file_output.xml'
+
+    argument_parser = ArgumentParser.new [input, '--xml']
+    execution_context = argument_parser.execution_context
+
+    assert_equal_execution_context execution_context, input, output, nil, true,
+      true, ""
+  end
+
+  def test_multiple_load_path_is_read_like_expected_when_last
+    input = "input_file.html"
+    output = "output_file.html"
+    load_path = "--loadpath"
+    path1, path2, path3 = "path1", "path2", "path3"
+    
+    argument_parser = ArgumentParser.new [input, output, 
+      load_path, path1, path2, path3]
+    execution_context = argument_parser.execution_context
+
+    assert_equal_execution_context execution_context, input, output, nil, true,
+      false, ""
+    assert_equal ["path1", "path2", "path3"], execution_context[:load_path]
+  end
+
+  def test_multiple_load_path_is_read_like_expected_when_in_middle
+    input = "input_file.html"
+    output = "output_file.html"
+    load_path = "--loadpath"
+    path1, path2, path3 = "path1", "path2", "path3"
+    
+    argument_parser = ArgumentParser.new [input, output, "--no-html-results",
+      load_path, path1, path2, path3, "--xml"]
+    execution_context = argument_parser.execution_context
+
+    assert_equal_execution_context execution_context, input, output, nil, false,
+      true, ""
+    assert_equal ["path1", "path2", "path3"], execution_context[:load_path]
+  end
+
+  def assert_equal_execution_context execution_context, input, output,
+    repository, html_results, xml, console
+
+    assert_equal input       , execution_context[:input_document]
+    assert_equal output      , execution_context[:output_document]
+    assert_equal repository  , execution_context[:repository]
+    assert_equal html_results, execution_context[:html_results_output]
+    assert_equal xml         , execution_context[:xml_output]
+    assert_equal console     , execution_context[:console_output]
+  end
+
+end

data/test/greenpepper/common/loadpathtest.rb

@@ -0,0 +1,24 @@
+=begin
+ Author: Martin Provencher (mprovencher86@gmail.com)
+ date: November 12, 2009
+=end
+
+require '../common/test/helper/assertion'
+require 'greenpepper/common/loadpath'
+require 'greenpepper/core'
+
+include GreenPepper
+
+class LoadPathTest < Test::Unit::TestCase
+  def test_loading_2_paths_in_right_order
+    path1, path2 = "dummy_path_test_1", "dummy_path_test_2"
+
+    init_load_path = $LOAD_PATH.dup
+    LoadPath.load [path1, path2]
+
+    paths = $LOAD_PATH - init_load_path
+    assert_equal 2, paths.size
+    assert_equal path1, paths[0]
+    assert_equal path2, paths[1]
+  end
+end

data/test/greenpepper/common/stattest.rb

@@ -0,0 +1,186 @@
+=begin
+author: Martin Provencher (mprovencher86@gmail.com)
+date: Septembre 8, 2009
+=end
+
+require 'rubygems'
+require 'libxml'
+require 'test/unit'
+require 'test/helper/assertion'
+require 'greenpepper/example/executionresults'
+require 'greenpepper/writer/htmlresult'
+
+
+include GreenPepper
+
+class StatTest < Test::Unit::TestCase
+
+  def setup
+    @index_column_offset = 20
+
+    @all_results = []
+    @all_results << SuccessExampleResult.new
+    @all_results << FailureExampleResult.new
+    @all_results << WriteIgnoredExampleResult.new(3)
+    @all_results << WriteExpectedExampleResult.new(1, 2)
+    @all_results << WriteExceptionExampleResult.new(Exception.new)
+
+    @results = HtmlTableExecutionResults.new
+    @all_results.each_with_index{|result, index|
+      @results.add index, index + @index_column_offset, result
+    }
+  end
+
+  def test_check_add_stat_is_in_each
+    index = 0
+    @results.each{|result|
+      assert_equal result, @all_results[index]
+      assert_equal result.row, index
+      assert_equal result.column, index + @index_column_offset
+      index += 1
+    }
+  end
+
+  def test_check_add_with_at
+    @all_results.each_with_index { |result, index|
+      assert_equal @all_results[index], @results.at(index, index + @index_column_offset)
+    }
+  end
+
+  def test_invalid_index_for_at
+    assert_equal nil, @results.at(0,1)
+    assert_equal nil, @results.at(1000,0)
+    assert_equal nil, @results.at(0,200)
+    assert_equal nil, @results.at(1000,200)
+  end
+
+  def test_result_are_compiled_at_each_add
+    assert_equal 1, @results.successes
+    assert_equal 2, @results.failures
+    assert_equal 1, @results.errors
+    assert_equal 1, @results.ignored
+  end
+
+  def test_result_are_removed_from_compilation_at_each_delete_at
+    @results.delete_at 1, 1 + @index_column_offset
+    @results.delete_at 4, 4 + @index_column_offset
+
+    assert_equal 1, @results.successes
+    assert_equal 1, @results.failures
+    assert_equal 0, @results.errors
+    assert_equal 1, @results.ignored
+  end
+
+  def test_delete_at_function_on_valid_stat
+    assert_equal 5, @results.size
+
+    @results.delete_at 0, @index_column_offset
+    result = @results.at 0, @index_column_offset
+    assert_equal nil, result
+
+    assert_equal 4, @results.size
+  end
+
+  def test_invalid_index_for_delete_at
+    indexes = []
+    indexes << [0, 1]
+    indexes << [1000, 0]
+    indexes << [0, 200]
+    indexes << [1000, 200]
+
+    assert_equal 5, @results.size
+
+    indexes.each{ |index|
+      @results.delete_at index[0], index[1]
+      assert_equal @results.at(index[0], index[1]), nil
+    }
+
+    assert_equal 5, @results.size
+  end
+
+  def test_stat_to_s_is_human_readable
+    expected =  "|           EmptyStatClass |\n"
+    expected += "|                 NilClass |           EmptyStatClass |\n"
+    expected += "|                 NilClass |                 NilClass |"
+    expected += "           EmptyStatClass |\n"
+    expected += "|                 NilClass |                 NilClass |"
+    expected += "                 NilClass |           EmptyStatClass |\n"
+    expected += "|                 NilClass |                 NilClass |"
+    expected += "                 NilClass |                 NilClass |"
+    expected += "           EmptyStatClass |"
+
+    all_results = []
+    all_results << EmptyStatClass.new
+    all_results << EmptyStatClass.new
+    all_results << EmptyStatClass.new
+    all_results << EmptyStatClass.new
+    all_results << EmptyStatClass.new
+
+    results = HtmlTableExecutionResults.new
+    all_results.each_with_index{|result, index|
+      results.add index, index, result
+    }
+
+    assert_equal expected, results.to_s
+  end
+
+end
+
+class FreeTextStatClass < Test::Unit::TestCase
+  def setup
+    @execution_results = FreeTextExecutionResults.new
+  end
+
+  def test_all_stats_should_be_zero_at_creation_of_results_class
+    assert all_stats_are_at_zero?
+  end
+
+  def test_add_given
+    @execution_results.add_result(GivenSuccess.new)
+    assert all_stats_are_at_zero?
+  end
+
+  def test_add_when
+    @execution_results.add_result(WhenSuccess.new)
+    assert all_stats_are_at_zero?
+  end
+
+  def test_add_ask
+    @execution_results.add_result(AskSuccess.new("answer"))
+    assert all_stats_are_at_zero?
+  end
+
+  def test_add_check_success
+    @execution_results.add_result(CheckSuccess.new)
+    assert_equal 1, @execution_results.successes
+  end
+
+  def test_add_check_failure
+    @execution_results.add_result(CheckFailure.new)
+    assert_equal 1, @execution_results.failures
+  end
+
+  def test_add_then
+    @exp = [Expectation.new("1"), Expectation.new("2")]
+    @exp[0].received = "0"
+    @exp[1].received = "2"
+    @execution_results.add_result(ThenResults.new(/then (.*) and (.*)/, @exp))
+    assert_equal 1, @execution_results.failures
+    assert_equal 1, @execution_results.successes
+  end
+
+  def test_add_keyword_error
+    @execution_results.add_result(KeywordError.new)
+    assert_equal 1, @execution_results.errors
+  end
+
+  def all_stats_are_at_zero?
+    @execution_results.successes == 0 &&
+      @execution_results.failures == 0 &&
+      @execution_results.errors == 0 &&
+      @execution_results.ignored == 0
+  end
+end
+
+class EmptyStatClass < HtmlExampleResult
+end