facets 3.1.0 → 3.2.0

data/test/core/kernel/test_meta_def.rb

@@ -1,15 +0,0 @@
-covers 'facets/kernel/meta_def'
-
-test_case Kernel do
-
-  method  :meta_def do
-
-    test do
-      x = Class.new
-      x.meta_def(:x){"x"}
-      x.x.assert == "x"
-    end
-
-  end
-
-end

data/test/core/kernel/test_meta_eval.rb

@@ -1,18 +0,0 @@
-covers 'facets/kernel/meta_eval'
-
-test_case Kernel do
-
-  method :meta_eval do
-
-    test do
-      o = Object.new
-      o.meta_eval do
-        @y = "y"
-      end
-      o.instance_variable_get("@y").refute == "y"
-      (class << o; self; end).instance_variable_get("@y").assert == "y"
-    end
-
-  end
-
-end

data/test/core/kernel/test_method.rb

@@ -1,20 +0,0 @@
-covers 'facets/kernel/method'
-
-test_case Kernel do
-
-  method :method! do
-
-    test do
-      c = Class.new do
-        def foo ; 'foo' ; end
-      end
-
-      ic = c.new
-      ic.method(:foo).__id__.refute == ic.method(:foo).__id__
-      ic.method!(:foo).__id__.assert == ic.method!(:foo).__id__
-    end
-
-  end
-
-end
-

data/test/core/kernel/test_not.rb

@@ -1,51 +0,0 @@
-covers 'facets/kernel/not'
-
-test_case Kernel do
-
-  method :not? do
-
-    test do
-      b = true
-      b.not?.assert == !b
-    end
-
-    test :not? do
-      b = false
-      b.not?.assert == !b
-    end
-
-    test :not? do
-      b = nil
-      b.not?.assert == !b
-    end
-
-    test :not? do
-      b = Object.new
-      b.not?.assert == !b
-    end
-
-  end
-
-  method :not do
-
-    test do
-      b = true
-      r = b.not.nil?
-      r.assert == true
-    end
-
-    test :not do
-      b = false
-      r = b.not.nil?
-      r.assert == true
-    end
-
-    test :not do
-      b = nil
-      r = b.not.nil?
-      r.assert == false
-    end
-
-  end
-
-end

data/test/core/kernel/test_not_nil.rb

@@ -1,25 +0,0 @@
-covers 'facets/kernel/not_nil'
-
-test_case Kernel do
-
-  method :not_nil? do
-
-    test do
-      5.assert.not_nil?
-    end
-
-    test do
-      :x.assert.not_nil?
-    end
-
-    test do
-      false.assert.not_nil?
-    end
-
-    test do
-      nil.refute.not_nil?
-    end
-
-  end
-
-end

data/test/core/kernel/test_object_class.rb

@@ -1,22 +0,0 @@
-covers 'facets/kernel/object_class'
-covers 'facets/kernel/__class__'
-
-test_case Kernel do
-
-  method :object_class do
-
-    test do
-      self.object_class.assert == self.class
-    end
-
-  end
-
-  method :__class__ do
-
-    test do
-      self.__class__.assert == self.class
-    end
-
-  end
-
-end

data/test/core/kernel/test_object_hexid.rb

@@ -1,20 +0,0 @@
-covers 'facets/kernel/object_hexid'
-
-test_case Kernel do
-
-  method :object_hexid do
-
-    omit "too inconsitent across platforms" do
-
-      test do
-        o = Object.new
-        "#<Object:#{o.object_hexid}>".assert == o.inspect
-        #assert(o.inspect.index(o.object_hexid))
-      end
-
-    end
-
-  end
-
-end
-

data/test/core/kernel/test_object_send.rb

@@ -1,25 +0,0 @@
-covers 'facets/kernel/object_send'
-
-test_case Kernel do
-
-  method :object_send do
-
-    test "same as #public_send of Ruby 1.9+" do
-      c = Class.new do
-        def x; "x"; end
-        private
-        def y; "y"; end
-      end
-
-      o = c.new
-
-      o.object_send(:x).assert == "x"
-
-      expect NoMethodError do
-        o.object_send(:y)
-      end
-    end
-
-  end
-
-end

data/test/core/kernel/test_presence.rb

@@ -1,37 +0,0 @@
-covers 'facets/kernel/presence'
-
-test_case Kernel do
-
-  method :presence do
-
-    test do
-      "a".presence.assert == "a"
-      [1].presence.assert == [1]
-      {:a=>1}.presence.assert == {:a=>1}
-    end
-
-    test do
-      "".presence.assert == nil
-      [].presence.assert == nil
-      {}.presence.assert == nil
-    end
-
-  end
-
-  method :present? do
-
-    test "non-empty objects are present" do
-      "a".assert.present?
-      [1].assert.present?
-      {:a=>1}.assert.present?
-    end
-
-    test "empty object are not present" do
-      "".refute.present?
-      [].refute.present?
-      {}.refute.present?
-    end
-
-  end
-
-end

data/test/core/kernel/test_qua_class.rb

@@ -1,25 +0,0 @@
-covers 'facets/kernel/qua_class'
-
-test_case Kernel do
-
-  method :qua_class do
-
-    test do
-      o = Object.new
-      s = (class << o; self; end)
-      o.qua_class.assert == s
-    end
-
-  end
-
-  method :quaclass do
-
-    test do
-      o = Object.new
-      s = (class << o; self; end)
-      o.quaclass.assert == s
-    end
-
-  end
-
-end

data/test/core/kernel/test_require_all.rb

@@ -1,11 +0,0 @@
-covers 'facets/kernel/require_all'
-
-test_case Kernel do
-
-  method :require_all do
-  end
-
-  method :load_all do
-  end
-
-end

data/test/core/kernel/test_respond.rb

@@ -1,38 +0,0 @@
-covers 'facets/kernel/respond'
-
-test_case Kernel do
-
-  method :respond do
-
-    test do
-      c = Class.new do
-        def f; "f"; end
-      end
-    
-      x = c.new
-      x.respond(:f).assert == "f"
-      x.respond(:g).assert == nil
-
-      x.respond.f.assert == "f"
-      x.respond.g.assert == nil
-    end
-
-  end
-
-  #
-  #method :respond_with_value do
-  #  test do
-  #    c = Class.new do
-  #      def f; "f"; end
-  #    end
-  #
-  #    x = c.new
-  #    x.respond_with_value(:f).assert == "f"
-  #    x.respond_with_value(:g).assert == nil
-  #
-  #    x.respond_with_value.f.assert == "f"
-  #    x.respond_with_value.g.assert == nil
-  #  end
-  #end
-
-end

data/test/core/kernel/test_returning.rb

@@ -1,17 +0,0 @@
-covers 'facets/kernel/returning'
-
-test_case Kernel do
-
-  method :returning do
-
-    test do
-      foo = returning( values = [] ) do
-        values << 'bar'
-        values << 'baz'
-      end
-      foo.assert == ['bar', 'baz']
-    end
-
-  end
-
-end

data/test/core/kernel/test_silence.rb

@@ -1,24 +0,0 @@
-covers 'facets/kernel/silence'
-
-test_case Kernel do
-
-  # TODO: figure out how to test silence methods
-
-  concern "Not straight foward to test since they effect output."
-
-  method :silence do
-  end
-
-  method :silence_stream do
-  end
-
-  method :silence_stderr do
-  end
-
-  method :silence_stdout do
-  end
-
-  method :silently do
-  end
-
-end

data/test/core/kernel/test_singleton_class.rb

@@ -1,15 +0,0 @@
-covers 'facets/kernel/singleton_class'
-
-test_case Kernel do
-
-  method :singleton_class do
-
-    test do
-      x = Class.new
-      m = (class << x; self; end)
-      x.singleton_class.assert == m
-    end
-
-  end
-
-end

data/test/core/kernel/test_super_method.rb

@@ -1,23 +0,0 @@
-covers 'facets/kernel/super_method'
-
-test_case Kernel do
-
-  method :super_method do
-
-    setup "class heirarchy" do
-      @x = Class.new{ def x ; 1 ; end }
-      @y = Class.new(@x){ def x ; 2 ; end }
-      @z = Class.new(@y){ def x ; 3 ; end }
-    end
-
-    test do
-      x = @x.new
-      z = @z.new
-      s0 = x.method(:x)
-      s1 = z.super_method(@x, :x)
-      s1.call.assert == s0.call
-    end
-
-  end
-
-end

data/test/core/kernel/test_tap.rb

@@ -1,38 +0,0 @@
-covers 'facets/kernel/tap'
-
-test_case Kernel do
-
-  method :tap do
-
-    test do
-      e = "foo"
-      r = "foobar".tap{ |x| x.gsub!(/bar/, '') }
-      r.assert == e
-    end
-
-    test "check internal value" do
-      x = [1,2,3]
-      x.tap{ |a|
-        a.assert == x
-      }
-    end
-
-    test "assign via tap block" do
-      bob = Struct.new(:name, :address, :zip).new
-
-      x = lambda do |s|
-        s.name    = "Bob Sawyer"
-        s.address = "123 Maple, Anytown NC"
-        s.zip     = "12345" 
-      end
-
-      bob.tap(&x)
-
-      bob.name.assert == "Bob Sawyer"
-      bob.address.assert == "123 Maple, Anytown NC"
-      bob.zip.assert == "12345"
-    end
-
-  end
-
-end

data/test/core/kernel/test_temporarily.rb

@@ -1,25 +0,0 @@
-covers 'facets/kernel/temporarily'
-
-test_case Kernel do
-
-  method :temporarily do
-
-    test "global variable" do
-      $temporary_variable = true
-      temporarily('$temporary_variable'=>false) do
-        $temporary_variable.assert == false
-      end
-      $temporary_variable.assert == true
-    end
-
-    test "instance variable" do
-      @x = 1
-      temporarily('@x'=>2) do
-        @x.assert == 2
-      end
-      @x.assert == 1
-    end
-
-  end
-
-end

data/test/core/kernel/test_true.rb

@@ -1,31 +0,0 @@
-covers 'facets/kernel/true'
-
-test_case Kernel do
-
-  method :true? do
-
-    test "nothing is true? but true itself" do
-      true.assert.true?
-
-      nil.refute.true?
-      false.refute.true?
-      1.refute.true?
-      :a.refute.true?
-    end
-
-  end
-
-  method :false? do
-
-    test "nothing is false? but false itself" do
-      false.assert.false?
-
-      nil.refute.false?
-      true.refute.false?
-      1.refute.false?
-      :a.refute.false?
-    end
-
-  end
-
-end

data/test/core/kernel/test_try.rb

@@ -1,35 +0,0 @@
-covers 'facets/kernel/try'
-
-test_case Kernel do
-
-  method :try do
-
-    test do
-      example = Struct.new(:name).new("bob")
-      example.try(:name).assert == "bob"
-    end
-
-    test "without argument" do
-      example = Struct.new(:name).new("bob")
-      example.try.name.assert == "bob"
-    end
-
-  end
-
-end
-
-test_case NilClass do
-
-  method :try do
-
-    test do
-      nil.try(:name).assert == nil
-    end
-
-    test "without argument" do
-      nil.try.name.assert == nil
-    end
-
-  end
-
-end

data/test/core/kernel/test_val.rb

@@ -1,30 +0,0 @@
-covers 'facets/kernel/val'
-
-test_case Kernel do
-
-  method :val? do
-
-    test "of nil" do
-      f = nil
-      t = 1
-      f.refute.val?
-      t.assert.val?
-    end
-
-    test "of empty array" do
-      f = []
-      t = [1]
-      f.refute.val?
-      t.assert.val?
-    end
-
-    test "of empty string" do
-      f = ''
-      t = '1'
-      f.refute.val?
-      t.assert.val? 
-    end
-
-  end
-
-end

data/test/core/kernel/test_with.rb

@@ -1,18 +0,0 @@
-covers 'facets/kernel/with'
-
-test_case Kernel do
-
-  method :with do
-
-    test do
-      with values = [] do
-        self << 'bar'
-        self << 'baz'
-      end
-      values.assert == ['bar', 'baz']
-    end
-
-  end
-
-end
-

data/test/core/kernel/test_writers.rb

@@ -1,53 +0,0 @@
-covers 'facets/kernel/writers'
-
-test_case Kernel do
-
-  method :writers do
-
-    test do
-      c = Class.new do
-        attr_accessor :a
-        def b=(b); @b=b; end
-      end
-      o = c.new
-      w = o.writers
-
-      w.assert.include?(:a=)
-      w.assert.include?(:b=)
-    end
-
-    test do
-      c = Class.new do
-        attr_accessor :a
-        def b=(b); @b=b; end
-        private
-        def q=(q); @q=q; end
-      end
-      o = c.new
-      w = o.writers(:access=>:private)
-
-      w.refute.include?(:a=)
-      w.refute.include?(:b=)
-      w.assert.include?(:q=)
-    end
-
-    test do
-      c = Class.new do
-        attr_accessor :a
-        def b=(b); @b=b; end
-        private
-        def q=(q); @q=q; end
-      end
-      o = c.new
-      w = o.writers(:access=>:all)
-
-      w.assert.include?(:a=)
-      w.assert.include?(:b=)
-      w.assert.include?(:q=)
-    end
-
-    # TODO: Need to test more options for writers.
-
-  end
-
-end

data/test/core/matchdata/test_match.rb

@@ -1,14 +0,0 @@
-covers 'facets/matchdata/match'
-
-test_case MatchData do
-
-  method :match do
-
-    test do
-      md = /X(a)(b)(c)X/.match("YXabcXY")
-      md.match.assert == "XabcX"
-    end
-
-  end
-
-end

data/test/core/matchdata/test_matchset.rb

@@ -1,29 +0,0 @@
-covers 'facets/matchdata/matchset'
-
-test_case MatchData do
-
-  method :matchtree do
-
-    test do
-      md = /(bb)(cc(dd))(ee)/.match "XXaabbccddeeffXX"
-      md.matchtree.assert == [["bb"], ["cc", ["dd"]], ["ee"]]
-    end
-
-    test do
-      md = /(bb)c(c(dd))(ee)/.match "XXaabbccddeeffXX"
-      md.matchtree.assert == [["bb"], "c", ["c", ["dd"]], ["ee"]]
-    end
-
-  end
-
-  method :matchset do
-
-    test do
-      md = /(bb)(cc(dd))(ee)/.match "XXaabbccddeeffXX"
-      md.matchset.assert == ["XXaa", [["bb"], ["cc", ["dd"]], ["ee"]], "ffXX"]
-    end
-
-  end
-
-end
-