motion-support 0.1.0 → 0.2.0

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

@@ -0,0 +1,143 @@
+module Aliasing
+  class File
+  public
+    def open(file)
+    end
+    def open_with_internet(url)
+      open_without_internet(url)
+    end
+    alias_method_chain :open, :internet
+  
+  protected
+    def exist?(file)
+    end
+    def exist_with_internet?(url)
+      exist_without_internet?(url)
+    end
+    alias_method_chain :exist?, :internet
+  
+  private
+    def remove!(file)
+    end
+    def remove_with_internet!(url)
+      remove_without_internet!(url)
+    end
+    alias_method_chain :remove!, :internet
+  end
+  
+  class Content
+    attr_accessor :title, :Data
+
+    def initialize
+      @title, @Data = nil, nil
+    end
+
+    def title?
+      !title.nil?
+    end
+
+    def Data?
+      !self.Data.nil?
+    end
+  end
+
+  class Email < Content
+    alias_attribute :subject, :title
+    alias_attribute :body, :Data
+  end
+end
+
+describe "module" do
+  describe "alias_method_chain" do
+    it "should define 'without' method" do
+      Aliasing::File.new.should.respond_to :open_without_internet
+    end
+    
+    it "should respond to original method" do
+      Aliasing::File.new.should.respond_to :open
+    end
+    
+    it "should respond to 'with' method" do
+      Aliasing::File.new.should.respond_to :open_with_internet
+    end
+    
+    it "should preserve question punctuation" do
+      Aliasing::File.new.should.respond_to :exist_without_internet?
+    end
+    
+    it "should preserve bang punctuation" do
+      # Ruby objects don't respond to private methods
+      Aliasing::File.new.should.not.respond_to :remove_without_internet!
+    end
+    
+    it "should keep public methods public" do
+      Aliasing::File.new.public_methods.should.include :"open_without_internet:"
+    end
+    
+    it "should keep protected methods protected" do
+      Aliasing::File.new.protected_methods.should.include :"exist_without_internet?:"
+    end
+    
+    it "should keep private methods private" do
+      Aliasing::File.new.private_methods.should.include :"remove_without_internet!:"
+    end
+  end
+  
+  describe "alias_attribute" do
+    before do
+      @email = Aliasing::Email.new
+    end
+    
+    describe "getter" do
+      it "should exist" do
+        lambda { @email.subject }.should.not.raise
+      end
+      
+      it "should read" do
+        @email.title = "hello"
+        @email.subject.should == "hello"
+      end
+      
+      it "should read from uppercase method" do
+        @email.body = "world"
+        @email.Data.should == "world"
+      end
+    end
+    
+    describe "setter" do
+      it "should exist" do
+        lambda { @email.subject = "hello" }.should.not.raise
+      end
+      
+      it "should write" do
+        @email.subject = "hello"
+        @email.title.should == "hello"
+      end
+      
+      it "should write to uppercase method" do
+        @email.Data = "world"
+        @email.body.should == "world"
+      end
+    end
+    
+    describe "question method" do
+      it "should exist" do
+        lambda { @email.subject? }.should.not.raise
+      end
+      
+      it "should return false for nil attribute" do
+        @email.subject?.should == false
+      end
+      
+      it "should return true for non-nil attribute" do
+        @email.title = "hello"
+        @email.subject?.should == true
+      end
+      
+      it "should return true for non-nil uppercase attribute" do
+        @email.body = "hello"
+        @email.Data?.should == true
+      end
+    end
+  end
+end

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

@@ -0,0 +1,29 @@
+describe "module" do
+  describe "anonymous?" do
+    it "should return true for an anonymous module" do
+      Module.new.anonymous?.should == true
+    end
+    
+    it "should return true for an anonymous class" do
+      Class.new.anonymous?.should == true
+    end
+    
+    it "should return false for a named module" do
+      Kernel.anonymous?.should == false
+    end
+    
+    it "should return false for a named class" do
+      Object.anonymous?.should == false
+    end
+    
+    it "should return false for module that acquired a name" do
+      NamedModule = Module.new
+      NamedModule.anonymous?.should == false
+    end
+    
+    it "should return false for module that acquired a name" do
+      NamedClass = Class.new
+      NamedClass.anonymous?.should == false
+    end
+  end
+end

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