kyanite 0.3.1

data/test/enumerable/test_enumerable_numerics.rb

@@ -0,0 +1,93 @@
+
+require 'kyanite/unit_test'
+require 'kyanite/smart_load_path'; smart_load_path
+require 'perception'                                if $0 == __FILE__    
+
+require 'kyanite/enumerable/enumerable_numerics'
+
+class Array
+  include EnumerableNumerics
+end
+
+
+# Tests für EnumerableNumerics
+# 
+class TestKyaniteEnumerableNumerics < UnitTest
+
+  
+  def test_sum
+    assert_equal 2,                   [2].summation
+    assert_equal 4,                   [2,2].summation
+    assert_equal 6,                   [2,2,2].summation
+    assert_equal 8,                   [2,2,2,2].summation 
+    assert_equal 8.5,                 [2,2,2,2,0.5].summation 
+  end
+  
+  
+  
+  def test_prd
+    assert_equal 2,                   [2].prd
+    assert_equal 6,                   [2,3].prd
+    assert_equal -12,                 [2,2,-3].prd
+    assert_equal 1,                   [0.5,0.5,2,2].prd 
+  end  
+  
+  
+  def test_avg
+    a = [1,2,3,4,5,6,7,8,9]
+    assert_equal 5.0, a.average  
+  
+    assert_equal 2,                   [2].avg
+    assert_equal 2.5,                 [2,3].avg
+    assert_equal 2.5,                 [3,2].avg
+    assert_equal 0.33333333333333,    [2,2,-3].avg
+    assert_equal 1.25,                [0.5,0.5,2,2].avg
+    
+    assert_equal 75,                  [ 50, 100 ].mean_arithmetric
+    assert_equal 66.6666666666667,    [ 50, 100 ].mean_harmonic
+    assert_equal 70.7106781186548,    [ 50, 100 ].mean_geometric
+    
+    assert_equal 66.6666666666667,    [ 100, 0,         100 ].mean_arithmetric
+    assert_equal 66.6666667,          [ 100, 0.0000001, 100 ].mean_arithmetric
+    assert_equal 0.0,                 [ 100, 0,         100 ].mean_harmonic
+    assert_equal 2.999999994e-007,    [ 100, 0.0000001, 100 ].mean_harmonic
+    assert_equal 0,                   [ 100, 0,         100 ].mean_geometric
+    assert_equal 0.1,                 [ 100, 0.0000001, 100 ].mean_geometric    
+  end   
+  
+  
+  def test_mean_harmonic
+    assert_equal 66.6666666666667,    [ 50, 100 ].mean_harmonic  
+    assert_equal 0.0,                 [ 100, 0,         100 ].mean_harmonic
+    assert_equal 2.999999994e-007,    [ 100, 0.0000001, 100 ].mean_harmonic    
+    assert_equal 4,                   [ 1, -2 ].mean_harmonic    # formal richtig, aber sinnlos
+    assert_equal -0.5,                [ 1, -2 ].mean_harmonic(:allow_negative => true)    
+    assert_equal -0.5,                [ 1, 1, -2, -2 ].mean_harmonic(:allow_negative => true)    
+    assert_equal -2,                  [ -2, -2 ].mean_harmonic(:allow_negative => true)    
+    assert_equal 2,                   [ 2, 2 ].mean_harmonic(:allow_negative => true)    
+    assert_equal 0,                   [ -2, 2 ].mean_harmonic(:allow_negative => true)    
+    assert_equal 0,                   [ 2, -2 ].mean_harmonic(:allow_negative => true)    
+    assert_equal 0.666666666666667,   [ 2, 2, -2 ].mean_harmonic(:allow_negative => true)    
+  end
+  
+  
+  def test_parallel
+    assert_equal 1,                   [1].parallel
+    assert_equal 0.5,                 [1,1].parallel
+    assert_equal 0.333333333333333,   [1,1,1].parallel
+    assert_equal 0.25,                [1,1,1,1].parallel
+    
+    assert_equal 2,                   [2].parallel
+    assert_equal 1,                   [2,2].parallel
+    assert_equal 0.666666666666667,   [2,2,2].parallel
+    assert_equal 0.5,                 [2,2,2,2].parallel    
+    assert_equal 0.5,                 [2,2,1].parallel      
+  end    
+
+  
+
+
+  
+  
+
+end # class 

data/test/enumerable/test_enumerable_strings.rb

@@ -0,0 +1,22 @@
+
+require 'kyanite/unit_test'
+require 'kyanite/smart_load_path'; smart_load_path
+require 'perception'                                if $0 == __FILE__    
+
+require 'kyanite/enumerable/enumerable_strings'
+
+class Array
+  include EnumerableStrings
+end
+
+
+# Tests für EnumerableStrings
+# 
+class TestKyaniteEnumerableStrings < UnitTest
+  
+  def test_palindrom_rumpf
+    test = ['lut', 'lutr', 'lutmi', 'lutmil', 'lutmila', 'lutrika', 'lutrik', 'lutri', 'lutr', 'lut']
+    assert_equal ['lutmi', 'lutmil', 'lutmila', 'lutrika', 'lutrik', 'lutri'],  test.palindrom_rumpf
+  end  
+
+end # class 

data/test/enumerable/test_structure.rb

@@ -0,0 +1,220 @@
+
+require 'kyanite/unit_test'
+require 'kyanite/smart_load_path'; smart_load_path
+require 'perception'                                if $0 == __FILE__    
+
+require 'kyanite/enumerable/structure'
+require 'kyanite/dictionary'
+require 'kyanite/set'
+require 'kyanite/hash'
+
+
+
+# Tests für Enumerable
+# 
+class TestKyaniteEnumerableStructure < UnitTest
+
+ def test_is_collection
+ 
+    # keine Collection
+    assert ! 123.is_collection?
+    assert ! (123.4).is_collection?
+    assert ! (123.4).is_collection?
+    assert ! (:hallo).is_collection?
+    assert ! ''.is_collection?
+    assert ! /123/.is_collection?
+    assert ! Time.now.is_collection?
+    assert ! nil.is_collection?
+    assert ! true.is_collection?
+    assert ! false.is_collection?
+    assert ! Array.is_collection?
+    assert ! (1..4).is_collection?     # Range gilt NICHT als Collection
+ 
+    # Collections
+    assert [1,2,3].is_collection?
+    assert [1].is_collection?
+    assert [].is_collection?
+    assert ['1','2','3'].is_collection?
+    assert ({}).is_collection?
+    assert ({:a => '1', :b => '2'}).is_collection?
+    assert Dictionary[1,2,3,4].is_collection?
+    
+    Struct.new("Customer", :name, :adress)
+    struct = Struct::Customer.new("Dave", "123 main")
+    assert struct.is_collection?
+    
+  end # test_is_collection?  
+  
+  
+  
+
+ 
+  def test_distribution_size
+    test = []
+    test << [  :a,   :b,   :c       ]
+    test << [   1,    2,    3,   4  ]
+    test << [ 'i', 'ii' ]
+    expected = [[2,   1],
+                [3,   1],
+                [4,   1]]
+    assert_equal expected,  test.distribution
+    
+    test = []
+    test << [  :a,   :b,   :c  ]
+    test << [   1,    2,    3  ]
+    test << [ 'i', 'ii', nil   ]    
+    assert_equal [[3, 3]],        test.distribution   
+
+    test = [  :a,   :bbbbbb,   :c  ] 
+    assert_equal [[1, 2], [6, 1]],  test.distribution
+  end    
+  
+  
+  
+  def test_distribution_class
+    test = []
+    test << [  :a,   :b,   :c       ]
+    test << [   1,    2,    3,   4  ]
+    test << [ 'i', 'ii' ]
+    assert_equal [[Array, 3]],  test.distribution(:class)
+    
+    test = [  :a,   :b,   :c  ] 
+    assert_equal [[Symbol, 3]],  test.distribution(:class)  
+    
+    test = []
+    test << [  :a,   :b,   :c  ]
+    test << Set.new([   1,    2,    3  ])
+    test << [ 'i', 'ii', nil   ]    
+    assert_equal [[Array, 2], [Set, 1]],  test.distribution(:class)       
+  end    
+
+
+
+  def test_contentclass_mono
+    test = [  :a,   :b,   :c   ]
+    assert_equal Symbol, test.contentclass
+    assert_equal Symbol, test.contentclass( :precision => 1 )
+    assert_equal Symbol, test.contentclass( :precision => 2 )
+    assert_equal Symbol, test.contentclass( :precision => :all )
+    
+    test = [   1,    2,    3,   4  ]
+    assert_equal Fixnum, test.contentclass
+    assert_equal Fixnum, test.contentclass( :precision => 1 )
+    assert_equal Fixnum, test.contentclass( :precision => 2 )
+    assert_equal Fixnum, test.contentclass( :precision => :all )    
+    
+    
+    test = [ 'i', 'ii' ]  
+    assert_equal String, test.contentclass
+    assert_equal String, test.contentclass( :precision => 1 )
+    assert_equal String, test.contentclass( :precision => 2 )
+    assert_equal String, test.contentclass( :precision => :all )      
+  end
+  
+  
+  def test_contentclass_multi 
+    test = [   1,    2,    3,   4.0  ]
+    assert_equal Numeric, test.contentclass
+    assert_equal Fixnum,  test.contentclass( :precision => 1 )
+    assert_equal Numeric, test.contentclass( :precision => 2 )
+    assert_equal Numeric, test.contentclass( :precision => :all )    
+    
+    test = [   1,    2,    3,   4.0,    5   ]
+    assert_equal Fixnum,  test.contentclass
+    assert_equal Fixnum,  test.contentclass( :precision => 1 )
+    assert_equal Fixnum,  test.contentclass( :precision => 2 )
+    assert_equal Numeric, test.contentclass( :precision => :all )     
+    
+    test = [   nil, 1,    2,    3,   4.0,    5   ]
+    assert_equal Fixnum,  test.contentclass
+    assert_equal Fixnum,  test.contentclass( :precision => 1 )
+    assert_equal Fixnum,  test.contentclass( :precision => 2 )
+    assert_equal Numeric, test.contentclass( :precision => :all )    
+
+    test = [   1,    2,    3,   4.0,    5,  nil   ]
+    assert_equal Fixnum,  test.contentclass
+    assert_equal Fixnum,  test.contentclass( :precision => 1 )
+    assert_equal Fixnum,  test.contentclass( :precision => 2 )
+    assert_equal Numeric, test.contentclass( :precision => :all )      
+
+    test = [   nil, 1,    2,    3,   4.0,    5   ]
+    assert_equal Fixnum,    test.contentclass
+    assert_equal NilClass,  test.contentclass( :precision => 1,     :ignore_nil => false )
+    assert_equal Object,    test.contentclass( :precision => 2,     :ignore_nil => false )
+    assert_equal Object,    test.contentclass( :precision => :all,  :ignore_nil => false )      
+
+
+    test = [ nil ]
+    assert_equal nil,       test.contentclass
+    assert_equal nil,       test.contentclass( :precision => 1 )
+    assert_equal nil,       test.contentclass( :precision => 2 )
+    assert_equal nil,       test.contentclass( :precision => :all )       
+    
+    test = [ ]
+    assert_equal nil,       test.contentclass
+    assert_equal nil,       test.contentclass( :precision => 1 )
+    assert_equal nil,       test.contentclass( :precision => 2 )
+    assert_equal nil,       test.contentclass( :precision => :all )      
+    
+    test = [ nil ]
+    assert_equal NilClass,  test.contentclass( :ignore_nil => false )
+    assert_equal NilClass,  test.contentclass( :precision => 1,     :ignore_nil => false )
+    assert_equal NilClass,  test.contentclass( :precision => 2,     :ignore_nil => false )
+    assert_equal NilClass,  test.contentclass( :precision => :all,  :ignore_nil => false )        
+    
+  end  
+  
+  def test_contentclass_set_and_hash
+    test = SortedSet.new([   1,    2,    3,   4.0  ])
+    assert_equal Numeric, test.contentclass
+    assert_equal Fixnum,  test.contentclass( :precision => 1 )
+    assert_equal Numeric, test.contentclass( :precision => 2 )
+    assert_equal Numeric, test.contentclass( :precision => :all )      
+
+    test = OrderedSet.new([   1,    2,    3,   4.0  ])
+    assert_equal Numeric, test.contentclass
+    assert_equal Fixnum,  test.contentclass( :precision => 1 )
+    assert_equal Numeric, test.contentclass( :precision => 2 )
+    assert_equal Numeric, test.contentclass( :precision => :all )    
+
+    test = Set.new([   1,    2,    3,   4  ])
+    assert_equal Fixnum,  test.contentclass
+    assert_equal Fixnum,  test.contentclass( :precision => 1 )
+    assert_equal Fixnum,  test.contentclass( :precision => 2 )
+    assert_equal Fixnum,  test.contentclass( :precision => :all )      
+    
+    test = {:b => 2, :a => 1,  :c => 3}
+    assert_equal Fixnum,  test.contentclass
+    assert_equal Fixnum,  test.contentclass( :precision => 1 )
+    assert_equal Fixnum,  test.contentclass( :precision => 2 )
+    assert_equal Fixnum,  test.contentclass( :precision => :all )  
+
+    test = Dictionary[ 'a', 1, 'b', 2, 'c', 3 ]
+    assert_equal Fixnum,  test.contentclass
+    assert_equal Fixnum,  test.contentclass( :precision => 1 )
+    assert_equal Fixnum,  test.contentclass( :precision => 2 )
+    assert_equal Fixnum,  test.contentclass( :precision => :all )    
+
+    test = Dictionary[ 'a', 1, 'b', 2, 'c', 3.0 ]
+    assert_equal Numeric,  test.contentclass
+    assert_equal Fixnum,   test.contentclass( :precision => 1 )
+    assert_equal Numeric,  test.contentclass( :precision => 2 )
+    assert_equal Numeric,  test.contentclass( :precision => :all )      
+    
+  end      
+  
+  
+  
+
+end # class 
+
+
+
+
+
+
+
+
+
+
+

data/test/general/test_classutils.rb

@@ -0,0 +1,45 @@
+
+require 'kyanite/unit_test'
+require 'kyanite/smart_load_path'; smart_load_path
+require 'perception'                                if $0 == __FILE__    
+
+require 'kyanite/general/classutils'
+
+class DummyClass1 # :nodoc:
+end
+module DummyModule # :nodoc:
+  class DummyClass2 # :nodoc:
+  end
+end
+
+
+class TestKyaniteClassutils < UnitTest
+
+  def test_to_class
+    assert_equal DummyClass1,               'DummyClass1'.to_class
+    assert_equal DummyClass1,               'dummy_class1'.to_class
+    assert_equal DummyClass1,               :DummyClass1.to_class
+    assert_equal DummyClass1,               :dummy_class1.to_class
+    assert_equal DummyClass1,               DummyClass1.to_class
+    assert_equal DummyModule::DummyClass2,  'DummyModule::DummyClass2'.to_class
+    
+    assert_equal nil,                       'DummyClass2'.to_class
+    assert_equal nil,                       'UserBlaBlubb'.to_class
+    assert_equal nil,                       'user_bla_blubb'.to_class
+    assert_equal nil,                       nil.to_class
+  end  
+  
+  
+  def test_to_classname
+    assert_equal 'dummy_class1',            'DummyClass1'.to_classname
+    assert_equal 'dummy_class2',            'DummyModule::DummyClass2'.to_classname
+
+    assert_equal 'dummy_class1',            DummyClass1.to_classname
+    assert_equal 'dummy_class2',            DummyModule::DummyClass2.to_classname
+	
+    assert_equal '',                        nil.to_classname      
+  end
+
+  
+
+end # class 

data/test/general/test_nil.rb

@@ -0,0 +1,44 @@
+
+require 'kyanite/unit_test'
+require 'kyanite/smart_load_path'; smart_load_path
+require 'perception'                                if $0 == __FILE__    
+
+require 'kyanite/general/nil'
+
+class TestKyaniteNil < UnitTest
+
+  def test_nil_patches
+  	assert nil.empty?
+      
+    assert ! nil.include?('g')
+    assert ! nil.include?(nil)
+      
+  	assert_nil 		nil.to_nil
+  	assert_equal 	0, nil.size	
+  	assert_equal 	0, nil.length	
+  	
+  	assert_equal 	nil,  nil + 42  
+  	assert_equal 	nil,  nil + '42'
+  	assert_equal 	'',   nil.to_s
+  	
+  	assert_nil 		nil[1]
+  	assert_nil 		nil[1,2]
+  	assert_nil 		nil[1][2]
+  	assert_nil 		nil[1][2,3][4]
+  	assert_nil 		nil[nil]
+  	assert_nil 		nil[nil,nil]
+  	assert_nil 		nil[nil][nil]
+
+  	assert_equal	42,	nil[1] = 42
+  	assert_equal	42,	nil[1,2] = 42
+  	assert_equal	42,	nil[1][2] = 42
+  	assert_equal	42,	nil[1][2,3][4] = 42
+  	assert_equal	42,	nil[nil] = 42
+  	assert_equal	42,	nil[nil,nil] = 42
+  	assert_equal	42,	nil[nil][nil] = 42	
+
+  end # test_nil_patches
+
+  
+
+end # class 

data/test/general/test_object.rb

@@ -0,0 +1,49 @@
+
+require 'kyanite/unit_test'
+require 'kyanite/smart_load_path'; smart_load_path
+require 'perception'                                if $0 == __FILE__    
+
+require 'kyanite/general/object'
+
+
+class TestKyaniteObject < UnitTest
+  
+ def test_is_numeric
+   assert   1.2345.is_numeric?                  #=> 1.2345
+   assert   12345678987654321.is_numeric?       #=> 1.23456789876543e+16
+   assert   0.is_numeric?                       #=> 0.0
+   assert   0.0.is_numeric?                     #=> 0.0
+   assert   ".001".is_numeric?                  #=> 0.001
+   assert   123435.12345.is_numeric?            #=> 123435.12345
+   assert ! "123435.".is_numeric?               
+   assert   "1.50130937545297e+68".is_numeric?  #=> 1.50130937545297e+68
+   assert ! "a".is_numeric? 
+   assert ! "a42".is_numeric? 
+   assert ! "42a".is_numeric? 
+   assert   123.42.is_numeric?                  #=> 123.42
+   assert   "1_2_3.42".is_numeric?              #=> 123.42
+   assert ! "_1_2_3_.42_".is_numeric? 
+   assert ! "__1__2_3_.42__".is_numeric? 
+   assert ! nil.is_numeric? 
+   assert ! true.is_numeric? 
+   assert ! false.is_numeric? 
+   assert ! [].is_numeric? 
+   assert ! [1].is_numeric? 
+   assert ! [1,2].is_numeric? 
+   assert ! Fixnum.is_numeric? 
+ end     
+ 
+ 
+
+  def test_blank
+      #assert_equal true,      ''.blank?     # ok  
+      # assert_equal false,     nil.blank?   
+      assert_equal false,     1.blank?      # ok
+      assert_equal false,     'a'.blank?    # ok
+      assert_equal false,     true.blank?   # ok
+      assert_equal false,     false.blank?  # ok
+  end 
+
+  
+
+end # class