facets 1.0.2 → 1.0.3

data/packages/core/test/lib/facet/class/test_descendents.rb

@@ -0,0 +1,30 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/class/descendents.rb
+#
+# Extracted Wed Jan 25 11:25:39 EST 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/class/descendents.rb'
+
+
+  require 'test/unit'
+
+  class TCClass < Test::Unit::TestCase
+
+    class A ; end
+    class B < A ; end
+    class C < B ; end
+
+    def test_descendents
+      assert_equal( [C,B], A.descendents )
+    end
+
+  end
+
+

data/packages/core/test/lib/facet/class/test_remove_descendents.rb

@@ -0,0 +1,32 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/class/remove_descendents.rb
+#
+# Extracted Wed Jan 25 11:25:39 EST 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/class/remove_descendents.rb'
+
+
+  require 'test/unit'
+
+  class TCClass < Test::Unit::TestCase
+
+    class A ; end
+    class B < A ; end
+    class C < B ; 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
+
+

data/packages/core/test/lib/facet/comparable/test_at_least.rb

@@ -0,0 +1,34 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/comparable/at_least.rb
+#
+# Extracted Wed Jan 25 11:25:39 EST 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/comparable/at_least.rb'
+
+
+  require 'test/unit'
+
+  class TCComparable < 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
+
+  end
+
+

data/packages/core/test/lib/facet/comparable/test_clip.rb

@@ -0,0 +1,44 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/comparable/clip.rb
+#
+# Extracted Wed Jan 25 11:25:39 EST 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/comparable/clip.rb'
+
+
+  require 'test/unit'
+
+  class TCComparable < Test::Unit::TestCase
+
+    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
+
+

data/packages/core/test/lib/facet/comparable/test_cmp.rb

@@ -0,0 +1,28 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/comparable/cmp.rb
+#
+# Extracted Wed Jan 25 11:25:39 EST 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/comparable/cmp.rb'
+
+
+  require 'test/unit'
+
+  class TCComparable < 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
+
+

data/packages/core/test/lib/facet/continuation/self/test_create.rb

@@ -0,0 +1,26 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/continuation/self/create.rb
+#
+# Extracted Wed Jan 25 11:25:39 EST 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/continuation/self/create.rb'
+
+
+  require 'test/unit'
+
+  class TCContinuation < Test::Unit::TestCase
+
+    def test_Continuation_create
+      assert_nothing_raised { c, r = Continuation.create }
+    end
+
+  end
+
+

data/packages/core/test/lib/facet/date/test_days_in_month.rb

@@ -0,0 +1,30 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/date/days_in_month.rb
+#
+# Extracted Wed Jan 25 11:25:39 EST 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/date/days_in_month.rb'
+
+
+  require 'test/unit'
+
+  class TCDate < Test::Unit::TestCase
+
+    def setup
+      @d = Date.civil( 2005, 04, 20 )
+    end
+
+    def test_days_in_month
+      assert_equal( 31, Date.new(2004,1,1).days_in_month )
+    end
+
+  end
+
+

data/packages/core/test/lib/facet/date/test_days_of_month.rb

@@ -0,0 +1,30 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/date/days_of_month.rb
+#
+# Extracted Wed Jan 25 11:25:39 EST 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/date/days_of_month.rb'
+
+
+  require 'test/unit'
+
+  class TCDate < Test::Unit::TestCase
+
+    def setup
+      @d = Date.civil( 2005, 04, 20 )
+    end
+
+    def test_days_of_month
+      assert_equal( (1..@d.days_in_month).to_a, @d.days_of_month )
+    end
+
+  end
+
+

data/packages/core/test/lib/facet/date/test_stamp.rb

@@ -0,0 +1,38 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/date/stamp.rb
+#
+# Extracted Wed Jan 25 11:25:39 EST 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/date/stamp.rb'
+
+
+  require 'test/unit'
+
+  class TCDate < Test::Unit::TestCase
+
+    def setup
+      @d = Date.civil( 2005, 04, 20 )
+    end
+
+    def test_stamp_1
+      assert_equal( "2005-04-20", @d.stamp )
+    end
+
+    def test_stamp_2
+      assert_equal( "20 Apr", @d.stamp(:short) )
+    end
+
+    def test_stamp_3
+      assert_equal( "April 20, 2005", @d.stamp(:long) )
+    end
+
+  end
+
+

data/packages/core/test/lib/facet/date/test_to_date.rb

@@ -0,0 +1,30 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/date/to_date.rb
+#
+# Extracted Wed Jan 25 11:25:39 EST 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/date/to_date.rb'
+
+
+  require 'test/unit'
+
+  class TCDate < Test::Unit::TestCase
+
+    def setup
+      @d = Date.civil( 2005, 04, 20 )
+    end
+
+    def test_to_date
+      assert_instance_of( ::Date, @d.to_date )
+    end
+
+  end
+
+

data/packages/core/test/lib/facet/date/test_to_s.rb

@@ -0,0 +1,30 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/date/to_s.rb
+#
+# Extracted Wed Jan 25 11:25:39 EST 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/date/to_s.rb'
+
+
+  require 'test/unit'
+
+  class TCDate < Test::Unit::TestCase
+
+    def setup
+      @d = Date.civil( 2005, 04, 20 )
+    end
+
+    def test_to_s
+      assert_equal( "2005-04-20", @d.to_s )
+    end
+
+  end
+
+

data/packages/core/test/lib/facet/date/test_to_time.rb

@@ -0,0 +1,30 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/date/to_time.rb
+#
+# Extracted Wed Jan 25 11:25:39 EST 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/date/to_time.rb'
+
+
+  require 'test/unit'
+
+  class TCDate < Test::Unit::TestCase
+
+    def setup
+      @d = Date.civil( 2005, 04, 20 )
+    end
+
+    def test_to_time
+      assert_instance_of( ::Time, @d.to_time )
+    end
+
+  end
+
+

data/packages/core/test/lib/facet/dir/self/test_ancestor.rb

@@ -0,0 +1,26 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/dir/self/ancestor.rb
+#
+# Extracted Wed Jan 25 11:25:39 EST 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/dir/self/ancestor.rb'
+
+
+  require 'test/unit'
+
+  class TCDir < Test::Unit::TestCase
+
+    def test_ancestor
+      assert( Dir.ancestor?( "a/b/c", "a/b/c/d" ) )
+    end
+
+  end
+
+

data/packages/core/test/lib/facet/dir/self/test_ascend.rb

@@ -0,0 +1,41 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facet/dir/self/ascend.rb
+#
+# Extracted Wed Jan 25 11:25:39 EST 2006
+# Unit Tools Reap Test Extractor
+#
+
+require 'facet/dir/self/ascend.rb'
+
+
+  require 'test/unit'
+
+  class TCDir < Test::Unit::TestCase
+
+    def test_ascend_1
+      c = []
+      Dir.ascend( "this/path/up" ) do |path|
+        c << path
+      end
+      assert_equal( 'this/path/up', c[0] )
+      assert_equal( 'this/path', c[1] )
+      assert_equal( 'this', c[2] )
+    end
+
+    def test_ascend_2
+      c = []
+      Dir.ascend( "this/path/up", false ) do |path|
+        c << path
+      end
+      assert_equal( 'this/path', c[0] )
+      assert_equal( 'this', c[1] )
+    end
+
+  end
+
+