zucker 13.1 → 100.0.0

data/lib/zucker/marshal_copy.rb

@@ -0,0 +1,11 @@
+require 'zucker'
+
+module Zucker
+  module MarshalCopy
+    refine Object do
+      def marshal_copy
+        Marshal.load Marshal.dump self
+      end
+    end
+  end
+end

data/lib/zucker/mash.rb

@@ -0,0 +1,22 @@
+require 'zucker'
+
+module Zucker
+  module Mash
+    refine Enumerator do
+      def mash
+        ret = {}
+        each{ |kv| ret.store( *(yield(kv)[0,2]) ) }
+        ret
+      end
+    end
+
+    refine Array do
+      def mash
+        ret = {}
+        each{ |kv| ret.store( *(yield(kv)[0,2]) ) }
+        ret
+      end
+    end
+  end
+end
+

data/lib/zucker/ords.rb

@@ -0,0 +1,17 @@
+require 'zucker'
+
+module Zucker
+  module Ords
+    refine Array do
+      def chrs
+        self.pack 'C*'
+      end
+    end
+
+    refine String do
+      def ords
+        self.unpack 'C*'
+      end
+    end
+  end
+end

data/lib/zucker/regexp_union.rb

@@ -0,0 +1,17 @@
+require 'zucker'
+
+module Zucker
+  module RegexpUnion
+    refine Regexp do
+      def |(arg)
+        Regexp.union self, arg.is_a?(Regexp) ? arg : arg.to_s
+      end
+    end
+
+    refine String do
+      def |(arg)
+        Regexp.union self, arg.is_a?(Regexp) ? arg : arg.to_s
+      end
+    end
+  end
+end

data/lib/zucker/square_brackets_for.rb

@@ -1,22 +1,19 @@
 require 'zucker'
-module Zucker SquareBracketsFor = true end
 
-class Module
-  def square_brackets_for(ivar, assignment = true)
-    #  undef []   if respond_to? :[]
-    #  undef []=  if respond_to? :[]=
+module Zucker
+  module SquareBracketsFor
+    refine Object do
+      def square_brackets_for(ivar, assignment = true)
+        define_method :[] do |key|
+          (instance_variable_get :"@#{ivar}")[key]
+        end
 
-    define_method :[] do |key|
-      (instance_variable_get :"@#{ivar}")[key]
-    end
-
-    if assignment
-      define_method :[]= do |key, value|
-        (instance_variable_get :"@#{ivar}")[key] = value
+        if assignment
+          define_method :[]= do |key, value|
+            (instance_variable_get :"@#{ivar}")[key] = value
+          end
+        end
       end
     end
   end
 end
-
-# J-_-L
-

data/lib/zucker/string_extras.rb

@@ -0,0 +1,15 @@
+require 'zucker'
+
+module Zucker
+  module StringExtras
+    refine String do
+      def lchomp(arg = $/)
+        reverse.chomp(arg).reverse
+      end
+
+      def lchomp!(arg = $/)
+        replace reverse.chomp(arg).reverse
+      end
+    end
+  end
+end

data/lib/zucker/string_op.rb

@@ -0,0 +1,20 @@
+require 'zucker'
+
+module Zucker
+  module StringOp
+    refine String do
+      def -(rem)
+        gsub( Regexp === rem ? rem : rem.to_s, '' )
+      end
+
+      def ^(pos)
+        pos = pos.to_i
+        if pos >= 0
+          self[pos..-1]
+        else
+          self[0...pos]
+        end
+      end
+    end
+  end
+end

data/lib/zucker/tap.rb

@@ -1,12 +1,17 @@
 require 'zucker'
-module Zucker Tap = true end
 
-def tap_on(obj, &block)
-  obj.tap(&block)
-end
+module Zucker
+  module Tap
+    refine Object do
+      private
 
-def make_new(what, *args, &block)
-  what.new(*args).tap(&block)
-end
+      def tap_on(obj, &block)
+        obj.tap(&block)
+      end
 
-# J-_-L
+      def make_new(what, *args, &block)
+        what.new(*args).tap(&block)
+      end
+    end
+  end
+end

data/lib/zucker/unary_conversion.rb

@@ -0,0 +1,25 @@
+require 'zucker'
+
+module Zucker
+  module UnaryConversion
+    refine String do
+      def +@
+        self
+      end
+
+      def -@
+        to_sym
+      end
+    end
+
+    refine Symbol do
+      def +@
+        to_s
+      end
+
+      def -@
+        self
+      end
+    end
+  end
+end

data/spec/alias_for_spec.rb

@@ -1,18 +1,8 @@
 require 'zucker/alias_for'
+using Zucker::AliasFor
 
-describe 'alias_for' do
-  it 'should create an alias for global methods' do
-    # rspec bug? 
-    # def m1
-    #   1
-    # end
-    # alias_for :m1, :a1
-    #
-    # proc do
-    #   a1.should == 1
-    # end.should_not raise_exception
-  end
 
+describe 'alias_for' do
   it 'should create an alias for instance methods' do
     class Array
       def m2
@@ -36,9 +26,9 @@ describe 'alias_for' do
       end
     end
 
-    proc do
+    proc{
       Array.a3.should == 3
-    end.should_not raise_exception
+    }.should_not raise_exception
   end
 
 
@@ -47,71 +37,19 @@ describe 'alias_for' do
       def m4
         4
       end
-    alias_for :m4, :ma, :mb, :mc
+      alias_for :m4, :ma, :mb, :mc
     end
-    proc do
+
+    proc{
       1.ma.should   == 4
       "1".mb.should == 4
       [1].mc.should == 4
-    end.should_not raise_exception
-  end
-end
-
-# alias_method
-module Blip
-  def blip
-    'blip'
-  end
-  alias_methods_for :blip, :blap, :blup
-  
-  class << self
-    def self_blip
-      'blip'
-    end
-    alias_methods_for :self_blip, :self_blap, :self_blup
-  end
-end
-
-class Hello
-  include Blip
-  
-  def hello
-    'hello'
-  end
-  alias_methods_for :hello, :hi, :howdy
-  
-  class << self
-    def self_hello
-      'hello'
-    end
-    alias_methods_for :self_hello, :self_hi, :self_howdy
-  end
-end
-
-describe 'alias_methods_for' do
-  let(:h) { Hello.new }
-
-  context "module context" do
-    it "should alias instance methods" do
-      h.blap.should == h.blip
-      h.blup.should == h.blip
-    end
-
-    it "should alias class methods" do
-      Blip.self_blap.should == Blip.self_blip
-      Blip.self_blup.should == Blip.self_blip
-    end
+    }.should_not raise_exception
   end
 
-  context "class context" do
-    it "should alias instance methods" do
-      h.hi.should == h.hello
-      h.howdy.should == h.hello
-    end
-
-    it "should alias class methods" do
-      Hello.self_hi.should == Hello.self_hello
-      Hello.self_howdy.should == Hello.self_hello
+  it 'works with uncommon chars' do
+    class Object
+      alias_for :tainted?, :"tain-ted?"
     end
   end
 end

data/spec/array_op_spec.rb

@@ -0,0 +1,17 @@
+require 'zucker/array_op'
+using Zucker::ArrayOp
+
+
+describe 'Array#^' do
+  it 'does an exclusive or' do
+    a = [1,2,3,4]
+    b = [3,4,5,6]
+    (a^b).should == [1,2,5,6]
+  end
+end
+
+describe 'Array#**' do
+  it 'returns the array product' do
+    ([1,2] ** %w[a b]).should == [[1, "a"], [1, "b"], [2, "a"], [2, "b"]]
+  end
+end

data/spec/blank_spec.rb

@@ -1,4 +1,6 @@
 require 'zucker/blank'
+using Zucker::Blank
+
 
 describe 'Object#blank?' do
   it 'should be blank for blank values' do

data/spec/camel_snake_spec.rb

@@ -0,0 +1,15 @@
+require 'zucker/camel_snake'
+using Zucker::CamelSnake
+
+
+describe 'String#to_camel' do
+  it 'should turn a snake_cased string to CamelCase' do
+    'was_snake_case'.to_camel.should == 'WasSnakeCase'
+  end
+end
+
+describe 'String#to_snake' do
+  it 'should turn a CamelCased string to snake_case' do
+    'WasCamelCase'.to_snake.should == 'was_camel_case'
+  end
+end

data/spec/constantize_spec.rb

@@ -0,0 +1,33 @@
+require 'zucker/constantize'
+using Zucker::Constantize
+
+
+describe 'String#constantize' do
+  it 'should return the constant with that name' do
+    'Object'.constantize.should == Object
+  end
+
+  it 'should also work for nested constants' do
+    'Zucker::VERSION'.constantize.should == Zucker::VERSION
+  end
+
+  it 'should throw name error if constant does not exist (and no parameter is given)' do
+    proc do
+      'ObfsefsefsefafesafaefRubyZuckerafdfselijfesject'.constantize
+    end.should raise_exception NameError
+  end
+
+  it 'should call the block (and not raise an error) if constant does not exist and block given' do
+    proc do
+      'ObfsefsefsefafesafaefRubyZuckerafdfselijfesject'.constantize do |string|
+         Default = [1,2,3]
+      end.should == [1,2,3]
+    end.should_not raise_exception
+  end
+
+  it 'should return the second parameter (and not raise an error) if constant does not exist and parameter given' do
+    proc do
+      'ObfsefsefsefafesafaefRubyZuckerafdfselijfesject'.constantize(Array).should == Array
+    end.should_not raise_exception
+  end
+end

data/spec/dir_extras_spec.rb

@@ -0,0 +1,32 @@
+require 'zucker/dir_extras'
+require 'securerandom'
+using Zucker::DirExtras
+
+
+describe Dir do
+  describe '.join' do
+    it 'delegates to File.join' do
+      a = %w[some file path]
+      expect( Dir.join(a) ).to be == File.join(a)
+    end
+  end
+
+  describe '.split' do
+    it 'delegates to File.split' do
+      a = 'some/file/path'
+      expect( Dir.split(a) ).to be == File.split(a)
+    end
+  end
+
+  describe '.rm' do
+    it 'removes directories with content' do
+      path = "tmp_#{SecureRandom.uuid}"
+      FileUtils.mkdir path
+      FileUtils.touch "#{path}/123"
+      expect{
+        Dir.rm path
+      }.not_to raise_error
+      expect( Dir['*'] ).to_not include(path)
+    end
+  end
+end

data/spec/egonil_spec.rb

@@ -1,4 +1,5 @@
 require 'zucker/egonil'
+using Zucker::Egonil
 
 describe 'egonil' do
   it 'should not raise nil exceptions in the block' do

data/spec/file_extras_spec.rb

@@ -0,0 +1,57 @@
+require 'zucker/file_extras'
+require 'fileutils'
+using Zucker::FileExtras
+
+
+describe File do
+  describe '.filename' do
+    it 'behaves like basename' do
+      File.filename('some/path/file.png').should == 'file.png'
+    end
+  end
+
+  describe '.gsub' do
+    after{ File.delete! 'random_filename' }
+    let :random_filename do
+      'test_' + (0..20).map{|e| [*'a'..'z'].send RUBY_VERSION > '1.9' ? :sample : :choice }*''
+    end
+
+    it 'should read filename in arg1, substitute every key in the arg2 with its value and save the file' do
+      File.open(random_filename,'w'){ |file|
+        file.print 'should read filename in arg1, substitute every key in the arg2 with its value and save the file'
+      }
+      File.gsub random_filename,
+        /read/ => 'write',
+        /\d+/  => proc{|m| (m.to_i+1).to_s }
+
+      File.read(random_filename).should ==
+        'should write filename in arg2, substitute every key in the arg3 with its value and save the file'
+
+      FileUtils.rm random_filename
+    end
+  end
+
+  describe '.delete!' do
+    after{ File.delete! 'random_filename' }
+    let :random_filename do
+      'test_' + (0..20).map{|e| [*'a'..'z'].send RUBY_VERSION > '1.9' ? :sample : :choice }*''
+    end
+
+    it 'should delete the filename given as argument if it exists + return non-nil' do
+      FileUtils.touch random_filename
+      res = false
+      proc do
+        res = File.delete! random_filename
+      end.should_not raise_exception
+      res.should be_true
+    end
+
+    it 'should do nothing if the filename given as argument does not exist + return nil' do
+      res = false
+      proc do
+        res = File.delete! random_filename
+      end.should_not raise_exception
+      res.should be_false
+    end
+  end
+end