tap 0.9.1 → 0.10.0

data/test/support/batchable_test.rb

@@ -1,74 +0,0 @@
-require  File.join(File.dirname(__FILE__), '../tap_test_helper')
-require 'tap/support/batchable'
-
-class BatchableTest < Test::Unit::TestCase
-
-  class BatchableClass
-    include Tap::Support::Batchable
-    def initialize
-      @batch = []
-      initialize_batch_obj
-    end
-  end
-  
-  attr_accessor :t
-  
-  def setup
-    @t = BatchableClass.new
-  end
-
-  #
-  # batch test
-  #
-  
-  def test_batch_documentation
-    t1 = Tap::Task.new
-    t2 = Tap::Task.new
-    t3 = t2.initialize_batch_obj
-  
-    Tap::Support::Batchable.batch(t1, t2)
-    assert_equal [t1,t2,t3], t3.batch
-  end
-  
-  #
-  # batched? test
-  #
-  
-  def test_batched_returns_true_if_batch_size_is_greater_than_one
-    assert !t.batched?
-    assert_equal 1, t.batch.size
-    
-    t1 = t.initialize_batch_obj
-    
-    assert t.batched?
-    assert t1.batched?
-  end
-  
-  #
-  # batch_index test
-  #
-  
-  def test_batch_index_returns_the_index_of_the_task_in_batch
-    t1 = t.initialize_batch_obj
-    
-    assert_equal [t, t1], t.batch
-    assert_equal 0, t.batch_index
-    assert_equal 1, t1.batch_index
-  end
-  
-  #
-  # initialize_batch_obj test
-  #
-  
-  def test_created_batch_tasks_are_added_to_and_share_the_same_execute_batch
-    assert_equal [t], t.batch
-    
-    t1 = t.initialize_batch_obj
-    t2 = t1.initialize_batch_obj
-    
-    assert_equal [t, t1, t2], t.batch
-    assert_equal t.batch.object_id, t1.batch.object_id
-    assert_equal t.batch.object_id, t2.batch.object_id
-  end
-
-end

data/test/support/class_configuration_test.rb

@@ -1,331 +0,0 @@
-require  File.join(File.dirname(__FILE__), '../tap_test_helper')
-require 'tap/support/class_configuration'
-require 'tap/support/validation'
-require 'tap/support/configurable_methods'
-require 'tap/support/tdoc'
-require 'tap/support/configurable'
-
-# for documentation test
-class BaseTask 
-  include Tap::Support::Configurable
-  config :one, 1
-end
-class SubTask < BaseTask
-  config :one, 'one'
-  config :two, 'two'
-end
-class MergeTask < BaseTask
-  config :three, 'three'
-  config_merge SubTask
-end
-class ValidationTask < Tap::Task
-  config :one, 'one', &c.check(String)
-  config :two, 'two', &c.yaml(/two/, Integer)
-  config :three, 'three' do |v| 
-    v =~ /three/ ? v.upcase : raise("not three")
-  end
-end
-
-class ClassConfigurationTest < Test::Unit::TestCase
-  include Tap::Support
-  
-  def test_config_merge
-    t = MergeTask.new
-    assert_equal({:one => 'one', :two => 'two', :three => 'three'}, t.config)
-    assert t.respond_to?(:two)
-    yaml = MergeTask.configurations.format_yaml
-    expected = %Q{
-# BaseTask configuration
-one: one
-
-# MergeTask configuration
-three: three
-
-# SubTask configuration
-two: two
-}
-
-    assert_equal expected[1..-1], yaml
-    assert_equal({'one' => 'one', 'two' => 'two', 'three' => 'three'}, YAML.load(yaml))
-  end
-  
-  def test_config_validations
-    t = ValidationTask.new
-    assert_equal({:one => 'one', :two => 'two', :three => 'THREE'}, t.config)
-    
-    t.one = 'two'
-    assert_equal 'two', t.one  
-    assert_raise(Validation::ValidationError) { t.one = 1 }
-    
-    t.two = "two"
-    assert_equal 'two', t.two
-    t.two = 2
-    assert_equal 2, t.two    
-    t.two = "2"
-    assert_equal 2, t.two
-    assert_raise(Validation::ValidationError) { t.two = 'three' }
-    assert_raise(Validation::ValidationError) { t.two = 2.2 }
-    
-    t.three = "three"
-    assert_equal 'THREE', t.three
-    assert_raise(RuntimeError) { t.three = 'THREE' } 
-  end
-  
-  def test_initialization
-    c = ClassConfiguration.new ClassConfigurationTest
-    
-    assert_equal ClassConfigurationTest, c.receiver
-    assert_equal [], c.declarations
-    assert_equal [[c.receiver, []]], c.declarations_array
-    assert_equal({}, c.default)
-    assert_equal({}, c.unprocessed_default)
-    assert_equal({}, c.process_blocks)
-  end
-
-  #
-  # format_yaml tests
-  #
-  
-  def test_format_yaml_with_single_class
-    cc = ClassConfiguration.new ClassConfigurationTest
-    cc.add('one', 1)
-    
-    yaml = cc.format_yaml
-    expected = %Q{
-# ClassConfigurationTest configuration
-one: 1
-}
-    
-    assert_equal expected[1..-1], yaml
-    assert_equal({'one' => 1}, YAML.load(yaml))
-  end
-
-  def test_format_stringifies_keys
-    cc = ClassConfiguration.new ClassConfigurationTest
-    cc.add(:one, 1)
-    
-    yaml = cc.format_yaml
-    expected = %Q{
-# ClassConfigurationTest configuration
-one: 1
-}
-
-    assert_equal expected[1..-1], yaml
-    assert_equal({'one' => 1}, YAML.load(yaml))
-  end
-end 
-class Hold
-  def test_format_yaml_with_desc
-    cc = ClassConfiguration.new
-    cc.declare('one', ClassConfigurationTest)
-    cc.set('one', 1, :desc => "comment")
-    
-    yaml = cc.format_yaml
-    expected = %Q{
-# ClassConfigurationTest configuration
-one: 1               # comment
-}
-
-    assert_equal expected[1..-1], yaml
-    assert_equal({'one' => 1}, YAML.load(yaml))
-  end
-
-  def test_format_yaml_with_long_desc
-    cc = ClassConfiguration.new
-    cc.declare('one', ClassConfigurationTest)
-    cc.set('one', 1, :desc => 'comment longer than some twenty chars')
-
-    yaml = cc.format_yaml
-    expected = %Q{
-# ClassConfigurationTest configuration
-# comment longer than some twenty chars
-one: 1
-}
-
-    assert_equal expected[1..-1], yaml
-    assert_equal({'one' => 1}, YAML.load(yaml))
-  end
-
-  def test_format_yaml_with_long_value
-    cc = ClassConfiguration.new(['one', 'value longer than some twenty chars', 'comment', ClassConfigurationTest])
-    yaml = cc.format_yaml
-    expected = %Q{
-# ClassConfigurationTest configuration
-# comment
-one: value longer than some twenty chars
-}
-
-    assert_equal expected[1..-1], yaml
-    assert_equal({'one' => 'value longer than some twenty chars'}, YAML.load(yaml))
-  end
-  
-#   def test_format_yaml_with_nil_value
-#     cc = ClassConfiguration.new(['one', nil, 'comment', ClassConfigurationTest])
-#     yaml = cc.format_yaml
-#     expected = %Q{
-# # ClassConfigurationTest configuration
-# #one:                # comment
-# }
-# 
-#     assert_equal expected[1..-1], yaml
-#     assert_equal(false, YAML.load(yaml))
-#   end
-  
-  def test_format_yaml_with_multiline_comment
-    cc = ClassConfiguration.new(['one', 1, "multiline\ncomment", ClassConfigurationTest])
-    yaml = cc.format_yaml
-    expected = %Q{
-# ClassConfigurationTest configuration
-# multiline
-# comment
-one: 1
-}
-
-    assert_equal expected[1..-1], yaml
-    assert_equal({'one' => 1}, YAML.load(yaml))
-  end
-  
-  def test_format_yaml_with_multiline_value
-    cc = ClassConfiguration.new(['one', [1,2,3], "comment", ClassConfigurationTest])
-    yaml = cc.format_yaml
-    expected = %Q{
-# ClassConfigurationTest configuration
-# comment
-one: 
-- 1
-- 2
-- 3
-}
-
-    assert_equal expected[1..-1], yaml
-    assert_equal({'one' => [1,2,3]}, YAML.load(yaml))
-  end
-  
-  def test_format_yaml_with_multiple_classes
-    cc = ClassConfiguration.new(
-      ['one', 1, '', ClassConfigurationTest],
-      ['one', 'one', 'integer', AnotherClass],
-      ['two', {'key' => 'value'}, 'hash', AnotherClass],
-      ['three', [1,2,3], "multiline\narray", AnotherClass])
-    yaml = cc.format_yaml
-    expected = %Q{
-# ClassConfigurationTest configuration
-one: one             # integer
-
-# ClassConfigurationTest::AnotherClass configurations
-# hash
-two: 
-  key: value
-# multiline
-# array
-three: 
-- 1
-- 2
-- 3
-}
-
-    assert_equal expected[1..-1], yaml
-    assert_equal({'one' => 'one', 'two' => {'key' => 'value'}, 'three' => [1,2,3]}, YAML.load(yaml))
-  end
-end
-
-class Hold
-  
-#   def test_documentation
-#     assert_equal({:one => 1}, BaseTask.configurations.hash)
-#     assert_equal({:one => 'one', :two => 'two'}, SubTask.configurations.hash)
-#     
-#     assert_equal "# BaseTask configuration\none: 1\n", BaseTask.configurations.format_yaml    
-#      
-#     expected = %Q{
-# # BaseTask configuration
-# one: one             # the first configuration
-# 
-# # SubTask configuration
-# two: two             # the second configuration
-# }
-#     assert_equal expected[1..-1], SubTask.configurations.format_yaml
-#   end
-
-  #
-  # add configurations
-  #
-  
-  class AnotherClass
-  end
-  
-  def test_add
-    cc = ClassConfiguration.new
-    cc.add(:key, 'value', ClassConfigurationTest)
-    
-    assert_equal [[:key, 'value', ClassConfigurationTest]], cc.declarations
-    assert_equal({:key => 'value'}, cc.hash)
-    
-    cc.add(:key, 'new value', AnotherClass)  
-    assert_equal [
-      [:key, 'value', ClassConfigurationTest], 
-      [:key, 'new value', AnotherClass]
-    ], cc.declarations
-    assert_equal({:key => 'new value'}, cc.hash)
-  end
-  
-  def test_add_symbolizes_keys
-    cc = ClassConfiguration.new
-    cc.add('key', 'value', ClassConfigurationTest)
-    
-    assert_equal [[:key, 'value', ClassConfigurationTest]], cc.declarations
-    assert_equal({:key => 'value'}, cc.hash)
-  end
-
-  # def test_add_raises_error_if_declarations_are_not_correct
-  #   cc = ClassConfiguration.new
-  #   assert_raise(ArgumentError) { cc.add(:key, 'value')}
-  #   assert_raise(ArgumentError) { cc.add([:key, 'value'])}
-  # end
-
-  #
-  # remove configurations
-  #
-  
-  def test_remove
-    cc = ClassConfiguration.new(
-      [:one, 1, ClassConfigurationTest],
-      [:one, 'one', AnotherClass],
-      [:two, 'two', AnotherClass],
-      [:three, 'three', AnotherClass])
-    
-    assert_equal 4, cc.declarations.length
-    assert_equal({:one => 'one', :two => 'two', :three => 'three'}, cc.hash)
-    
-    cc.remove(:one, :three)
-    assert_equal [[:two, 'two', AnotherClass]], cc.declarations  
-    assert_equal({:two => 'two'}, cc.hash)
-  end
-  
-  def test_remove_symbolizes_inputs
-    cc = ClassConfiguration.new([:key, 'value', ClassConfigurationTest])
-    cc.remove('key')
-    assert_equal [], cc.declarations
-  end
-
-  #
-  # merge test
-  #
-  
-  # def test_merge
-  #   c1 = ClassConfiguration.new([:one, 1, '', ClassConfigurationTest])
-  #   c2 = c1.merge([
-  #     [:one, 'one', '', AnotherClass], 
-  #     [:two, 'two', '', AnotherClass]])
-  #     
-  #   assert_not_equal c1.object_id, c2.object_id
-  #   
-  #   assert_equal [[:one, 1, '', ClassConfigurationTest]], c1.declarations 
-  #   assert_equal [
-  #     [:one, 1, '', ClassConfigurationTest],
-  #     [:one, 'one', '', AnotherClass], 
-  #     [:two, 'two', '', AnotherClass]], c2.declarations 
-  # end
-  
-
-end

data/test/support/command_line_test.rb

@@ -1,58 +0,0 @@
-require  File.join(File.dirname(__FILE__), '../tap_test_helper')
-require 'tap/support/command_line'
-
-class CommandLineTest < Test::Unit::TestCase
-  include Tap::Support::CommandLine
-  
-  #
-  # split_argv test
-  #
-  
-  def test_split_argv
-    argv = ["a", "-b", "--c", "--", "d", "-e", "--f"]
-    assert_equal([
-      [["a", "-b", "--c"], ["d", "-e", "--f"]]
-    ], split_argv(argv))
-    
-    argv.unshift("--")
-    argv.push("--")
-    assert_equal([
-      [["a", "-b", "--c"], ["d", "-e", "--f"]]
-    ], split_argv(argv))
-    
-    argv.concat ["--++", "x", "-y", "--z"]
-    assert_equal([
-      [["a", "-b", "--c"], ["d", "-e", "--f"]], 
-      [["x", "-y", "--z"]]
-    ], split_argv(argv))
-    
-    argv.concat ["--+", "m", "-n", "--o"]
-    assert_equal([
-      [["a", "-b", "--c"], ["d", "-e", "--f"]], 
-      [["m", "-n", "--o"]], 
-      [["x", "-y", "--z"]]
-    ], split_argv(argv))
-  end
-  
-  #
-  # parse_yaml tests
-  #
-  
-  def test_parse_yaml_documentation
-    str = {'key' => 'value'}.to_yaml
-    assert_equal "--- \nkey: value\n", str
-    assert_equal({'key' => 'value'}, parse_yaml(str))
-    assert_equal "str", parse_yaml("str")
-  end
-  
-  def test_parse_yaml_loads_arg_if_arg_matches_yaml_document_string
-    string = "---\nkey: value"
-    assert_equal({"key" => "value"}, parse_yaml(string))
-  end
-  
-  def test_parse_yaml_returns_arg_unless_matches_yaml_document_string
-    string = "key: value"
-    assert_equal("key: value", parse_yaml(string))
-  end
-  
-end