facets 2.1.3 → 2.2.0

data/lib/core/facets/class/descendents.rb

@@ -1,18 +1,15 @@
-# TITLE:
-#
-#   Class Descendent Extensions
-#
-# SUMMARY:
-#
-#   Extension methods for Class class for accessing
-#   and even removing subclasses.
-#
-# CREDITS:
-#
-#   - ?
-
 class Class
 
+  # List all descedents of this class.
+  #
+  #   class X ; end
+  #   class A < X; end
+  #   class B < X; end
+  #   X.descendents  #=> [A,B]
+  #
+  # NOTE: This is a intesive operation. Do not
+  # expect it to be super fast.
+
   def descendents
     subclass = []
     ObjectSpace.each_object( Class ) do |c|
@@ -23,8 +20,13 @@ class Class
     return subclass
   end
 
+  # Obvious alias for descendents.
+
   alias_method :subclasses, :descendents
 
+  # Remove descendents. This simple deletes the constant
+  # associated to the descendents name.
+
   def remove_descendents
     self.descendents.each do |subclass|
       Object.send(:remove_const, subclass.name) rescue nil
@@ -32,37 +34,8 @@ class Class
     ObjectSpace.garbage_collect
   end
 
+  # Obvious alias for remove_descendents.
+
   alias_method :remove_subclasses, :remove_descendents
 
 end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TestClassDescendents < Test::Unit::TestCase
-
-    class A ; end
-    class B < A ; end
-    class C < B ; end
-
-    def test_descendents
-      assert_equal( [C,B], A.descendents )
-    end
-
-    def test_remove_descendents
-      assert_nothing_raised { B.remove_descendents }
-      # doesn't work despite above; not sure why
-      #assert_equal( [B], A.descendents )
-    end
-
-  end
-
-=end

data/lib/core/facets/comparable/bound.rb

@@ -1,22 +1,3 @@
-# +FILE+
-#
-#   bound.rb
-#
-# +DESCRIPTION+
-#
-#   Limit comparisons.
-#
-# +AUTHORS+
-#
-#   CREDIT Florian Gross
-#
-# +NOTES+
-#
-#   NOTE Are the module methods better as parameterized mixins?
-#
-#   TODO Maybe improve the naming or the module methods.
-
-#
 module Comparable
 
   # Returns the lower of self or x.
@@ -24,6 +5,8 @@ module Comparable
   #   4.at_least(5)  #=> 5
   #   6.at_least(5)  #=> 6
   #
+  #   CREDIT Florian Gross
+
   def at_least(x)
     (self >= x) ? self : x
   end
@@ -33,6 +16,8 @@ module Comparable
   #   4.at_most(5)  #=> 4
   #   6.at_most(5)  #=> 5
   #
+  #   CREDIT Florian Gross
+
   def at_most(x)
     (self <= x) ? self : x
   end
@@ -48,6 +33,8 @@ module Comparable
   #   9.clip(2,7)  #=> 7
   #   1.clip(2,7)  #=> 2
   #
+  #   CREDIT Trans
+
   def clip(lower, upper=nil)
     return lower if self < lower
     return self unless upper
@@ -62,59 +49,10 @@ module Comparable
   #   4.cap(5)  #=> 4
   #   6.cap(5)  #=> 5
   #
+  #   CREDIT Trans
+
   def cap(upper)
     (self <= upper) ? self : upper
   end
 
 end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TestComparable < Test::Unit::TestCase
-
-    def test_at_most
-      assert_equal( 3, 3.at_most(4) )
-      assert_equal( 4, 4.at_most(4) )
-      assert_equal( 4, 5.at_most(4) )
-    end
-
-    def test_at_least
-      assert_equal( 4, 3.at_least(4) )
-      assert_equal( 4, 4.at_least(4) )
-      assert_equal( 5, 5.at_least(4) )
-    end
-
-    def test_clip
-      assert_equal( 4, 3.clip(4) )
-      assert_equal( 4, 4.clip(4) )
-      assert_equal( 5, 5.clip(4) )
-      assert_equal( 4, 4.clip(3,5) )
-      assert_equal( 3, 3.clip(3,5) )
-      assert_equal( 5, 5.clip(3,5) )
-      assert_equal( 3, 2.clip(3,5) )
-      assert_equal( 5, 6.clip(3,5) )
-      assert_equal( 'd', 'd'.clip('c','e') )
-      assert_equal( 'c', 'c'.clip('c','e') )
-      assert_equal( 'e', 'e'.clip('c','e') )
-      assert_equal( 'c', 'b'.clip('c','e') )
-      assert_equal( 'e', 'f'.clip('c','e') )
-    end
-
-    def test_cap
-      assert_equal( 3, 3.cap(4) )
-      assert_equal( 4, 4.cap(4) )
-      assert_equal( 4, 5.cap(4) )
-    end
-
-  end
-
-=end

data/lib/core/facets/comparable/cmp.rb

@@ -1,23 +1,3 @@
-# TITLE:
-#
-#   Cmp and Succ/Pred
-#
-# SUMMARY:
-#
-#   Comparison and Succ/Pred extensions.
-#
-# AUTHORS:
-#
-#   - Florian Gross
-#   - Thomas Sawyer
-#
-# NOTES:
-#
-#   - NOTE Are the module methods better as parameterized mixins?
-#
-#   - TODO Maybe improve the naming or the module methods.
-
-#
 class Integer
   # This is needed to allow Integer to look back to
   # its Numeric ancestor for the new definition of #succ.
@@ -25,7 +5,6 @@ class Integer
   remove_method( :succ )
 end
 
-#
 module Comparable
   # Alternate name for comparison operator #<=>.
   #
@@ -35,6 +14,8 @@ module Comparable
   #
   # This fundamental compare method is used to keep
   # comparison compatible with <tt>#succ</tt>.
+  #
+  #   CREDIT Peter Vanbroekhoven
 
   def cmp(o)
     self<=>o
@@ -50,6 +31,8 @@ class String    # Compare method that takes length into account.
   #   "abcd".cmp("abc")  #=>  1
   #   "abc".cmp("abcd")  #=> -1
   #   "xyz".cmp("abc")   #=>  1
+  #
+  #   CREDIT Peter Vanbroekhoven
 
   def cmp(other)
     return -1 if length < other.length
@@ -62,6 +45,8 @@ class String    # Compare method that takes length into account.
   #   "abc".succ      #=> "abd"
   #   "abc".succ(4)   #=> "abg"
   #   "abc".succ(24)  #=> "aca"
+  #
+  #   CREDIT Trans
 
   def succ(n=1)
     s = self
@@ -77,6 +62,8 @@ class Numeric
   #
   #   4.distance(3)  #=> 1
   #
+  #   CREDIT Trans
+
   def distance( other )
     self - other
   end
@@ -85,6 +72,8 @@ class Numeric
   #
   #   3.succ(2)  #=> 5
   #
+  #   CREDIT Trans
+
   def succ(n=nil)
     n ||= 1
     self + n
@@ -94,79 +83,10 @@ class Numeric
   #
   #   3.pred(2)  #=> 1
   #
+  #   CREDIT Trans
+
   def pred(n=nil)
     n ||= 1
     self - n
   end
 end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TestComparable < Test::Unit::TestCase
-
-    def test_cmp
-      assert_equal( -1, 3.cmp(4) )
-      assert_equal(  0, 3.cmp(3) )
-      assert_equal(  1, 3.cmp(2) )
-    end
-
-  end
-
-  class TestStringCompare < Test::Unit::TestCase
-
-    def test_cmp
-      assert_equal( 0, "abc".cmp("abc") )
-      assert_equal( -1, "abc".cmp("abcd") )
-      assert_equal( 1, "abcd".cmp("abc") )
-      assert_equal( -1, "abc".cmp("bcd") )
-      assert_equal( 1, "bcd".cmp("abc") )
-    end
-
-    def test_succ
-      assert_equal( "b", "a".succ )
-      assert_equal( "b", "a".succ(1) )
-      assert_equal( "c", "a".succ(2) )
-      assert_equal( "d", "a".succ(3) )
-    end
-
-  end
-
-  class TestNumericCompare < Test::Unit::TestCase
-
-    def test_distance
-      assert_equal( 4, 10.distance(6) )
-      assert_equal( 2, 10.distance(8) )
-      assert_equal( -2, 7.distance(9) )
-    end
-
-
-    def test_pred
-      assert_equal(  3,  4.pred )
-      assert_equal( -3, -2.pred )
-      assert_equal(  2,  4.pred(2) )
-      assert_equal( -4, -2.pred(2) )
-      assert_equal(  6,  4.pred(-2) )
-      assert_equal(  0, -2.pred(-2) )
-    end
-
-    def test_succ
-      assert_equal(  5,  4.succ )
-      assert_equal( -1, -2.succ )
-      assert_equal(  6,  4.succ(2) )
-      assert_equal(  0, -2.succ(2) )
-      assert_equal(  2,  4.succ(-2) )
-      assert_equal( -4, -2.succ(-2) )
-    end
-
-  end
-
-=end

data/lib/core/facets/conversion.rb

@@ -6,7 +6,9 @@
 #
 #   Conversion extensions.
 #
-# CREDITS:
+#   _A horse is a horse, a horse of course!_
+#
+# AUTHORS:
 #
 #   - Thomas Sawyer
 #   - Willian James
@@ -17,7 +19,7 @@
 
 require 'facets/functor'
 
-#
+
 class Array
 
   # Converts a two-element associative array into a hash.
@@ -30,11 +32,13 @@ class Array
   #   a = [ [:a,1,2], [:b,3] ]
   #   a.to_h(true)  #=> { :a=>[1,2], :b=>[3] }
   #
-  # NOTE: the use of a values parameter has been deprecated
+  # Note that the use of a values parameter has been deprecated
   # because that functionality is as simple as:
   #
   #   array1.zip(array2).to_h
   #
+  #   CREDIT: Trans
+
   def to_h(arrayed=nil)
     h = {}
     if arrayed #or (flatten.size % 2 == 1)
@@ -52,6 +56,10 @@ class Array
   end
 
   # Turn an array into a file path.
+  #
+  #   ["usr", "local", "lib"].to_path  #=> "usr/local/lib"
+  #
+  #   CREDIT: Trans
 
   def to_path
     File.join( *(self.compact) )
@@ -59,10 +67,8 @@ class Array
 
 end
 
-#
-class Class
 
-  # CREDIT Daniel Schierbeck
+class Class
 
   # Convert instatiation of a class into a Proc.
   #
@@ -78,6 +84,7 @@ class Class
   #
   #   %w(john bob jane hans).map(&Person) => [john, bob, jane, hans]
   #
+  #   CREDIT: Daniel Schierbeck
 
   def to_proc
     proc{|*args| new(*args)}
@@ -85,7 +92,7 @@ class Class
 
 end
 
-#
+
 module Enumerable
 
   # Produces a hash from an Enumerable with index for keys.
@@ -100,7 +107,9 @@ module Enumerable
   #   enu = 'a'..'b'
   #   enu.to_hash{ |e,i| e }  #=> { 0=>'a', 1=>'b' }
   #
-  # See also #graph.
+  # See also #mash.
+  #
+  #   CREDIT: Trans
 
   def to_hash( &blk )
     h = {}
@@ -112,7 +121,10 @@ module Enumerable
     h
   end
 
+  # Convert an Enumerable object into a hash bu first
+  # turning it into an array.
   #
+  #   CREDIT: Trans
 
   def to_h(arrayed=nil)
     to_a.to_h(arrayed)
@@ -120,11 +132,13 @@ module Enumerable
 
 end
 
-#
+
 class Hash
 
   # Like Array#join but specialized to Hash.
   #
+  #   CREDIT: Mauricio Fernandez
+
   def join(pair_divider='', elem_divider='')
     s = []
     each_pair { |k,v| s << "#{k}#{pair_divider}#{v}" }
@@ -135,13 +149,9 @@ class Hash
   #
   #   {"a"=>1,"b"=>2}.to_h  #=> {"b"=>2,"a"=>1}
   #
-  #--
-  # A horse is a horse, a horse of course.
-  #++
-  def to_h; rehash; end
+  #   CREDIT: Forian Gross
 
-  # CREDIT Forian Gross
-  # CREDIT Mauricio Fernandez
+  def to_h; rehash; end
 
   # Constructs a Proc object from a hash such
   # that the parameter of the Proc is assigned
@@ -153,6 +163,7 @@ class Hash
   #   p.call(o)
   #   o.a  #=> 1
   #
+  #   CREDIT: Trans
 
   def to_proc
     lambda do |o|
@@ -163,6 +174,13 @@ class Hash
     end
   end
 
+  # A fault-tolerent version of #to_proc.
+  #
+  # It works just like #to_proc, but the block will make
+  # sure# the object responds to the assignment.
+  #
+  #   CREDIT: Trans
+
   def to_proc_with_reponse
     lambda do |o|
       self.each do |k,v|
@@ -172,12 +190,12 @@ class Hash
     end
   end
 
-  # CREDIT Daniel Berger
-
   # A method to convert a Hash into a Struct.
   #
   #   h = {:name=>"Dan","age"=>33,"rank"=>"SrA","grade"=>"E4"}
   #   s = h.to_struct("Foo")
+  #
+  #   CREDIT: Daniel Berger
 
   def to_struct(struct_name)
     Struct.new(struct_name,*keys).new(*values)
@@ -186,23 +204,30 @@ class Hash
 end
 
 
-#
 class NilClass
 
   # Why doesn't Ruby have therese already?
 
-  # Allows <tt>nil</tt> to respond to #to_f.
-  # Always returns <tt>0</tt>.
-  #
-  #  nil.to_f   #=> 0.0
-  #
-  def to_f; 0.0; end
+  unless (RUBY_VERSION[0,3] == '1.9')
+
+    # Allows <tt>nil</tt> to respond to #to_f.
+    # Always returns <tt>0</tt>.
+    #
+    #   nil.to_f   #=> 0.0
+    #
+    #   CREDIT: Matz
+
+    def to_f; 0.0; end
+
+  end
 
   # Allows <tt>nil</tt> to create an empty hash,
   # similar to #to_a and #to_s.
   #
-  #  nil.to_h    #=> {}
+  #   nil.to_h    #=> {}
   #
+  #   CREDIT: Trans
+
   def to_h; {}; end
 
 end
@@ -219,6 +244,7 @@ class Proc
   #   }
   #   l.to_h  #=> {:a=>1, :b=>2, :c=>3}
   #
+  #   CREDIT: Trans
 
   def to_h
     h = {}
@@ -229,12 +255,14 @@ class Proc
 
 end
 
-#
+
 class Range
 
   # A thing really should know itself.
   # This simply returns _self_.
   #
+  #   CREDIT: Trans
+
   def to_r
     self
   end
@@ -246,13 +274,15 @@ class Range
   # interpretor such that it can coerce Range-like
   # objects into a Range.
   #
+  #   CREDIT: Trans
+
   def to_range
     self
   end
 
 end
 
-#
+
 class Regexp
 
   # Simply returns itself. Helpful when converting
@@ -263,6 +293,8 @@ class Regexp
   #
   #   /abc/.to_re  #=> /abc/
   #
+  #   CREDIT: Trans
+
   def to_re( esc=false )
     self  # Of course, things really should know how to say "I" ;)
   end
@@ -270,14 +302,17 @@ class Regexp
   # Like #to_re, but following Ruby's formal definitions,
   # only a Regular expression type object will respond to this.
   #
-  # Note: To be of much real use this should be defined in core Ruby.
+  # Note that to be of much real use this should be defined in core Ruby.
+  #
+  #   CREDIT: Florian Gross
+
   def to_regexp
     self
   end
 
 end
 
-#
+
 class String
 
   # Get a constant by a given string name.
@@ -288,12 +323,16 @@ class String
   # since it can not access contants relative to the current
   # execution context. But without a binding_of_caller that
   # does not seem possible.
+  #
+
   def to_const
     split('::').inject(Object){ |namespace,name| namespace.const_get(name) }
   end
 
   # Parse data from string.
   #
+  #   CREDIT: Trans
+
   def to_date
     require 'date'
     require 'parsedate'
@@ -302,6 +341,8 @@ class String
 
   # Parse string to time.
   #
+  #   CREDIT: Trans
+
   def to_time
     require 'time'
     Time.parse(self)
@@ -313,6 +354,8 @@ class String
   #
   #   "[".to_re  #=> /\[/
   #
+  #   CREDIT: Trans
+
   def to_re(esc=true)
     Regexp.new((esc ? Regexp.escape(self) : self))
   end
@@ -322,6 +365,8 @@ class String
   #
   #   "a?".to_rx  #=> /a?/
   #
+  #   CREDIT: Trans
+
   def to_rx
     Regexp.new(self)
   end
@@ -332,15 +377,15 @@ class String
   #   xyp.class      #=> Proc
   #   xyp.call(1,2)  #=> 3
   #
-  #--
-  # Note: Sure would be nice if this could
-  # grab the caller's context!
-  #++
+  #   NOTE: Sure would be nice if this could grab the caller's context!
+  #
+  #   CREDIT: Trans
+
   def to_proc(context=nil)
     if context
       if context.kind_of?(Binding) or context.kind_of?(Proc)
         Kernel.eval "proc { #{self} }", context
-      else context
+      else #context
         context.instance_eval "proc { #{self} }"
       end
     else
@@ -364,9 +409,34 @@ class String
 
 end
 
-#
+
 class Symbol
 
+  unless (RUBY_VERSION[0,3] == '1.9')
+
+    # Turn a symbol into a proc calling the method to
+    # which it refers.
+    #
+    #   up = :upcase.to_proc
+    #   up.call("hello")  #=> HELLO
+    #
+    # More useful is the fact that this allows <tt>&</tt>
+    # to be used to coerce Symbol into Proc.
+    #
+    #   %w{foo bar qux}.map(&:upcase)   #=> ["FOO","BAR","QUX"]
+    #   [1, 2, 3].inject(&:+)           #=> 6
+    #
+    #   TODO: Deprecate for Ruby 1.9+.
+    #
+    #   CREDIT: Florian Gross
+    #   CREDIT: Nobuhiro Imai
+
+    def to_proc
+      Proc.new{|*args| args.shift.__send__(self, *args)}
+    end
+
+  end
+
   # Get a constant by a given symbol name.
   #
   #   :Class.to_const   #=> Class
@@ -375,31 +445,11 @@ class Symbol
   # since it can not access contants relative to the current
   # execution context. But without a binding_of_caller that
   # does not seem possible.
+
   def to_const
     to_s.split('::').inject(Object){ |namespace,name| namespace.const_get(name) }
   end
 
-  # CREDIT Florian Gross
-  # CREDIT Nobuhiro Imai
-
-  # NOTE Symbol#to_proc is already in 1.9+.
-
-  # Turn a symbol into a proc calling the method to
-  # which it refers.
-  #
-  #   up = :upcase.to_proc
-  #   up.call("hello")  #=> HELLO
-  #
-  # More useful is the fact that this allows <tt>&</tt>
-  # to be used to coerce Symbol into Proc.
-  #
-  #   %w{foo bar qux}.map(&:upcase)   #=> ["FOO","BAR","QUX"]
-  #   [1, 2, 3].inject(&:+)           #=> 6
-
-  def to_proc
-    Proc.new{|*args| args.shift.__send__(self, *args)}
-  end
-
   # Same functionality as before, just a touch more efficient.
   #
   #--
@@ -426,279 +476,30 @@ class Symbol
 
 end
 
-#
-class Time
-
-  #--
-  # CHANGE 2006-12-10 <transfire@gmail.com>
-  # * Added FORMAT constant to make more flexible.
-  #++
-
-  unless const_defined?('FORMAT')
-  FORMAT = {
-    :db      => "%Y-%m-%d %H:%M:%S",
-    :dbase   => "%Y-%m-%d %H:%M:%S",
-    :datbase => "%Y-%m-%d %H:%M:%S",
-    :utc     => "%Y-%m-%d %H:%M:%S",
-    :short   => "%d %b %H:%M",
-    :long    => "%B %d, %Y %H:%M",
-    :day1st  => "%d-%m-%Y %H:%M",
-    :dmYHM   => "%d-%m-%Y %H:%M",
-    :rfc822  => "%a, %d %b %Y %H:%M:%S %z",
-    nil      => "%a %b %d %H:%M:%S %Z %Y"
-  }
-  end
-
-  def stamp( fmt = nil )
-    unless String === fmt
-      fmt = FORMAT[fmt]
-    end
-    strftime(fmt).strip
-  end
-
-  def self.stamp(*args)
-    now.stamp(*args)
-  end
-
-  # Enhance #to_s by aliasing to #stamp.
-  alias_method :to_s, :stamp
-
-  # Convert a Time to a Date. Time is a superset of Date.
-  # It is the year, month and day that are carried over.
-  def to_date
-    require 'date'
-    ::Date.new(year, month, day)
-  end
-
-  # To be able to keep Dates and Times interchangeable
-  # on conversions.
-  def to_time
-    self
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-
-  class TestArrayConversion < Test::Unit::TestCase
-
-    def test_to_h_1
-      k = [1,3,5]
-      v = [2,4,6]
-      assert_equal( { 1=>2, 3=>4, 5=>6 }, k.zip(v).to_h )
-    end
-
-    def test_to_h_2
-      a = [[1,2],[3,4],[5,6]]
-      assert_equal( { 1=>2, 3=>4, 5=>6 }, a.to_h )
-    end
-
-    def test_to_hash
-      a = [:a,:b,:c]
-      assert_equal( { 0=>:a, 1=>:b, 2=>:c }, a.to_hash )
-    end
-
-  end
-
-
-  class TestClassConversion < Test::Unit::TestCase
-
-    Person = Struct.new(:name)
-
-    def test_to_proc
-      people = ["joe"].map(&Person)
-      assert_equal("joe", people[0].name)
-    end
-
-  end
-
-
-  class TestEnumerableConversion < Test::Unit::TestCase
-
-    def test_to_hash
-      a = [:a,:b,:c]
-      assert_equal( { 0=>:a, 1=>:b, 2=>:c }, a.to_h )
-    end
-
-  end
-
-
-  class TestHashConversion < Test::Unit::TestCase
-
-    def test_to_h
-      a = { :a => 1, :b => 2, :c => 3 }
-      assert_equal( a, a.to_h )
-    end
-
-  end
-
-
-  class TestNilClassConversion < Test::Unit::TestCase
-
-    def test_to_f
-      assert_equal( 0, nil.to_f )
-    end
-
-    def test_to_h
-      assert_equal( {}, nil.to_h )
-    end
-
-  end
-
-
-  class TestRangeConversion < Test::Unit::TestCase
-
-    def test_to_r
-      a = (0..10)
-      assert_equal( a, a.to_r )
-    end
-
-    def test_to_range
-      a = (0..10)
-      assert_equal( a, a.to_range )
-    end
-
-  end
 
+class Time
 
-  class TestRegexpConversion < Test::Unit::TestCase
-
-    def test_to_re
-      r = /0..10/
-      assert_equal( r, r.to_re )
-    end
-
-    def test_to_regexp
-      r = /0..10/
-      assert_equal( r, r.to_regexp )
-    end
-
-  end
-
-
-  class TestStringConversion < Test::Unit::TestCase
-
-    TestConst = 4
-
-    def test_to_const
-      assert_equal( 4, "TestStringConversion::TestConst".to_const )
-    end
-
-    def test_to_date
-      s = "2005-10-31"
-      d = s.to_date
-      assert_equal( 31, d.day )
-      assert_equal( 10, d.month )
-      assert_equal( 2005, d.year )
-    end
-
-    def test_to_time
-      s = "2:31:15 PM"
-      t = s.to_time
-      assert_equal( 14, t.hour )
-      assert_equal( 31, t.min )
-      assert_equal( 15, t.sec )
-    end
-
-    def test_to_re
-      assert_equal( /abc/, "abc".to_re )
-      assert_equal( /a\+bc/, "a+bc".to_re )
-      assert_equal( /a+bc/, "a+bc".to_re(false) )
-    end
-
-    def test_to_proc
-      assert_nothing_raised { @add = '|x,y| x + y'.to_proc }
-      assert_equal(4, @add.call(2,2))
-      @t = 3
-      @multi = '|y| @t * y'.to_proc(self)
-      assert_equal(6, @multi.call(2))
-      x = 4
-      @div = '|y| x / y'.to_proc(binding)
-      assert_equal(2, @div.call(2))
-    end
-
-    #def test_to_a
-    #  arr = 'abc'
-    #  assert_equal( ['a','b','c'], arr.to_a )
-    #end
-
-  end
-
-
-  class TestSymbolConversion < Test::Unit::TestCase
-
-    TESTCONST = 1
-
-    def test_to_const
-      assert_equal( 1, :"TestSymbolConversion::TESTCONST".to_const )
-    end
-
-    def test_proc_01
-      assert_instance_of(Proc, up = :upcase.to_proc )
-      assert_equal( "HELLO", up.call("hello") )
-    end
-
-    def test_proc_02
-      q = [[1,2,3], [4,5,6], [7,8,9]].map(&:reverse)
-      a = [[3, 2, 1], [6, 5, 4], [9, 8, 7]]
-      assert_equal( a, q )
-    end
-
-    # Deprecated b/c of stringe issues.
-
-    #def test_to_str
-    #  assert_equal( "a", :a.to_str )
-    #  assert_equal( "abc", :abc.to_str )
-    #  assert_equal( '#$%', :'#$%'.to_str )
-    #end
-
-  end
-
-
-  require 'time'
-
-  class TestTimeConversion < Test::Unit::TestCase
-
-    def setup
-      @t = Time.parse('4/20/2005 15:37')
-    end
-
-    # FIXME Problem with Timezone on different systems.
-
-    #def test_stamp_01
-    #  assert_equal( "Wed Apr 20 15:37:00 PDT 2005", @t.stamp )
-    #end
+  unless (RUBY_VERSION[0,3] == '1.9')
 
-    def test_stamp_02
-      assert_equal( "April 20, 2005 15:37", @t.stamp(:long) )
-    end
+    # Convert a Time to a Date. Time is a superset of Date.
+    # It is the year, month and day that are carried over.
+    #
+    #   CREDIT: Trans
 
-    def test_stamp_03
-      assert_equal( "20 Apr 15:37", @t.stamp(:short) )
+    def to_date
+      require 'date'
+      ::Date.new(year, month, day)
     end
 
-    def test_to_date
-      assert_instance_of( ::Date, @t.to_date )
-    end
+    # To be able to keep Dates and Times interchangeable
+    # on conversions.
+    #
+    #   CREDIT: Trans
 
-    #def test_to_s
-    #  assert_equal( "Wed Apr 20 15:37:00 EDT 2005", @t.to_s )
-    #end
-
-    def test_to_time
-      assert_instance_of( ::Time, @t.to_time )
+    def to_time
+      self
     end
 
   end
 
-=end
+end