greenpepper-ruby 0.0.1

data/test/greenpepper/factory/dowithexamplefactorytest.rb

@@ -0,0 +1,48 @@
+#~ license: GPLv3 http://www.gnu.org/licenses/gpl.txt
+=begin
+author: Steven Denis (denis.steven@gmail.com)
+date: March 22, 2009
+=end
+
+require 'test/unit'
+require 'test/fixtures/dowithfixture'
+require 'test/helper/assert'
+
+require 'greenpepper/factory/dowithexamplefactory'
+require 'greenpepper/parser/table'
+
+include GreenPepper
+
+class DowithExampleFactoryTest < Test::Unit::TestCase
+  def setup
+    @do_with_table = Table.new
+    @do_with_table.push_row ['do with','Bank2']
+    @do_with_table.push_row ['open account', '123']
+    @do_with_table.push_row ['check', 'that amount for account', '123', 'is', '0']
+    @do_with_table.push_row ['accept', 'withdraw', '150', 'from account', '123']
+    @do_with_table.push_row ['reject', 'withdraw', '150', 'from account', '123']
+
+    @import_table = Table.new
+    @import_table.push_row ['import','Module1']
+
+    @factory = DoWithExampleFactory.new
+  end
+
+  def test_create_dowithexample_from_do_with_table
+    example = @factory.create_example @do_with_table
+
+    assert example.is_a?(DoWithExample)
+    assert_equal "Bank2", example.fixture_name
+
+    lines = example.lines
+    assert lines[0].function?
+    assert lines[1].check?
+    assert lines[2].accept?
+    assert lines[3].reject?
+  end
+
+  def test_support_do_with_table
+    assert @factory.support?(@do_with_table)
+    assert_equal false, @factory.support?(@import_table)
+  end
+end

data/test/greenpepper/factory/examplefactorytest.rb

@@ -0,0 +1,88 @@
+=begin
+author: Eloise Dube (eloise.dube@gmail.com)
+date  : September 20, 2009
+=end
+
+require 'test/unit'
+require 'greenpepper/parser/htmlparser'
+require 'greenpepper/factory/ruleforexamplefactory'
+require 'greenpepper/factory/importexamplefactory'
+require 'greenpepper/factory/dowithexamplefactory'
+
+include GreenPepper
+
+class ExampleFactoryTest < Test::Unit::TestCase
+  def test_parser_should_build_rule_for_examples_from_html_file
+    tables = parse_file 'test/seeds/import_and_two_rule_for.html'
+    factory = HtmlExampleFactory.new [RuleForExampleFactory.new]
+    
+    examples = build_examples factory, tables
+    assert_equal RuleForExample, examples[1].class
+  end
+
+  def test_example_factory_should_build_import_examples_from_html_file
+    tables = parse_file 'test/seeds/import_and_two_rule_for.html'
+    factory = HtmlExampleFactory.new [ImportExampleFactory.new]
+
+    examples = build_examples factory, tables
+    assert_equal ImportExample, examples[0].class
+  end
+
+  def test_example_factory_should_build_examples_of_multiples_type
+    tables = parse_file 'test/seeds/import_and_two_rule_for.html'
+    factory = HtmlExampleFactory.new [ImportExampleFactory.new,
+      RuleForExampleFactory.new]
+
+    examples = build_examples factory, tables
+    assert_equal 3, examples.size
+    assert_equal ImportExample, examples[0].class
+    assert_equal RuleForExample, examples[1].class
+    assert_equal RuleForExample, examples[2].class
+  end
+
+  def test_example_factory_should_build_do_with_example_with_multiple_lines
+    factory = HtmlExampleFactory.new([ImportExampleFactory.new,
+      RuleForExampleFactory.new,
+      DoWithExampleFactory.new])
+
+    tables = parse_file 'test/seeds/dowith_multiple_tables.html'
+
+    examples = build_examples factory, tables
+    assert_equal 1, examples.size
+    assert_equal DoWithExample, examples[0].class
+  end
+
+  def test_example_factory_should_build_do_with_example_with_multiple_lines
+    factory = HtmlExampleFactory.new([ImportExampleFactory.new,
+      RuleForExampleFactory.new,
+      DoWithExampleFactory.new])
+
+    tables = parse_file 'test/seeds/dowith_single_table.html'
+
+    examples = build_examples factory, tables
+    assert_equal 1, examples.size
+    assert_equal DoWithExample, examples[0].class
+  end
+
+  private
+  def parse_file file
+    parser = HtmlParser.new
+    parser.parse_file file
+  end
+
+  def build_examples(factory, tables)
+    examples = []
+    i = 0
+    while i < tables.size
+      factory.push_content tables[i].content 
+      i += 1
+      while factory.need_more_content?
+        factory.push_content tables[i].content
+        i += 1
+      end
+      example, new_context = factory.build_example
+      examples << example
+    end
+    examples
+  end
+end

data/test/greenpepper/factory/freetextexamplefactorytest.rb

@@ -0,0 +1,54 @@
+=begin
+author: Simon Mathieu (simon.math@gmail.com)
+date: September 30, 2009
+=end
+
+require 'test/unit'
+require 'greenpepper/freetext'
+require 'greenpepper/factory/freetextexamplefactory'
+require 'greenpepper/parser/scenario'
+
+include GreenPepper
+
+class FreeTextExampleFactoryTest < Test::Unit::TestCase
+  def setup
+    @factory = FreeTextExampleFactory.new
+  end
+
+  def test_build_free_text_example
+    scenario = Scenario.new "TestFixtureFreeTextFactory"
+    scenario.add_line "First Line."
+
+    example = create_example scenario 
+
+    assert example.is_a?(FreeTextExample)
+    assert_equal "TestFixtureFreeTextFactory", example.fixture_name 
+  end
+
+  def test_build_free_text_example_with_fixture_with_multiple_words
+    scenario = Scenario.new "Test Fixture Free Text Factory"
+    scenario.add_line "First Line."
+
+    example = create_example scenario 
+
+    assert_equal "Test Fixture Free Text Factory", example.fixture_name 
+  end
+
+  def test_build_free_text_example_with_multiple_actions
+    scenario = Scenario.new "TestFixtureFreeTextFactory"
+    scenario.add_line "First Line."
+    scenario.add_line "Second Line."
+    scenario.add_line "Third Line."
+
+    example = create_example scenario 
+
+    assert_equal ['First Line.', 'Second Line.', 'Third Line.'],
+      example.actions
+  end
+
+  private
+  def create_example content
+    @factory.push_content content
+    @factory. build_example
+  end
+end

data/test/greenpepper/factory/importexamplefactorytest.rb

@@ -0,0 +1,40 @@
+=begin
+author: Simon Mathieu (simon.math@gmail.com)
+date: September 8, 2009
+=end
+
+require 'greenpepper/example/importexample'
+require 'greenpepper/factory/importexamplefactory'
+require 'test/helper/assertion'
+
+include GreenPepper
+
+class ImportExampleFactoryTest < Test::Unit::TestCase
+  def setup
+    @simple_table = Table.new
+    @simple_table.push_row ['import']
+    @simple_table.push_row ['test/common/importtestfixture']
+
+    @complex_table = Table.new
+    @complex_table.push_row ['Import']
+    @complex_table.push_row ['test/common/importtestfixture']
+    @complex_table.push_row ['test/common/importtestfixture2']
+
+    @factory = ImportExampleFactory.new
+  end
+
+  def test_factory_should_support_import_from_table
+    assert @factory.support?(@simple_table)
+  end
+
+  def test_factory_should_build_import_example_from_table
+    example = @factory.create_example @simple_table
+    assert_equal 'test/common/importtestfixture', example.imports[0]
+  end
+  
+  def test_factory_should_support_import_with_more_than_one_line
+    example = @factory.create_example @complex_table
+    assert_equal 'test/common/importtestfixture', example.imports[0]
+    assert_equal 'test/common/importtestfixture2', example.imports[1]
+  end
+end

data/test/greenpepper/factory/ruleforexamplefactorytest.rb

@@ -0,0 +1,55 @@
+=begin
+author: Simon Mathieu (simon.math@gmail.com)
+date: March 9, 2009
+=end
+
+require 'test/unit'
+require 'test/fixtures/fixture'
+require 'greenpepper/factory/ruleforexamplefactory'
+require 'greenpepper/parser/table'
+
+include GreenPepper
+
+class RuleForExampleFactoryTest < Test::Unit::TestCase
+  def setup
+    @rule_for_table = Table.new
+    @rule_for_table.push_row ['rule for','RuleForExampleAddSubFixture', 
+      'arg 1', '23', 'arg2', '1']
+    @rule_for_table.push_row ['operand1','operand2','sum?','operand1',
+      'operand2','sub?']
+    @rule_for_table.push_row ["1","2","3","5","6","-1"]
+    @rule_for_table.push_row ["4","1","5","8","2","6"]
+
+    @factory = RuleForExampleFactory.new
+  end
+
+
+  def test_create_example_from_rule_for_table
+    example = @factory.create_example @rule_for_table
+
+    # Verify name of fixture
+    assert_equal "RuleForExampleAddSubFixture", example.fixture_name
+
+    # Verify headers
+    headers_array = []
+    example.headers.each_index {|x| 
+      header_name = example.headers[x].name
+      expected_header_name = @rule_for_table[1][x].gsub /\?/, ""
+      assert_equal header_name, expected_header_name
+    }
+
+    # Verify values
+    assert_equal  [@rule_for_table[2], @rule_for_table[3]], example.values
+  end
+
+  def test_support_rule_for_table
+    assert @factory.support?(@rule_for_table)
+  end
+
+  def test_support_initialize_arguments 
+    example = @factory.create_example @rule_for_table
+    expected_args = [23, 1]
+     
+    assert_equal expected_args, example.fixture_arguments
+  end
+end

data/test/greenpepper/factory/setupexamplefactorytest.rb

@@ -0,0 +1,29 @@
+=begin
+author: Simon Mathieu (simon.math@gmail.com) 
+date: March 23, 2009
+=end
+
+require 'test/unit'
+require 'test/fixtures/fixture'
+require 'greenpepper/factory/setupexamplefactory'
+
+include GreenPepper
+
+class RuleforExampleFactoryTest < Test::Unit::TestCase
+  def test_create_setup_example
+    table = Table.new
+    table.push_row ['setup', 'a group of customers']
+    table.push_row ['a', 'b']
+    table.push_row ['1', '2']
+    table.push_row ['3', '4']
+
+    factory = SetupExampleFactory.new
+    ex = factory.create_example table
+
+    headers = ex.headers
+    values = ex.values
+    assert_equal ['a', 'b'], headers.collect{|x| x.name}
+    assert_equal ['1', '2'], values[0]
+    assert_equal ['3', '4'], values[1]
+  end
+end

data/test/greenpepper/factory/silentexamplefactorytest.rb

@@ -0,0 +1,38 @@
+=begin
+author: Simon Mathieu (simon.math@gmail.com)
+date: September 27, 2009
+=end
+
+require 'test/unit'
+
+require 'greenpepper/factory/silentexamplefactory'
+require 'greenpepper/parser/table'
+
+include GreenPepper
+
+class SilentExampleFactoryTest < Test::Unit::TestCase
+  def setup
+    @table = Table.new
+    @table.push_row ['silent']
+    @table.push_row ['rule for', 'dont care']
+    @table.push_row ['a', 'b', 'c']
+    @table.push_row ['1', '2', '3']
+
+    @factory = SilentExampleFactory.new
+  end
+
+  def test_silent_keyword_is_recognized
+    assert @factory.support?(@table)
+  end
+
+  def test_keyword_is_case_insensitive
+    table = Table.new
+    table.push_row ['SILent']
+    assert @factory.support?(table)
+  end
+
+  def test_silent_example_is_created
+    ex = @factory.create_example @table
+    assert ex.is_a?(SilentExample)
+  end
+end

data/test/greenpepper/freetexttest.rb

@@ -0,0 +1,222 @@
+=begin
+author: Simon Mathieu (simon.math@gmail.com)
+date: September 12, 2009
+=end
+
+require 'test/unit'
+require 'greenpepper/freetext'
+require 'greenpepper/writer/freetextresult'
+
+include GreenPepper
+
+class FreeTextTest < Test::Unit::TestCase
+  def setup
+    @test_class = FreeTextTestFixture.new
+  end
+
+  def test_class_can_map_text_to_regex_and_execute_block
+    @test_class.greenpepper_map_action "Some Action"
+
+    assert @test_class.function_called
+  end
+
+  def test_mapped_function_can_be_called_with_args
+    @test_class.greenpepper_map_action "Some Action With Args 1 and 2"
+    assert @test_class.function_called
+    assert_equal 1, @test_class.arg1
+    assert_equal 2, @test_class.arg2
+  end
+
+  def test_args_are_converted_with_action_converted_keyword
+    @test_class.greenpepper_map_action "Some Action With Args [1] and foo"
+    assert_equal [1], @test_class.arg1
+    assert_equal "foo", @test_class.arg2
+    assert_equal Array, @test_class.arg1.class
+    assert_equal String, @test_class.arg2.class
+  end
+
+  def test_args_are_return_like_string_action_keyword
+    @test_class.greenpepper_map_action "Some Action [1] Without Convertion"
+    assert_equal "[1]", @test_class.arg1
+    assert_equal String, @test_class.arg1.class
+  end
+end
+
+class FreeTextTestFixture
+  include FreeText
+  attr_reader :function_called, :arg1, :arg2
+
+  def initialize
+    @function_called = false
+  end
+
+  Given /^Some Action$/ do
+    @function_called = true
+  end
+
+  GivenVanilla /^Some Action (.*) Without Convertion$/ do |arg1|
+    @function_called = true
+    @arg1 = arg1
+  end
+
+  Given /^Some Action With Args (.*) and (.*)$/ do |arg1, arg2|
+    @function_called = true
+    @arg1, @arg2 = arg1, arg2
+  end
+
+end
+
+class FreeTextExampleKeywordsTest < Test::Unit::TestCase
+  def setup
+    @test_class = FreeTextKeywordsFixture.new
+  end
+
+  def test_given_keyword
+    keyword = @test_class.greenpepper_map_action "given [1]"
+    assert_equal "given", @test_class.call
+    assert_equal [1], @test_class.arg1
+    assert_equal GivenSuccess, keyword.get_result.class
+  end
+
+  def test_given_vanilla_keyword
+    keyword = @test_class.greenpepper_map_action "givenvanilla [1]"
+    assert_equal "givenvanilla", @test_class.call
+    assert_equal "[1]", @test_class.arg1
+    assert_equal GivenSuccess, keyword.get_result.class
+  end
+
+  def test_when_keyword
+    keyword = @test_class.greenpepper_map_action "when [1]"
+    assert_equal "when", @test_class.call
+    assert_equal [1], @test_class.arg1
+    assert_equal WhenSuccess, keyword.get_result.class
+  end
+
+  def test_when_vanilla_keyword
+    keyword = @test_class.greenpepper_map_action "whenvanilla [1]"
+    assert_equal "whenvanilla", @test_class.call
+    assert_equal "[1]", @test_class.arg1
+    assert_equal WhenSuccess, keyword.get_result.class
+  end
+
+  def test_ask_keyword
+    keyword = @test_class.greenpepper_map_action("ask value")
+    result = keyword.get_result
+    assert_equal "ask", @test_class.call
+    assert_equal "value", @test_class.arg1
+    assert_equal AskSuccess, result.class
+    assert_equal [2], result.answer
+  end
+
+  def test_ask_vanilla_keyword
+    keyword = @test_class.greenpepper_map_action("askvanilla for 123")
+    result = keyword.get_result
+    assert_equal "askvanilla for", @test_class.call
+    assert_equal "123", @test_class.arg1
+    assert_equal AskSuccess, result.class
+    assert_equal "123", result.answer
+  end
+
+  def test_check_keyword
+    keyword = @test_class.greenpepper_map_action("check 2 is a number")
+    assert_equal "check is a number", @test_class.call
+    assert_equal 2, @test_class.arg1
+    assert_equal CheckSuccess, keyword.get_result.class
+  end
+
+  def test_check_vanilla_keyword
+    keyword = @test_class.greenpepper_map_action("checkvanilla 2 is a number")
+    assert_equal "checkvanilla is a number", @test_class.call
+    assert_equal "2", @test_class.arg1
+    assert_equal CheckSuccess, keyword.get_result.class
+  end
+
+  def test_then_keyword
+    action = "then 2 is a number"
+    keyword = @test_class.greenpepper_map_action(action)
+    assert_equal "then", @test_class.call
+    assert_equal 2, @test_class.arg1.expected
+    assert_equal 2, @test_class.arg1.received
+    assert_equal ThenResults, keyword.get_result.class
+  end
+
+  def test_then_vanilla_keyword
+    action = "thenvanilla 2 is a number"
+    keyword = @test_class.greenpepper_map_action(action)
+    assert_equal "thenvanilla", @test_class.call
+    assert_equal "2", @test_class.arg1.expected
+    assert_equal "2", @test_class.arg1.received
+    assert_equal ThenResults, keyword.get_result.class
+  end
+end
+
+class FreeTextKeywordsFixture
+  include FreeText
+  attr_accessor :call, :arg1, :arg2, :value
+
+  def initialize
+    @value = [2]
+  end
+
+  def call
+    @call
+  end
+
+  GivenVanilla /^(givenvanilla) (.*)$/ do |keyword, arg1|
+    @call = keyword
+    @arg1 = arg1
+  end
+
+  Given /^(given) (.*)$/ do |keyword, arg1|
+    @call = keyword
+    @arg1 = arg1
+  end
+
+  WhenVanilla /^(whenvanilla) (.*)$/ do |keyword, arg1|
+    @call = keyword
+    @arg1 = arg1
+  end
+
+  When /^(when) (.*)$/ do |keyword, arg1|
+    @call = keyword
+    @arg1 = arg1
+  end
+
+  AskVanilla /^(askvanilla for) (.*$)/ do |keyword, arg1|
+    @call = keyword
+    @arg1 = arg1
+    answer = arg1
+  end
+
+  Ask /^(ask) (.*$)/ do |keyword, arg1|
+    @call = keyword
+    @arg1 = arg1
+    self.instance_variable_get("@#{arg1}")
+  end
+
+  CheckVanilla /^(checkvanilla) (.*) (is a number)$/ do |startkeyword, arg1, endkeyword|
+    @call = startkeyword + " " + endkeyword
+    @arg1 = arg1
+    true
+  end
+
+  Check /^(check) (.*) (is a number)$/ do |startkeyword, arg1, endkeyword|
+    @call = startkeyword + " " + endkeyword
+    @arg1 = arg1
+    true
+  end
+
+  ThenVanilla /^(thenvanilla) (.*) (is a number)$/ do |startkeyword, arg1, endkeyword|
+    @call = "thenvanilla" 
+    @arg1 = arg1
+    arg1.received = "2"
+    true
+  end
+
+  Then /^(then) (.*) (is a number)$/ do |startkeyword, arg1, endkeyword|
+    @call = "then" 
+    @arg1 = arg1
+    arg1.received = 2
+    true
+  end
+ end