fuby 0.0.2 → 0.0.3

data/lib/fuby/suffix_of.rb

@@ -5,13 +5,9 @@ module Fuby
       eql? that.drop -length
     end
 
-    def matches_suffix_of? that
-      matches? that.drop - length
-    end
-
-    method_added_as_binary_operator :suffix_of?, :matches_suffix_of?
+    method_added_as_binary_operator :suffix_of?
 
   end
 end
 
-Dir.glob "*_suffix_of.rb", &method(:require)
+Dir.glob "*_#{ __FILE__.chomp ".rb" }.rb", &method(:require)

data/lib/fuby/take_until.rb

@@ -1,3 +1,8 @@
+require_relative 'method_added_as_filter'
+require_relative 'not'
+
+using Fuby
+
 module Fuby
   refine ::Array do
 

data/lib/fuby/take_while.rb

@@ -1,6 +1,14 @@
+require_relative 'method_added_as_filter'
+
+using Fuby
+
 module Fuby
   refine ::Array do
 
+    def take_while
+      super
+    end
+
     def take_while! &blk
       pop length - index(&blk)
       self

data/lib/fuby/to_camel_case.rb

@@ -12,7 +12,7 @@ module Fuby
     end
 
     def to_CamelCase
-      to_components.map! { |str| str.sub /[A-z0-9]/, &:upcase }.join
+      to_components.map { |str| str.sub /[A-z0-9]/, &:upcase }.join
     end
 
   end

data/lib/fuby/to_dot_case.rb

@@ -0,0 +1,26 @@
+require_relative 'to_components'
+
+module Fuby
+  refine ::String do
+
+    def to_DOT_CASE
+      to_components.join('.').upcase
+    end
+
+    def to_dot_case
+      to_components.join('.').downcase
+    end
+
+  end
+  refine ::Symbol do
+
+    def to_DOT_CASE
+      @to_DOT_CASE ||= to_s.to_DOT_CASE.to_sym
+    end
+
+    def to_dot_case
+      @to_dot_case ||= to_s.to_dot_case.to_sym
+    end
+
+  end
+end

data/lib/fuby/to_hash.rb

@@ -1,25 +1,19 @@
-require_relative 'descendants'
+require_relative 'enumerables'
 require_relative 'each_with_index_or_key'
 
 using Fuby
 
 module Fuby
-  module ::Enumerable # can't refine a Module
+  Enumerables.each do |enumerable|
+    next if Hash >= enumerable
+    refine enumerable do
 
-    def to_hash
-      {}.tap { |hash| each_with_index_or_key { |val, key| hash[key] = val } }
-    end
-
-    alias_method :to_h, :to_hash
+      def to_hash
+        {}.tap { |hash| each_with_index_or_key { |val, key| hash[key] = val } }
+      end
 
-  end
-  refine ::Hash do
+      alias_method :to_h, :to_hash
 
-    def to_hash
-      dup
     end
-
-    alias_method :to_h, :to_hash
-
   end
 end

data/lib/fuby/to_slash_case.rb

@@ -0,0 +1,26 @@
+require_relative 'to_components'
+
+module Fuby
+  refine ::String do
+
+    def to_SLASH_CASE
+      to_components.join('/').upcase
+    end
+
+    def to_slash_case
+      to_components.join('/').downcase
+    end
+
+  end
+  refine ::Symbol do
+
+    def to_SLASH_CASE
+      @to_SLASH_CASE ||= to_s.to_SLASH_CASE.to_sym
+    end
+
+    def to_slash_case
+      @to_slash_case ||= to_s.to_slash_case.to_sym
+    end
+
+  end
+end

data/lib/fuby/tok.rb

@@ -1,2 +1 @@
 Dir.glob "#{ __FILE__.chomp ".rb" }_*.rb", &method(:require)
-

data/lib/fuby/try_each.rb

@@ -1,4 +1,5 @@
 require_relative 'try'
+
 using Fuby
 
 module Fuby

data/lib/fuby/try_eval.rb

@@ -1,4 +1,5 @@
 require_relative 'try'
+
 using Fuby
 
 module Fuby

data/lib/fuby/unshift_options.rb

@@ -1,4 +1,5 @@
 require_relative 'shift_options'
+
 using Fuby
 
 module Fuby

data/lib/fuby/western_name.rb

@@ -0,0 +1,11 @@
+require_relative 'names'
+
+module Fuby
+  refine ::Module do
+
+    def western_name
+      names.reverse.join ' '
+    end
+
+  end
+end

data/test/fuby/alias_method.rb

@@ -3,7 +3,7 @@ require 'fuby/alias_method'
 using Fuby
 
 describe Module do
-  describe "alias_method! existing_method_name" do
+  describe "alias_method existing_method_name" do
     it "creates and returns a new symbol that aliases the existing_method_name" do
 
       class A
@@ -15,7 +15,7 @@ describe Module do
         eval %{
 
           def foo
-            #{ alias_method! :foo } * 10
+            #{ alias_method :foo } * 10
           end
 
         }

data/test/fuby/ancestors.rb

@@ -0,0 +1,41 @@
+require 'fuby/ancestors'
+
+using Fuby
+
+describe Class do
+  describe "ancestors" do
+    it "returns the same result as `super`" do
+
+      module_A = Module.new
+      class_A = Class.new do include module_A end
+
+      module_B = Module.new
+      class_B = Class.new class_A do include module_B end
+
+      module_C = Module.new
+      class_C = Class.new class_B do include module_C end
+
+      class_C.ancestors.take(6).must_equal [class_C, module_C, class_B, module_B, class_A, module_A]
+
+    end
+  end
+  describe "ancestors Type" do
+    it "returns all ancestors of type Type" do
+
+      module_A = Module.new
+      class_A = Class.new do include module_A end
+
+      module_B = Module.new
+      class_B = Class.new class_A do include module_B end
+
+      module_C = Module.new
+      class_C = Class.new class_B do include module_C end
+
+      class_C.ancestors(Class).take(3).must_equal [class_C, class_B, class_A]
+
+    end
+  end
+end
+
+Dir.glob "#{ __FILE__.chomp ".rb" }_*.rb", &method(:require)
+Dir.glob "*_#{ __FILE__.chomp ".rb" }.rb", &method(:require)

data/test/fuby/cardinality.rb

@@ -0,0 +1,34 @@
+require 'fuby/cardinality'
+
+using Fuby
+
+describe Object do
+  describe "cardinality" do
+    it "returns 1 by default" do
+
+      Object.new.cardinality.must_equal 1
+
+    end
+  end
+end
+describe NilClass do
+  describe "cardinality" do
+    it "returns 0" do
+
+      nil.cardinality.must_equal 0
+
+    end
+  end
+end
+describe Enumerable do
+  describe "cardinality" do
+    it "returns the size of `self`" do
+
+      {}.cardinality.must_equal 0
+      { a:1 }.cardinality.must_equal 1
+      [].cardinality.must_equal 0
+      [1, 2, 3].cardinality.must_equal 3
+
+    end
+  end
+end

data/test/fuby/curry_eval.rb

@@ -0,0 +1,3 @@
+require 'fuby/curry_eval'
+
+using Fuby

data/test/fuby/deep.rb

@@ -0,0 +1 @@
+Dir.glob "#{ __FILE__.chomp ".rb" }_*.rb", &method(:require)

data/test/fuby/deep_each.rb

@@ -0,0 +1,22 @@
+require 'fuby/deep_each'
+
+using Fuby
+
+describe Array do
+  describe "deep_each" do
+    it "returns an enumerator that yields all leaf elements of `self`" do
+
+      [[1, 2], [3, [4, 5]]].deep_each.to_a.must_equal [[1, 0, 0], [2, 1, 0], [3, 0, 1], [4, 0, 1, 1], [5, 1, 1, 1]]
+
+    end
+  end
+  describe "deep_each &block" do
+    it "traverses `self` and all nested instances of `self.class` with the given block" do
+
+      result = []
+      [[1, 2], [3, [4, 5]]].deep_each { |e, *path| result << e }
+      result.must_equal [1, 2, 3, 4, 5]
+
+    end
+  end
+end

data/test/fuby/define.rb

@@ -0,0 +1 @@
+Dir.glob "#{ __FILE__.chomp ".rb" }_*.rb", &method(:require)

data/test/fuby/define_tok.rb

@@ -0,0 +1,3 @@
+require 'fuby/to_tok'
+
+using Fuby

data/test/fuby/descendants.rb

@@ -0,0 +1,56 @@
+require 'fuby/descendants'
+require 'fuby/send'
+
+using Fuby
+
+describe Class do
+  describe "descendants" do
+    it "returns all descendants of `self`" do
+
+      class_A = Class.new
+      class_B = Class.new class_A
+      class_C = Class.new class_B
+      class_D = Class.new class_C
+
+      class_A.descendants.must_include class_B
+      class_A.descendants.must_include class_C
+      class_A.descendants.must_include class_D
+
+    end
+  end
+end
+describe Module do
+  describe "descendants" do
+    it "returns all descendants of `self`" do
+
+      module_A = Module.new
+      module_B = Module.new.send.include module_A
+      module_C = Module.new.send.include module_B
+      module_D = Module.new.send.include module_C
+
+      module_A.descendants.must_include module_B
+      module_A.descendants.must_include module_C
+      module_A.descendants.must_include module_D
+
+    end
+  end
+  describe "descendants Type" do
+    it "returns all descendants of `self` with type Type" do
+
+      # module AA; end
+      # class A; include AA; end
+
+      # module BB; end
+      # class B < A; include BB; end
+
+      # module CC; end
+      # class C < B: include CC; end
+
+      # C.descendants(Class).take(3).must_equal [C, B, A]
+
+    end
+  end
+end
+
+Dir.glob "#{ __FILE__.chomp ".rb" }_*.rb", &method(:require)
+Dir.glob "*_#{ __FILE__.chomp ".rb" }.rb", &method(:require)

data/test/fuby/drop_until.rb

@@ -1,26 +1,26 @@
-# require 'fuby/drop_until'
+require 'fuby/drop_until'
 
-# using Fuby
+using Fuby
 
-# describe Array do
-#   describe "drop_until predicate = Proc.new" do
-#     it "returns a new array dropping the initial elements that don't match the given predicate" do
+describe Array do
+  describe "drop_until predicate = Proc.new" do
+    it "returns a new array dropping the initial elements that don't match the given predicate" do
 
-#       xs = [1, 2, 3, :four]
+      xs = [1, 2, 3, :four]
 
-#       xs.drop_until { false }.must_equal []
-#       xs.drop_until(Symbol).must_equal [:four]
+      xs.drop_until { false }.must_equal []
+      xs.drop_until(Symbol).must_equal [:four]
 
-#     end
-#   end
-#   describe "drop_until! predicate = Proc.new" do
-#     it "dropping the initial elements that don't match the given predicate, returning self" do
+    end
+  end
+  describe "drop_until! predicate = Proc.new" do
+    it "dropping the initial elements that don't match the given predicate, returning self" do
 
-#       xs = [1, 2, 3, :four]
+      xs = [1, 2, 3, :four]
 
-#       xs.drop_until!(Symbol).must_equal xs
-#       xs.must_equal [:four]
+      xs.drop_until!(Symbol).must_equal xs
+      xs.must_equal [:four]
 
-#     end
-#   end
-# end
+    end
+  end
+end

data/test/fuby/drop_while.rb

@@ -1,26 +1,26 @@
-# require 'fuby/drop_while'
+require 'fuby/drop_while'
 
-# using Fuby
+using Fuby
 
-# describe Array do
-#   describe "drop_while predicate = Proc.new" do
-#     it "returns a new array dropping the initial elements matching the given predicate" do
+describe Array do
+  describe "drop_while predicate = Proc.new" do
+    it "returns a new array dropping the initial elements matching the given predicate" do
 
-#       xs = [1, 2, 3, :four]
+      xs = [1, 2, 3, :four]
 
-#       xs.drop_while { true }.must_equal []
-#       xs.drop_while(Integer).must_equal [:four]
+      xs.drop_while { true }.must_equal []
+      xs.drop_while(Integer).must_equal [:four]
 
-#     end
-#   end
-#   describe "drop_while! predicate = Proc.new" do
-#     it "dropping the initial elements matching the given predicate, returning self" do
+    end
+  end
+  describe "drop_while! predicate = Proc.new" do
+    it "dropping the initial elements matching the given predicate, returning self" do
 
-#       xs = [1, 2, 3, :four]
+      xs = [1, 2, 3, :four]
 
-#       xs.drop_while!(Integer).must_equal xs
-#       xs.must_equal [:four]
+      xs.drop_while!(Integer).must_equal xs
+      xs.must_equal [:four]
 
-#     end
-#   end
-# end
+    end
+  end
+end