caruby-core 1.4.4 → 1.4.5

data/test/lib/caruby/domain/reference_visitor_test.rb

@@ -0,0 +1,130 @@
+$:.unshift 'lib'
+$:.unshift 'examples/clinical_trials/lib'
+
+require 'test/unit'
+
+require 'caruby/util/log' and
+CaRuby::Log.instance.open('test/results/log/clinical_trials.log', :shift_age => 10, :shift_size => 1048576, :debug => true)
+
+require 'clinical_trials'
+require 'caruby/domain/reference_visitor'
+
+# CaRuby::ReferenceVisitor test cases.
+class ReferenceVisitorTest < Test::Unit::TestCase
+  def setup
+    super
+    coordinator = ClinicalTrials::User.new(:login => 'study.coordinator@test.org')
+    address = ClinicalTrials::Address.new(:street => '555 Elm St', :city => 'Burlington', :state => 'VT', :zip_code => '55555')
+    @pnt = ClinicalTrials::Participant.new(:name => 'Test Participant', :address => address)
+    @study = ClinicalTrials::Study.new(:name => 'Test Study', :coordinator => coordinator, :enrollment => [@pnt])
+    @event = ClinicalTrials::StudyEvent.new(:study => @study, :calendar_event_point => 1.0)
+  end
+
+  def test_path_references
+    visitor = CaRuby::ReferencePathVisitorFactory.create(ClinicalTrials::Study, [:enrollment, :address])
+    assert_equal([@study, @pnt, @pnt.address], visitor.to_enum(@study).to_a, "Path references incorrect")
+  end
+
+  def test_cycles
+    # visit all references
+    visitor = CaRuby::ReferenceVisitor.new { |ref| ref.class.domain_attributes }
+    visitor.visit(@study)
+    assert_equal([[@study, @event, @study]], visitor.cycles, "Cycles incorrect")
+  end
+
+  def test_path_attributes
+    visitor = CaRuby::ReferencePathVisitorFactory.create(ClinicalTrials::Study, [:enrollment, :address])
+    assert_equal([nil, :enrollment, :address], visitor.to_enum(@study).map { visitor.attribute }, "Path attributes incorrect")
+  end
+
+  def test_to_enum
+    visitor = CaRuby::ReferencePathVisitorFactory.create(ClinicalTrials::Study, [:enrollment, :address])
+    assert_equal([@study, @pnt, @pnt.address], visitor.to_enum(@study).to_a, "Enumeration incorrect")
+  end
+
+  def test_id_match
+    # set the source ids
+    @study.identifier = 1
+    @event.identifier = 2
+    # make a match target
+    target = CaRuby::CopyVisitor.new { |ref| ref.class.dependent_attributes }.visit(@study)
+    # match the source to the target
+    matcher = CaRuby::MatchVisitor.new { |ref| ref.class.dependent_attributes }
+    matcher.visit(@study, target)
+    expected = {@study => target, @event => target.events.first}
+    # validate the match
+    assert_equal(expected, matcher.matches, "Match incorrect")
+  end
+
+  def test_copy
+    visitor = CaRuby::CopyVisitor.new { |ref| ref.class.dependent_attributes }
+    copy = visitor.visit(@study)
+    assert_not_nil(copy, "Study not copied")
+    assert_not_nil(visitor.visited[@study], "#{@study.qp} copy #{copy.qp} not captured in visited #{visitor.visited.qp}")
+    assert_same(copy, visitor.visited[@study], "#{@study.qp} visited value incorrect")
+    assert_not_same(copy, @study, "#{@study.qp} not copied into #{copy.qp} as new object")
+    assert_equal(@study.name, copy.name, "#{@study.qp} attribute not copied")
+    assert_nil(copy.coordinator, "#{@study.qp} coordinator incorrectly copied into #{copy.qp} as a dependent")
+    assert(!@study.events.empty?, "#{@study.qp} events cleared by copy")
+    assert(!copy.events.empty?, "#{@study.qp} events #{@study.events.qp} not copied into #{copy.qp}")
+    assert_equal(1, copy.events.size, "#{@study.qp} events copy #{copy.qp} size incorrect")
+    assert_not_same(copy.events.first, @study.events.first, "#{@study.qp} event #{@study.events.first} not copied into #{copy.qp} as new object")
+    assert_same(copy, copy.events.first.study, "Dependent owner attribute not set to copied owner #{copy.qp}")
+  end
+
+  def test_merge
+    # make a merge target
+    target = CaRuby::CopyVisitor.new { |ref| ref.class.dependent_attributes }.visit(@study)
+    # set the source ids
+    @study.identifier = 1
+    @event.identifier = 2
+    
+    # merge into the copy
+    merger = CaRuby::MergeVisitor.new { |ref| ref.class.dependent_attributes }
+    merger.visit(@study, target)
+    
+    # validate that the ids are copied
+    assert_equal(@study.identifier, target.identifier, "Merge didn't copy the study identifier")
+    assert_not_nil(target.events.first, "Merge didn't copy #{@study.qp} event #{@event.qp} to #{target.qp}")
+    assert_equal(target.events.first.identifier, @event.identifier, "Merge didn't copy #{@study.qp} event #{@event.qp} event identifier to  #{target.qp}")
+  end
+
+  def test_copy_id_match
+    # set the study id
+    @study.identifier = 1
+    # mutate the references a la caCORE to form reference path @study -> @event -> s2,
+    # where @study.identifier == s2.identifier
+    s2 = @study.copy(:identifier)
+    @event.study = s2
+    s2.events.clear
+    @study.events << @event
+    
+    # copy the mutated source
+    copier = CaRuby::CopyVisitor.new { |ref| ref.class.dependent_attributes }
+    copy = copier.visit(@study)
+    
+    # validate the copy
+    assert_not_nil(copy.events.first, "Merge didn't copy event")
+    assert_same(copy, copy.events.first.study, "Merge didn't match on study id")
+  end
+
+  def test_copy_with_visit_block
+    visitor = CaRuby::CopyVisitor.new { |ref| ref.class.domain_attributes }
+    id = visitor.visit(@study) { |src, tgt| src.identifier }
+    assert_equal(@study.identifier, id, "Visit didn't return block result")
+  end
+
+  def test_copy_revisit_same_object
+    # make a new event in the study, resulting in two paths to the study
+    ClinicalTrials::StudyEvent.new(:study => @study, :calendar_event_point => 2.0)
+    # eliminate extraneous references
+    @study.coordinator = nil
+    @study.enrollment.clear
+    # visit all references, starting at an event, with traversal event -> study -> other event -> study
+    visitor = CaRuby::CopyVisitor.new { |ref| ref.class.domain_attributes }
+    visited = visitor.visit(@event)
+    studies = visitor.visited.select { |ref, copy| ClinicalTrials::Study === ref }
+    assert(!studies.empty?, "No study copied")
+    assert_equal(1, studies.size, "More than one study copied")
+  end
+end

data/test/lib/caruby/import/java_test.rb

@@ -0,0 +1,58 @@
+$:.unshift 'lib'
+$:.unshift '../caruby/lib'
+
+require "test/unit"
+require 'caruby'
+
+class JavaTest < Test::Unit::TestCase
+  def test_ruby_to_java_date_conversion
+    ruby_date = DateTime.now
+    java_date = Java::JavaUtil::Date.from_ruby_date(ruby_date)
+    actual = java_date.to_ruby_date
+    assert(CaRuby::Resource.value_equal?(ruby_date, actual), 'Ruby->Java->Ruby date conversion not idempotent')
+  end
+
+  def test_java_to_ruby_date_conversion
+    java_date = Java::JavaUtil::Calendar.instance.time
+    ruby_date = java_date.to_ruby_date
+    actual = Java::JavaUtil::Date.from_ruby_date(ruby_date)
+    assert_equal(java_date.to_s, actual.to_s, 'Java->Ruby->Java date conversion not idempotent')
+    assert_equal(java_date.to_ruby_date, ruby_date, 'Java->Ruby date reconversion not equal')
+  end
+
+  def test_to_ruby
+    assert_same(Java::JavaUtil::BitSet, Class.to_ruby(java.util.BitSet.java_class), "Java => Ruby class incorrect")
+  end
+
+  def test_list_delete_if
+    list = Java::JavaUtil::ArrayList.new << 1 << 2
+    assert_same(list, list.delete_if { |n| n == 2 })
+    assert_equal([1], list.to_a, "Java ArrayList delete_if incorrect")
+  end
+
+  def test_set_delete_if
+    list = Java::JavaUtil::HashSet.new << 1 << 2
+    assert_same(list, list.delete_if { |n| n == 2 })
+    assert_equal([1], list.to_a, "Java HashSet delete_if incorrect")
+  end
+
+  def test_list_clear
+    list = Java::JavaUtil::ArrayList.new
+    assert(list.empty?, "Cleared ArrayList not empty")
+    assert_same(list, list.clear, "ArrayList clear result incorrect")
+  end
+
+  def test_set_clear
+    set = Java::JavaUtil::HashSet.new
+    assert(set.empty?, "Cleared HashSet not empty")
+    assert_same(set, set.clear, "HashSet clear result incorrect")
+  end
+
+  def test_set_merge
+    set = Java::JavaUtil::HashSet.new << 1
+    other = Java::JavaUtil::HashSet.new << 2
+    assert_same(set, set.merge(other), "HashSet merge result incorrect")
+    assert(set.include?(2), "HashSet merge not updated")
+    assert_same(set, set.clear, "HashSet clear result incorrect")
+  end
+end

data/test/lib/caruby/util/cache_test.rb

@@ -0,0 +1,23 @@
+$:.unshift 'lib'
+
+require 'caruby/util/cache'
+require "test/unit"
+
+class CacheTest < Test::Unit::TestCase
+
+  def test_cache
+    cache = CaRuby::Cache.new { |n| n % 2 }
+    assert_nil(cache[1], "Value mistakenly cached")
+    cache.add(1)
+    assert_equal(1, cache[1], "Cached value not found")
+    assert_nil(cache[2], "Uncached value found")
+    assert_equal(1, cache[3], "Cached equivalent not found")
+  end
+
+  def test_cache_factory
+    cache = CaRuby::Cache.new(Proc.new { |n| n * 4 }) { |n| n % 2 }
+    assert_equal(4, cache[1], "Cached factory value not found")
+    assert_equal(8, cache[2], "Cached factory value found")
+    assert_equal(4, cache[3], "Cached factory equivalent not found")
+  end
+end

data/test/lib/caruby/util/class_test.rb

@@ -0,0 +1,61 @@
+$:.unshift 'lib'
+
+require "test/unit"
+require 'caruby/util/class'
+
+class ClassTest < Test::Unit::TestCase
+  def ssn
+    '555-55-555'
+  end
+
+  def self.redefine_ssn
+    redefine_method(:ssn) { |old_method| lambda { send(old_method).delete('-').to_i } }
+  end
+
+  def test_redefine_method
+    self.class.redefine_ssn
+    assert_equal(55555555, ssn, "Method not redefined correctly")
+  end
+
+  def test_class_hierarchy
+    assert_equal([Array, Object], Array.class_hierarchy.to_a, "Class ancestors incorrect")
+  end
+
+  class Person
+    attr_reader :social_security_number
+    attr_accessor :postal_code
+    define_attribute_alias(:ssn, :social_security_number)
+    define_attribute_alias(:zip_code, :postal_code)
+  end
+
+  def test_attribute_alias
+    assert(Person.method_defined?(:ssn), "Reader alias not defined")
+    assert(!Person.method_defined?(:ssn=), "Writer alias incorrectly defined")
+    assert(Person.method_defined?(:zip_code), "Reader alias not defined")
+    assert(Person.method_defined?(:zip_code=), "Writer alias not defined")
+  end
+
+  class A; end
+  class B < A; end
+
+  def test_range
+    assert_equal([B, A, Object],  (B..Object).to_a, "Class range incorrect")
+  end
+
+  class OneBased
+    attr_accessor :index
+    offset_attr_accessor :zero_based_index => :index
+    offset_attr_accessor({:two_based_index => :index}, 1)
+  end
+
+  def test_offset_attr_accessor
+    x = OneBased.new
+    x.index = 1
+    assert_equal(0, x.zero_based_index, "Offset reader incorrect")
+    x.zero_based_index = 1
+    assert_equal(2, x.index, "Offset writer incorrect")
+    assert_equal(3, x.two_based_index, "Offset reader incorrect")
+    x.two_based_index = 1
+    assert_equal(0, x.index, "Offset writer incorrect")
+  end
+end

data/test/lib/caruby/util/collection_test.rb

@@ -0,0 +1,379 @@
+$:.unshift 'lib'
+
+require "test/unit"
+require 'caruby/util/collection'
+
+class CollectionTest < Test::Unit::TestCase
+  def test_collection_classifier
+    assert([].collection?, "array is not a collecton")
+    assert(!nil.collection?, "nil is a collecton")
+    assert(!'a'.collection?, "String is a collecton")
+  end
+
+  def test_hashify
+    actual = [1, 2, 3].hashify { |key| key + 1 unless key == 2 }
+    expected = {1 => 2, 2 => nil, 3 => 4}
+    assert_equal(expected, actual, 'Hashify result incorrect')
+  end
+
+  def test_to_compact_hash
+    actual = [1, 2, 3].to_compact_hash { |key| key + 1 unless key == 2 }
+    expected = {1 => 2, 3 => 4}
+    assert_equal(expected, actual, 'Compact hash incorrect')
+  end
+  
+  def test_lazy_hash
+    hash = LazyHash.new { |n| n * 2 }
+    assert_equal(2, hash[1], "Lazy hash value incorrect")
+    hash.merge!(2 => 3)
+    assert_equal({1 => 2, 2 => 3}, hash, "Lazy hash merge incorrect")
+  end
+
+  def test_array_operator_set_argument
+    array = [1, 2, 3]
+    set = [3, 4].to_set
+    assert_equal([3], array & set, "Array | Set result incorrect")
+    assert_equal([1, 2, 3, 4], array | set, "Array | Set result incorrect")
+    assert_equal([1, 2], array - set, "Array - Set result incorrect")
+  end
+
+  def test_empty_hash
+    assert_raises(NotImplementedError, "Assigment to empty hash succeeds") { Hash::EMPTY_HASH[:a] = 2 }
+  end
+
+  def test_set_first
+    assert_equal(1, [1, 2].to_set.first, "first of set incorrect")
+    assert_nil(Set.new.first, "first of empty set incorrect")
+  end
+
+  def test_assoc_values_single
+    expected = {:a => [1, 3], :b => [2, nil], :c => [nil, 4]}
+    actual = {:a => 1, :b => 2}.assoc_values({:a => 3, :c => 4})
+    assert_equal(expected, actual, "Association hash incorrect")
+  end
+
+  def test_assoc_values_multiple
+    expected = {:a => [1, 3, 4], :b => [2, nil, 5]}
+    actual = {:a => 1, :b => 2}.assoc_values({:a => 3}, { :a => 4, :b => 5 })
+    assert_equal(expected, actual, "Multiple association hash incorrect")
+  end
+
+  def test_detect_value
+   assert_equal(4, [1, 2, 3].detect_value { |item| item * 2 if item > 1 }, "Detect value incorrect")
+   assert_nil([1, 2, 3].detect_value { |item| iitem * 2 if item > 3 }, "Value incorrectly detected")
+  end
+
+  def test_detect_with_value
+    assert_equal([2, 1], [1, 2].detect_with_value { |item| item / 2 if item % 2 == 0 }, "Detect with value incorrect")
+  end
+
+  def test_array_filter
+    base = [1, 2, 3]
+    filter = base.filter { |n| n != 2 }
+    assert_equal([1, 3], filter.to_a, 'Filter incorrect')
+    base << 4
+    assert_equal([1, 3, 4], filter.to_a, 'Filter does not reflect operand modification')
+    filter << 5
+    assert_equal([1, 2, 3, 4, 5], base.to_a, 'Filter does not modify the base')
+  end
+
+  def test_array_filter_without_block
+    assert_equal([1, 3], [1, nil, 3, false].filter.to_a, 'Filter incorrect')
+  end
+
+  def test_set_filter_include
+    assert([1, 2, 3].to_set.filter { |n| n > 1 }.include?(2), 'Set filter include? incorrect')
+    assert(false == [1, 2, 3].to_set.filter { |n| n > 1 }.include?(1), 'Set filter include? incorrect')
+  end
+
+  def test_union
+    base = [1, 2]
+    sum = base.union([4])
+    assert_equal([1, 2, 4], sum.to_a, 'Enumerator union incorrect')
+    assert(sum.include?(2), "Enumerator union missing first array element")
+    assert(sum.include?(4), "Enumerator union missing second array element")
+    base << 3
+    assert_equal([1, 2, 3, 4], sum.to_a, 'Enumerator union does not reflect operand modification')
+  end
+
+  def test_intersection
+    base = [1, 2, 3, 4]
+    other = [3]
+    intersection = base.intersect(other)
+    assert_equal([3], intersection.to_a, 'Enumerator intersection incorrect')
+    other << 4 << 5
+    assert_equal([3, 4], intersection.to_a, 'Enumerator intersection does not reflect operand modification')
+  end
+
+  def test_difference
+    base = [1, 2, 3]
+    diff = base.difference([3])
+    assert_equal([1, 2], diff.to_a, 'Enumerator subtraction incorrect')
+    base << 4
+    assert_equal([1, 2, 4], diff.to_a, 'Enumerator subtraction does not reflect operand modification')
+  end
+
+  def test_wrap
+    assert_equal([2, 4, 6], [1, 2, 3].wrap { |n| n * 2 }.to_a, 'Wrap incorrect')
+  end
+
+  def test_enum_addition
+    a = [1, 2].filter { true }
+    b = [3, 4].filter { true }
+    ab = a + b
+    assert_equal([1, 2, 3, 4], ab.to_a, "Composite array incorrect")
+    a << 3
+    assert_equal([1, 2, 3, 3, 4], ab.to_a, "Addition does not reflect change to first enumerable")
+    b << 5
+    assert_equal([1, 2, 3, 3, 4, 5], ab.to_a, "Addition does not reflect change to second enumerable")
+  end
+
+  def test_hash_union
+    a = {:a => 1, :b => 2}
+    b = {:b => 3, :c => 4}
+    ab = a + b
+    assert_equal({:a => 1, :b => 2, :c => 4}, ab.keys.to_compact_hash { |key| ab[key] }, "Hash union incorrect")
+    assert_equal([1, 2, 4], ab.values.sort, "Hash union values incorrect")
+    a.delete(:b)
+    assert_equal({:a => 1, :b => 3, :c => 4}, ab.keys.to_compact_hash { |key| ab[key] }, "Hash union does not reflect underlying change")
+  end
+
+  def test_hash_compose
+    x = {:a => :c, :b => :d}
+    y = {:c => 1}
+    xy = x.compose(y)
+    assert_equal({:a => {:c => 1}}, xy.keys.to_compact_hash { |key| xy[key] }, "Composed hash incorrect")
+    y[:d] = 2
+    assert_equal({:a => {:c => 1}, :b => {:d => 2}}, xy.keys.to_compact_hash { |key| xy[key] }, "Composed hash does not reflect underlying change")
+  end
+
+  def test_hash_join
+    x = {:a => :c, :b => :d}
+    y = {:c => 1}
+    xy = x.join(y)
+    assert_equal({:a => 1}, xy.keys.to_compact_hash { |key| xy[key] }, "Joined hash incorrect")
+    y[:d] = 2
+    assert_equal({:a => 1, :b => 2}, xy.keys.to_compact_hash { |key| xy[key] }, "Joined hash does not reflect underlying change")
+  end
+  
+  def test_hash_diff
+    x = {:a => 1, :b => 2, :c => 3}
+    y = {:b => 2, :c => 4, :d => 5}
+    assert_equal({:a => [1,nil], :c => [3,4], :d => [nil,5]}, x.diff(y), "Hash diff incorrect")
+  end
+
+  def test_to_assoc_hash
+    actual = [[:a, 1], [:b, 2, 3], [:c], []].to_assoc_hash
+    expected = {:a => 1, :b => [2,3], :c => nil}
+    assert_equal(expected, actual, 'Association hash incorrect')
+  end
+
+  def test_hashable_equal
+    assert_equal({:a => 1}, {:a => 1}.filter, "Hash equal incorrect")
+  end
+
+  def test_hash_enum_keys
+    assert_equal([1, 2], { 1 => :a, 2 => :b }.enum_keys.sort)
+  end
+
+  def test_hash_partition
+    assert_equal([{:a => 1}, { :b => 2}], { :a => 1, :b => 2 }.partition { |key, value| value < 2 }, "Hash partition incorrect")
+  end
+
+  def test_hash_enum_keys_with_value
+    assert_equal([:b, :c], {:a => 1, :b => 2, :c => 2}.enum_keys_with_value(2).to_a, "Hash filtered value keys incorrect")
+  end
+
+  def test_hash_enum_keys_with_value_block
+    assert_equal([:b, :c], {:a => 1, :b => 2, :c => 3}.enum_keys_with_value { |value| value > 1 }.to_a, "Hash filtered value block keys incorrect")
+  end
+
+  def test_hash_flatten
+    assert_equal([:a, :b, :c, :d, :e, :f, :g], {:a => {:b => :c}, :d => :e, :f => [:g]}.flatten, "Hash flatten incorrect")
+  end
+
+  def test_hash_first
+    assert_equal([:a, 1], {:a => 1, :b => 2}.first, "Hash first incorrect")
+  end
+
+  def test_hash_filter
+    assert_equal({:a => 1, :c => 3}, {:a => 1, :b => 2, :c => 3}.filter { |k, v| k != :b }, "Hash filter incorrect")
+  end
+
+  def test_hash_sort
+    assert_equal([['a', 1], ['b', 2]], {'a'=>1, 'b'=>2}.sort.to_a, "Hash sort incorrect")
+  end
+  
+  def test_hash_sort_with_comparator
+    assert_equal([[:a, 1], [:b, 2]], {:a => 1, :b => 2}.sort { |k1, k2| k1.to_s <=> k2.to_s }, "Hash sort with comparator incorrect")
+  end
+
+  def test_hash_default_filter
+    assert_equal({:a => 1, :c => 3}, {:a => 1, :b => nil, :c => 3}.filter, "Hash default filter incorrect")
+  end
+
+  def test_hash_partition
+    assert_equal([{:a => 1, :c => 3}, {:b => 2}], {:a => 1, :b => 2, :c => 3}.hash_partition { |k, v| k == :a or v == 3 }, "Hash partition incorrect")
+  end
+
+  def test_hash_filter_on_key
+    filtered = {:a => 1, :b => 2, :c => 3}.filter_on_key { |k| k != :b }
+    assert_equal({:a => 1, :c => 3}, filtered.to_hash, "Hash on key filter incorrect")
+    assert_equal(1, filtered[:a], "Access on key filter inclusion incorrect")
+    assert_nil(filtered[:b], "Access on key filter exclusion incorrect")
+  end
+
+  def test_hash_filter_on_value
+    filtered = {:a => 1, :b => 2, :c => 3}.filter_on_value { |v| v != 2 }
+    assert_equal({:a => 1, :c => 3}, filtered.to_hash, "Hash on value filter incorrect")
+  end
+  
+  def test_hash_compact
+    assert_equal({:a => 1, :c => 3}, {:a => 1, :b => nil, :c => 3}.compact.to_hash, "Compact hash incorrect")
+  end
+
+  def test_set_flatten
+    inner = Set.new << :a
+    actual = [inner, 'b'].flatten
+    expected = [:a, 'b']
+    assert_equal(expected, actual, 'Inner set not flattened')
+  end
+
+  def test_to_compact_hash
+    assert_equal({1 => 2, 2 => 3}, [1, 2].to_compact_hash { |item| item + 1 }, 'to_compact_hash result incorrect')
+  end
+
+  def test_to_compact_hash_with_index
+    assert_equal({:a => 1, :b => 2}, [:a, :b].to_compact_hash_with_index { |item, index| index + 1 }, 'to_compact_hash_with_index result incorrect')
+  end
+
+  def test_to_compact_hash_reject_missing
+    assert_equal({1 => 2, 2 => 3}, [1, 2, 3].to_compact_hash { |item| item + 1 unless item > 2 }, 'to_compact_hash maps a key with a nil value')
+  end
+
+  def test_series
+    actual = [1, 2, 3].to_series
+    assert_equal('1, 2 and 3', actual, 'Print string incorrect')
+  end
+
+  def test_empty_series
+    actual = [].to_series
+    assert_equal('', actual, 'Print string incorrect')
+  end
+
+  def test_singleton_series
+    actual = [1].to_series
+    assert_equal('1', actual, 'Print string incorrect')
+  end
+
+  def test_copy_recursive
+    hash = {1 => { 2 => 3 }, 4 => 5 }
+    copy = hash.copy_recursive
+    assert_equal(hash, copy, 'Copy not equal')
+    hash[1][2] = 6
+    assert_equal(3, copy[1][2], 'Copy reflects change to original')
+    hash[4] = 7
+    assert_equal(5, copy[4], 'Copy reflects change to original')
+  end
+
+  def test_case_insensitive_hash
+    hash = CaseInsensitiveHash.new
+    hash[:UP] = :down
+    assert_equal(:down, hash['up'], "Case-insensitive hash look-up incorrect")
+  end
+
+  def test_transformed_hash
+    hash = {:a => 1, :b => 2}
+    xfm = hash.transform { |value| value * 2 }
+    assert_equal(2, xfm[:a], 'Transformed hash accessor incorrect')
+    assert_equal([2, 4], xfm.values.sort, 'Transformed hash values incorrect')
+    assert(xfm.has_value?(4), 'Transformed hash value query incorrect')
+    assert(!xfm.has_value?(1), 'Transformed hash value query incorrect')
+    # base hash should be reflected in transformed hash
+    hash[:b] = 3; hash[:c] = 4
+    assert_equal(6, xfm[:b], 'Transformed hash does not reflect base hash change')
+    assert_equal(8, xfm[:c], 'Transformed hash does not reflect base hash change')
+  end
+
+  def test_key_transformer_hash
+    hash = KeyTransformerHash.new { |key| key % 2 }
+    hash[1] = :a
+    assert_equal(:a, hash[1], 'Key transformer hash entered value not found')
+    assert_nil(hash[2], 'Transformed hash unentered value found')
+    assert_equal(:a, hash[3], 'Key transformer hash equivalent value not found')
+  end
+
+  def test_hashinator
+    base = {:a => 1, :b => 2}.to_a
+    hash = Hashinator.new(base)
+    assert_equal(base.to_set, hash.to_set, "Hashinator enumeration invalid")
+    assert_equal(1, hash[:a], "Hashinator a value invalid")
+    assert_equal(2, hash[:b], "Hashinator b value invalid")
+    assert_nil(hash[:c], "Hashinator has association not in the base")
+    base.first[1] = 3
+    assert_equal(3, hash[:a], "Hashinator does not reflect change to underlying Enumerator")
+    assert_equal(base, hash.to_hash.to_a, "Hashable to_hash incorrect")
+  end
+
+  def test_collector
+    assert_equal([2, [3, 4]], Collector.on([1, [2, 3]]) { |n| n + 1 }, "Collector on nested array incorrect")
+    assert_nil(Collector.on(nil) { |n| n + 1 }, "Collector on nil incorrect")
+    assert_equal(2, Collector.on(1) { |n| n + 1 }, "Collector on non-collection incorrect")
+  end
+
+  def test_enumerate
+    counter = 0
+    nil.enumerate { |item| counter += item }
+    assert_equal(0, counter, "Enumerate on nil incorrect")
+    [1, 2, 3].enumerate { |item| counter += item }
+    assert_equal(6, counter, "Enumerate on array incorrect")
+    [1, [2, 3]].enumerate { |item| counter += 1 }
+    assert_equal(8, counter, "Enumerate on nested array incorrect")
+    2.enumerate { |item| counter += item }
+    assert_equal(10, counter, "Enumerate on non-collection incorrect")
+  end
+
+  def test_to_enum
+    assert_equal([], nil.to_enum.to_a, "to_enum on nil incorrect")
+    assert_equal([1], 1.to_enum.to_a, "to_enum on non-collection incorrect")
+    array = [1, 2]
+    assert_same(array, array.to_enum, "to_enum on array incorrect")
+    s = 'a'
+    assert_same(s, s.to_enum, "to_enum on String incorrect")
+  end
+
+  def test_flattener
+    assert_equal([1, 2, 3], Flattener.new([1, [2, 3]]).to_a, "Flattener on nested array incorrect")
+    assert_equal([], Flattener.new(nil).to_a, "Flattener on nil incorrect")
+    assert_equal([1], Flattener.new(1).to_a, "Flattener on non-collection incorrect")
+    assert(Flattener.new(nil).all?, "Flattener all? on nil incorrect")
+    assert_equal([:b, :c, :e], {:a => {:b => :c}, :d => [:e]}.enum_values.flatten.to_a, "Enumerable flatten incorrect")
+  end
+
+  def test_hash_flattener
+    assert_equal([:a, :b, :c], {:a => {:b => :c}}.flatten.to_a, "Hash flatten incorrect")
+    assert_equal([:b, :c, :e], {:a => {:b => :c}, :d => [:e]}.enum_values.flatten.to_a, "Enumerable flatten incorrect")
+  end
+
+
+  def test_conditional_enumerator
+    assert_equal([1, 2], ConditionalEnumerator.new([1, 2, 3]) { |i| i < 3 }.to_a, "ConditionalEnumerator filter not applied")
+  end
+
+  def test_enumerable_size
+   assert_equal(2, {:a => 1, :b => 2}.enum_keys.size, "Enumerable size incorrect")
+  end
+
+  def test_set_merge
+    set = [1, 2].to_set
+    merged = set.merge!([3])
+    assert_equal([1, 2, 3].to_set, merged, "Merged set incorrect")
+    assert_same(set, merged, "Set merge! did not return same set")
+  end
+
+  def test_set_add_all
+    actual = [1, 2].add_all([3])
+    expected = [1, 2, 3]
+    assert_equal(expected, actual, 'Set content not added')
+  end
+end