motion_blender-support 0.2.7

data/spec/motion-support/core_ext/module/attr_internal_spec.rb

@@ -0,0 +1,104 @@
+describe "module" do
+  describe "attr_internal" do
+    before do
+      @target = Class.new
+      @instance = @target.new
+    end
+    
+    describe "reader" do
+      it "should define reader" do
+        lambda { @target.attr_internal_reader :foo }.should.not.raise
+      end
+
+      describe "defined" do
+        before do
+          @target.attr_internal_reader :foo
+        end
+  
+        it "should not have instance variable at first" do
+          @instance.instance_variable_defined?('@_foo').should.not.be.true
+        end
+  
+        it "should not define writer" do
+          lambda { @instance.foo = 1 }.should.raise NoMethodError
+        end
+  
+        it "should return value of internal reader" do
+          @instance.instance_variable_set('@_foo', 1)
+          lambda { @instance.foo.should == 1 }.should.not.raise
+        end
+      end
+    end
+    
+    describe "writer" do
+      it "should define writer" do
+        lambda { @target.attr_internal_writer :foo }.should.not.raise
+      end
+
+      describe "defined" do
+        before do
+          @target.attr_internal_writer :foo
+        end
+  
+        it "should not have instance variable at first" do
+          @instance.instance_variable_defined?('@_foo').should.not.be.true
+        end
+  
+        it "should set instance variable" do
+          lambda { @instance.foo = 1 }.should.not.raise
+          @instance.instance_variable_defined?('@_foo').should.be.true
+          @instance.instance_variable_get('@_foo').should == 1
+        end
+  
+        it "should not define reader" do
+          lambda { @instance.foo }.should.raise NoMethodError
+        end
+      end
+    end
+    
+    describe "accessor" do
+      it "should define accessor" do
+        lambda { @target.attr_internal :foo }.should.not.raise
+      end
+
+      describe "defined" do
+        before do
+          @target.attr_internal :foo
+        end
+  
+        it "should not have instance variable at first" do
+          @instance.instance_variable_defined?('@_foo').should.not.be.true
+        end
+  
+        it "should set instance variable" do
+          lambda { @instance.foo = 1 }.should.not.raise
+          @instance.instance_variable_defined?('@_foo').should.be.true
+          @instance.instance_variable_get('@_foo').should == 1
+        end
+  
+        it "should read from instance variable" do
+          @instance.instance_variable_set('@_foo', 1)
+          lambda { @instance.foo }.should.not.raise
+        end
+      end
+    end
+    
+    describe "naming format" do
+      it "should allow custom naming format for instance variable" do
+        begin
+          Module.attr_internal_naming_format.should == '@_%s'
+          lambda { Module.attr_internal_naming_format = '@abc%sdef' }.should.not.raise
+          @target.attr_internal :foo
+
+          @instance.instance_variable_defined?('@_foo').should.be.false
+          @instance.instance_variable_defined?('@abcfoodef').should.be.false
+          lambda { @instance.foo = 1 }.should.not.raise
+          @instance.instance_variable_defined?('@_foo').should.not.be.true
+          @instance.instance_variable_defined?('@abcfoodef').should.be.true
+        ensure
+          Module.attr_internal_naming_format = '@_%s'
+        end
+      end
+    end
+  end
+end

data/spec/motion-support/core_ext/module/attribute_accessor_spec.rb

@@ -0,0 +1,86 @@
+describe "module" do
+  describe "attribute accessors" do
+    before do
+      m = @module = Module.new
+      @module.instance_eval do
+        mattr_accessor :foo
+        mattr_accessor :bar, :instance_writer => false
+        mattr_reader   :shaq, :instance_reader => false
+        mattr_accessor :camp, :instance_accessor => false
+      end
+      @class = Class.new
+      @class.instance_eval { include m }
+      @object = @class.new
+    end
+    
+    describe "reader" do
+      it "should return nil by default" do
+        @module.foo.should.be.nil
+      end
+    end
+    
+    describe "writer" do
+      it "should set value" do
+        @module.foo = :test
+        @module.foo.should == :test
+      end
+      
+      it "should set value through instance writer" do
+        @object.foo = :bar
+        @object.foo.should == :bar
+      end
+      
+      it "should set instance reader's value through module's writer" do
+        @module.foo = :test
+        @object.foo.should == :test
+      end
+      
+      it "should set module reader's value through instances's writer" do
+        @object.foo = :bar
+        @module.foo.should == :bar
+      end
+    end
+    
+    describe "instance_writer => false" do
+      it "should not create instance writer" do
+        @module.should.respond_to :foo
+        @module.should.respond_to :foo=
+        @object.should.respond_to :bar
+        @object.should.not.respond_to :bar=
+      end
+    end
+    
+    describe "instance_reader => false" do
+      it "should not create instance reader" do
+        @module.should.respond_to :shaq
+        @object.should.not.respond_to :shaq
+      end
+    end
+  
+    describe "instance_accessor => false" do
+      it "should not create reader or writer" do
+        @module.should.respond_to :camp
+        @object.should.not.respond_to :camp
+        @object.should.not.respond_to :camp=
+      end
+    end
+  end
+  
+  describe "invalid attribute accessors" do
+    it "should raise NameError when creating an invalid reader" do
+      lambda do
+        Class.new do
+          mattr_reader "invalid attribute name"
+        end
+      end.should.raise NameError
+    end
+    
+    it "should raise NameError when creating an invalid writer" do
+      lambda do
+        Class.new do
+          mattr_writer "invalid attribute name"
+        end
+      end.should.raise NameError
+    end
+  end
+end

data/spec/motion-support/core_ext/module/delegation_spec.rb

@@ -0,0 +1,136 @@
+module ModuleDelegation
+  class Delegator
+    def receive
+      "result"
+    end
+  end
+  
+  class InstanceVariable
+    def initialize
+      @instance_variable = Delegator.new
+    end
+    delegate :receive, :to => '@instance_variable'
+  end
+  
+  class ClassVariable
+    def initialize
+      @@class_variable = Delegator.new
+    end
+    delegate :receive, :to => '@@class_variable'
+  end
+  
+  class RelativeConstant
+    Receiver = Delegator.new
+    delegate :receive, :to => 'Receiver'
+  end
+  
+  class AbsoluteConstant
+    Receiver = Delegator.new
+    delegate :receive, :to => 'ModuleDelegation::AbsoluteConstant::Receiver'
+  end
+  
+  class Method
+    def method
+      Delegator.new
+    end
+    delegate :receive, :to => :method
+  end
+  
+  class MethodChain
+    def first
+      self
+    end
+    
+    def second
+      Delegator.new
+    end
+    delegate :receive, :to => 'first.second'
+  end
+  
+  class ConstantSingleton
+    class Nested
+      def self.method
+        Delegator.new
+      end
+    end
+    delegate :receive, :to => 'Nested.method'
+  end
+  
+  class AllowNil
+    delegate :receive, :to => '@undefined', :allow_nil => true
+  end
+  
+  class DisallowNil
+    delegate :receive, :to => '@undefined'
+  end
+  
+  class NonexistentMethod
+    delegate :receive, :to => :nonexistent_method
+  end
+  
+  class Prefix
+    def method
+      Delegator.new
+    end
+    delegate :receive, :to => :method, :prefix => 'foo'
+  end
+  
+  class AutoPrefix
+    def method
+      Delegator.new
+    end
+    delegate :receive, :to => :method, :prefix => true
+  end
+end
+
+describe "module" do
+  describe "delegation" do
+    it "should delegate to instance variable" do
+      ModuleDelegation::InstanceVariable.new.receive.should == "result"
+    end
+    
+    it "should delegate to class variable" do
+      ModuleDelegation::ClassVariable.new.receive.should == "result"
+    end
+    
+    it "should delegate to relative constant" do
+      ModuleDelegation::RelativeConstant.new.receive.should == "result"
+    end
+    
+    it "should delegate to absolute constant" do
+      ModuleDelegation::AbsoluteConstant.new.receive.should == "result"
+    end
+    
+    it "should delegate to method" do
+      ModuleDelegation::Method.new.receive.should == "result"
+    end
+    
+    it "should delegate to method chain" do
+      ModuleDelegation::MethodChain.new.receive.should == "result"
+    end
+    
+    it "should delegate to constant's singleton method" do
+      ModuleDelegation::ConstantSingleton.new.receive.should == "result"
+    end
+    
+    it "should delegate to nil without raising an error when allowed" do
+      ModuleDelegation::AllowNil.new.receive.should.be.nil
+    end
+    
+    it "should raise an error when delegating to nil and not allowed" do
+      lambda { ModuleDelegation::DisallowNil.new.receive }.should.raise
+    end
+    
+    it "should raise an error when delegating to non-existent method" do
+      lambda { ModuleDelegation::NonexistentMethod.new.receive }.should.raise NoMethodError
+    end
+    
+    it "should delegate with prefix" do
+      ModuleDelegation::Prefix.new.foo_receive.should == "result"
+    end
+    
+    it "should delegate to method with automatic prefix" do
+      ModuleDelegation::AutoPrefix.new.method_receive.should == "result"
+    end
+  end
+end

data/spec/motion-support/core_ext/module/introspection_spec.rb

@@ -0,0 +1,70 @@
+module ModuleIntrospection
+  module Foo
+    module Bar
+    end
+  end
+  module Baz
+  end
+end
+ModuleIntrospectionAlias = ModuleIntrospection::Foo
+
+describe "module" do
+  describe "introspection" do
+    describe "parent_name" do
+      it "should return nil for top-level module" do
+        ModuleIntrospection.parent_name.should.be.nil
+      end
+      
+      it "should return direct parent for nested module" do
+        ModuleIntrospection::Foo.parent_name.should == "ModuleIntrospection"
+      end
+      
+      it "should return nil for anonymous module" do
+        Module.new.parent_name.should.be.nil
+      end
+      
+      it "should return original parent name for module alias" do
+        ModuleIntrospectionAlias.parent_name.should == "ModuleIntrospection"
+      end
+    end
+    
+    describe "parent" do
+      it "should return Object for top-level module" do
+        ModuleIntrospection.parent.should == Object
+      end
+      
+      it "should return direct parent for nested module" do
+        ModuleIntrospection::Foo.parent.should == ModuleIntrospection
+      end
+      
+      it "should return nil for anonymous module" do
+        Module.new.parent.should == Object
+      end
+      
+      it "should return original parent for module alias" do
+        ModuleIntrospectionAlias.parent.should == ModuleIntrospection
+      end
+    end
+    
+    describe "parents" do
+      it "should return Object for top-level module" do
+        ModuleIntrospection.parents.should == [Object]
+      end
+      
+      it "should return parents for nested module" do
+        ModuleIntrospection::Foo::Bar.parents.should == [ModuleIntrospection::Foo, ModuleIntrospection, Object]
+      end
+      
+      it "should return original parents for module alias" do
+        ModuleIntrospectionAlias.parents.should == [ModuleIntrospection, Object]
+      end
+    end
+    
+    describe "local_constants" do
+      it "should return all direct constants within the module as symbols" do
+        ModuleIntrospection.local_constants.should.include :Foo
+        ModuleIntrospection.local_constants.should.include :Baz
+      end
+    end
+  end
+end

data/spec/motion-support/core_ext/module/reachable_spec.rb

@@ -0,0 +1,61 @@
+describe "Module" do
+  describe "reachable?" do
+    it "should be false for an anonymous module" do
+      Module.new.should.not.be.reachable
+    end
+    
+    it "should be false for an anonymous class" do
+      Class.new.should.not.be.reachable
+    end
+
+    it "should be true for a named module" do
+      Kernel.should.be.reachable
+    end
+    
+    it "should be true for a named class" do
+      Object.should.be.reachable
+    end
+
+    it "should be false for a named class whose constant has gone" do
+      class C; end
+      c = C
+
+      Object.send(:remove_const, :C)
+
+      c.should.not.be.reachable
+    end
+
+    it "should be false for a named module whose constant has gone" do
+      module M; end
+      m = M
+    
+      Object.send(:remove_const, :M)
+    
+      m.should.not.be.reachable
+    end
+    
+    it "should be false for a named class whose constant was redefined" do
+      class C; end
+      c = C
+    
+      Object.send(:remove_const, :C)
+    
+      class C; end
+    
+      C.should.be.reachable
+      c.should.not.be.reachable
+    end
+    
+    it "should be false for a named module whose constant was redefined" do
+      module M; end
+      m = M
+    
+      Object.send(:remove_const, :M)
+    
+      module M; end
+    
+      M.should.be.reachable
+      m.should.not.be.reachable
+    end
+  end
+end

data/spec/motion-support/core_ext/module/remove_method_spec.rb

@@ -0,0 +1,25 @@
+module RemoveMethodSpec
+  class A
+    def do_something
+      return 1
+    end
+  end
+end
+
+describe "module" do
+  describe "remove_method" do
+    it "should remove a method from an object" do
+      RemoveMethodSpec::A.class_eval {
+        self.remove_possible_method(:do_something)
+      }
+      RemoveMethodSpec::A.new.should.not.respond_to :do_something
+    end
+
+    def test_redefine_method_in_an_object
+      RemoveMethodSpec::A.class_eval {
+        self.redefine_method(:do_something) { return 100 }
+      }
+      RemoveMethodSpec::A.new.do_something.should == 100
+    end
+  end
+end

data/spec/motion-support/core_ext/numeric/bytes_spec.rb

@@ -0,0 +1,43 @@
+describe "Numeric" do
+  describe "bytes" do
+    it "should calculate kilobytes" do
+      1.kilobyte.should == 1024.bytes
+      3.kilobytes.should == 3072
+      3.kilobyte.should == 3072
+    end
+    
+    it "should calculate megabytes" do
+      1.megabyte.should == 1024.kilobytes
+      3.5.megabytes.should == 3584.0.kilobytes
+      3.megabytes.should == 1024.kilobytes + 2.megabytes
+      512.megabytes.should == 2.gigabytes / 4
+      3.megabytes.should == 3145728
+      3.megabyte.should == 3145728
+    end
+    
+    it "should calculate gigabytes" do
+      3.5.gigabytes.should == 3584.0.megabytes
+      10.gigabytes.should == 256.megabytes * 20 + 5.gigabytes
+      3.gigabytes.should == 3221225472
+      3.gigabyte.should == 3221225472
+    end
+    
+    it "should calculate terabytes" do
+      1.terabyte.should == 1.kilobyte ** 4
+      3.terabytes.should == 3298534883328
+      3.terabyte.should == 3298534883328
+    end
+    
+    it "should calculate petabytes" do
+      1.petabyte.should == 1.kilobyte ** 5
+      3.petabytes.should == 3377699720527872
+      3.petabyte.should == 3377699720527872
+    end
+    
+    it "should calculate exabytes" do
+      1.exabyte.should == 1.kilobyte ** 6
+      3.exabytes.should == 3458764513820540928
+      3.exabyte.should == 3458764513820540928
+    end
+  end
+end

data/spec/motion-support/core_ext/numeric/conversions_spec.rb

@@ -0,0 +1,40 @@
+describe "Numeric" do
+  describe "conversions" do
+    describe "phone" do
+      it "should format phone number without area code" do
+        5551234.to_s(:phone).should == "555-1234"
+      end
+      
+      it "should format long number without area code" do
+        225551212.to_s(:phone).should == "22-555-1212"
+        8005551212.to_s(:phone).should == "800-555-1212"
+      end
+      
+      it "should format phone number with area code" do
+        8005551212.to_s(:phone, :area_code => true).should == "(800) 555-1212"
+      end
+      
+      it "should format phone number with custom delimiter" do
+        8005551212.to_s(:phone, :delimiter => " ").should == "800 555 1212"
+        5551212.to_s(:phone, :delimiter => '.').should == "555.1212"
+      end
+      
+      it "should append extension to phone number" do
+        8005551212.to_s(:phone, :area_code => true, :extension => 123).should == "(800) 555-1212 x 123"
+      end
+      
+      it "should not append whitespace as extension to the phone number" do
+        8005551212.to_s(:phone, :extension => "  ").should == "800-555-1212"
+      end
+      
+      it "should format phone number with country code" do
+        8005551212.to_s(:phone, :country_code => 1).should == "+1-800-555-1212"
+        225551212.to_s(:phone, :country_code => 45).should == "+45-22-555-1212"
+      end
+      
+      it "should format phone number with country code and empty delimiter" do
+        8005551212.to_s(:phone, :country_code => 1, :delimiter => '').should == "+18005551212"
+      end
+    end
+  end
+end

data/spec/motion-support/core_ext/object/acts_like_spec.rb

@@ -0,0 +1,21 @@
+class DuckFoo
+  def acts_like_foo?
+    true
+  end
+end
+
+describe "Object" do
+  describe "acts_like" do
+    it "should not act like anything" do
+      object = Object.new
+      object.should.not.acts_like(:time)
+      object.should.not.acts_like(:date)
+      object.should.not.acts_like(:foo)
+    end
+    
+    it "should allow subclasses to act like something" do
+      object = DuckFoo.new
+      object.should.acts_like(:foo)
+    end
+  end
+end

data/spec/motion-support/core_ext/object/blank_spec.rb

@@ -0,0 +1,54 @@
+class EmptyTrue
+  def empty?() true; end
+end
+
+class EmptyFalse
+  def empty?() false; end
+end
+
+BLANK = [ EmptyTrue.new, nil, false, '', '   ', "  \n\t  \r ", '　', [], {} ]
+NOT   = [ EmptyFalse.new, Object.new, true, 0, 1, 'a', [nil], { nil => 0 } ]
+
+describe "blank" do
+  describe "blank?" do
+    BLANK.each do |v|
+      it "should treat #{v.inspect} as blank" do
+        v.should.be.blank
+      end
+    end
+    
+    NOT.each do |v|
+      it "should treat #{v.inspect} as NOT blank" do
+        v.should.not.be.blank
+      end
+    end
+  end
+
+  describe "present?" do
+    BLANK.each do |v|
+      it "should treat #{v.inspect} as NOT present" do
+        v.should.not.be.present
+      end
+    end
+    
+    NOT.each do |v|
+      it "should treat #{v.inspect} as present" do
+        v.should.be.present
+      end
+    end
+  end
+
+  describe "presence" do
+    BLANK.each do |v|
+      it "should return nil for #{v.inspect}.presence" do
+        v.presence.should.be.nil
+      end
+    end
+    
+    NOT.each do |v|
+      it "should return self for #{v.inspect}.presence" do
+        v.presence.should == v
+      end
+    end
+  end
+end

data/spec/motion-support/core_ext/object/deep_dup_spec.rb

@@ -0,0 +1,54 @@
+describe "deep_dup" do
+  describe "array" do
+    it "should deep_dup nested array" do
+      array = [1, [2, 3]]
+      dup = array.deep_dup
+      dup[1][2] = 4
+      array[1][2].should.be.nil
+      dup[1][2].should == 4
+    end
+    
+    it "should deep_dup array with hash inside" do
+      array = [1, { :a => 2, :b => 3 } ]
+      dup = array.deep_dup
+      dup[1][:c] = 4
+      array[1][:c].should.be.nil
+      dup[1][:c].should == 4
+    end
+  end
+  
+  describe "hash" do
+    it "should deep_dup nested hash" do
+      hash = { :a => { :b => 'b' } }
+      dup = hash.deep_dup
+      dup[:a][:c] = 'c'
+      hash[:a][:c].should.be.nil
+      dup[:a][:c].should == 'c'
+    end
+    
+    it "should deep_dup hash with array inside" do
+      hash = { :a => [1, 2] }
+      dup = hash.deep_dup
+      dup[:a][2] = 'c'
+      hash[:a][2].should.be.nil
+      dup[:a][2].should == 'c'
+    end
+    
+    it "should deep_dup hash with init value" do
+      zero_hash = Hash.new 0
+      hash = { :a => zero_hash }
+      dup = hash.deep_dup
+      dup[:a][44].should == 0
+    end
+  end
+  
+  describe "Object" do
+    it "should deep_dup object" do
+      object = Object.new
+      dup = object.deep_dup
+      dup.instance_variable_set(:@a, 1)
+      object.should.not.be.instance_variable_defined(:@a)
+      dup.should.be.instance_variable_defined(:@a)
+    end
+  end
+end