cascading_classes 0.3.0 → 0.6.0

data/spec/basics/basic_spec.rb

@@ -0,0 +1,230 @@
+begin
+  require_relative '../helper_spec'
+rescue NameError
+  require File.expand_path('../helper_spec', __FILE__)
+end
+
+describe "basics" do
+  before do
+    A = Class.new{extend CC}
+    B = Class.new(A)
+    C = Class.new(B)
+  end
+
+  after do
+    Object.send :remove_const, :A
+    Object.send :remove_const, :B
+    Object.send :remove_const, :C
+  end
+
+  describe "properties with no type" do
+    before do
+      @props = A.cascade do
+        wings
+        features
+        blind
+      end
+    end
+
+    it "has unknown type of :Object" do
+      @props[:wings][:type].must_equal :undefined_type
+      @props[:features][:type].must_equal :undefined_type
+      @props[:blind][:type].must_equal :undefined_type
+    end
+  end
+  
+  describe "whole slew of properties" do
+    before do
+      @props = A.cascade do
+        color :default => "red"
+        score :default => 45.9
+        rank :default => 18
+        style :default => :spotted
+        available :default => true
+        locations :default => [:south, :north]
+        name :default => {:first => 'jon', :last => 'smith'}
+        classified :default => Proc.new{|me| me.score > 40 }
+      end
+    end
+
+    describe "parent class" do
+      it "has set with the default value" do
+        A.color.must_equal "red"
+        A.score.must_equal 45.9
+        A.rank.must_equal 18
+        A.style.must_equal :spotted
+        A.available.must_equal true
+        A.locations.must_equal [:south, :north]
+        A.name.must_equal({:first => 'jon', :last => 'smith'})
+        A.classified.must_equal true
+      end
+    end
+
+    describe "descendents" do
+      it "has access to the 'default' value" do
+        A.color(:default).must_equal "red"
+        A.color = "blue"
+        A.color(:default).must_equal "blue"
+        
+        B.color = "white"
+        B.color.must_equal "white"
+        B.color(:default).must_equal "red"
+        C.color(:default).must_equal "red"        
+      end
+
+      describe "non-container-type properties" do
+        it "inherits non-blank values from first non-blank ancestor" do
+          @props[:color][:inherit].must_equal true
+          @props[:score][:inherit].must_equal true
+          @props[:rank][:inherit].must_equal true
+          @props[:style][:inherit].must_equal true
+          @props[:available][:inherit].must_equal true
+
+          B.color.must_equal "red"
+          B.score.must_equal 45.9
+          B.rank.must_equal 18
+          B.style.must_equal :spotted
+          B.available.must_equal true
+
+          C.color.must_equal "red"
+          C.score.must_equal 45.9
+          C.rank.must_equal 18
+          C.style.must_equal :spotted
+          C.available.must_equal true
+
+          B.score = 48.2
+          B.style = :rugged
+          B.available = false
+
+          B.score.must_equal 48.2 
+          C.score.must_equal 48.2
+
+          B.style.must_equal :rugged
+          C.style.must_equal :rugged
+
+          B.available.must_equal false
+          C.available.must_equal false
+        end
+      end
+
+      describe "container-type properties" do
+        it "does not inherit ancestor properties" do
+          @props[:locations][:inherit].must_equal false
+          @props[:name][:inherit].must_equal false
+
+          B.locations.must_equal Array.new
+          C.locations.must_equal Array.new
+          B.name.must_equal Hash.new
+          C.name.must_equal Hash.new
+
+          B.locations = [:east, :west]
+          B.name = {:first => 'adam', :last => 'phillips'}
+
+          B.locations.must_equal [:east, :west]
+          C.locations.must_equal Array.new
+          B.name.must_equal({:first => 'adam', :last => 'phillips'})
+          C.name.must_equal Hash.new
+        end
+      end
+
+      describe "proc properties" do
+        it "inherits by default" do
+          @props[:classified][:inherit].must_equal true
+        end
+
+        it "evaluates the proc in context of each descendent" do
+          A.score = 54.2
+          B.score = 30.1
+          C.score = 45.2
+
+          A.classified.must_equal true
+          B.classified.must_equal false
+          C.classified.must_equal true
+        end
+      end
+    end
+
+    describe "property block parameter" do
+      before do
+        B.color = "blue"
+        C.color = "purple"
+      end
+
+      it "expects two parameters: property_name, ancestors" do
+        A.color{|color_a, parents|
+          color_a.must_equal "red"
+          parents.must_equal []
+        }
+
+        B.color{|color_b, parents|
+          color_b.must_equal "blue"
+          parents.must_equal [A]
+        }
+
+        C.color{|color_c, parents|
+          color_c.must_equal "purple"
+          parents.must_equal [B, A]
+        }
+      end
+
+      it "returns last expression of block" do
+        A.color{|my_color| my_color.reverse}.must_equal "der"
+        B.color{|my_color| my_color.capitalize}.must_equal "Blue"
+        C.color{|my_color| my_color * 2}.must_equal "purplepurple"
+      end
+    end
+
+    describe "descendents" do
+      describe "properties not of type :Proc but whose descendents set it to one" do
+        before do
+          B.color = Proc.new{|me, parents| parents.first.color.capitalize}
+          B.rank = Proc.new{ Time.now.sec }
+        end
+
+        it "descendents whose property is blank, inherit (invoke) the proc" do
+          B.color.must_equal "Red"
+
+          sec = Time.now.sec
+          B.rank.must_equal sec
+          C.rank.must_equal sec
+
+          sleep(2)
+
+          sec = Time.now.sec
+          B.rank.must_equal sec
+          C.rank.must_equal sec
+        end
+      end
+    end
+  end
+end
+
+describe "to_hash" do
+  before do
+    A = Class.new{extend CC}
+    B = Class.new(A)
+    C = Class.new(B)
+
+    A.cascade do
+      color :default => "red"
+      name :default => {:first => 'jon', :last => 'mackey'}
+    end
+  end
+
+  after do
+    Object.send :remove_const, :A
+    Object.send :remove_const, :B
+    Object.send :remove_const, :C
+  end
+
+  it "returns hash of property name/values" do
+    A.to_hash.must_equal({:color => "red",
+                           :name => {:first => 'jon',
+                                     :last => 'mackey'}
+                         })
+  end
+
+  it "applies default getter logic: non-container-types inherit, container-types don't" do
+    B.to_hash.must_equal({:color => "red", :name => {}})
+  end
+end

data/spec/basics/block_spec.rb

@@ -0,0 +1,52 @@
+begin
+  require_relative '../helper_spec'
+rescue NameError
+  require File.expand_path('../helper_spec', __FILE__)
+end
+
+describe "block given" do
+  before do
+    A = Class.new{include CC}
+    B = Class.new(A)
+    C = Class.new(B)
+
+    A.cascade do
+      color :default => "red"
+      score :default => 34.5
+    end
+  end
+
+  after do
+    Object.send :remove_const, :A
+    Object.send :remove_const, :B
+    Object.send :remove_const, :C
+  end
+
+  it "takes two params: value of self, parent classes" do
+    A.score{|my_score, parents| my_score}.must_equal A.score
+    
+    B.score = 28.2
+    B.score{|my_score, parents| my_score}.must_equal B.score
+
+    A.new.score{|my_score| my_score}.must_equal A.new.score
+    B.new.score{|my_score| my_score}.must_equal B.new.score
+
+    A.score{|my_score, parents| parents}.must_equal []
+    B.score{|my_score, parents| parents}.must_equal [A]
+
+    A.new.score{|my_score, parents| parents}.must_equal [A]
+    B.new.score{|my_score, parents| parents}.must_equal [B, A]
+
+=begin
+    what_score, which_parents = nil, nil
+
+    B.score{|my_score, parents|
+      what_score = my_score
+      which_parents = parents
+    }
+    
+    what_score.must_equal(B.score)
+    which_parents.must_equal([A])
+=end
+  end
+end

data/spec/basics/container_spec.rb

@@ -0,0 +1,201 @@
+begin
+  require_relative '../helper_spec'
+rescue NameError
+  require File.expand_path('../helper_spec', __FILE__)
+end
+
+describe "container types: typical" do
+  before do
+    A = Class.new{extend CC}
+    B = Class.new(A)
+    C = Class.new(B)
+
+    @props = A.cascade do
+      urls :default => ["www.google.com"]
+      name :default => {:first => 'jon', :last => 'smith'}
+    end
+  end
+
+  after do
+    Object.send :remove_const, :A
+    Object.send :remove_const, :B
+    Object.send :remove_const, :C
+  end
+
+  it "does not inherit by default" do
+    @props[:urls][:inherit].must_equal false
+    @props[:name][:inherit].must_equal false
+
+    A.urls.must_equal ["www.google.com"]
+    B.urls.must_equal Array.new
+    C.urls.must_equal Array.new
+
+    A.name.must_equal({:first => 'jon', :last => 'smith'})
+    B.name.must_equal Hash.new
+    C.name.must_equal Hash.new
+  end
+
+  describe "descendents can update their own container properties" do
+    before do
+      B.urls << "www.bing.com" << "www.example.com"
+
+      C.urls = ["c.homepage.org"]
+      C.urls << "example.org"
+
+      B.name[:first] = 'charlie'
+      C.name = {:first => 'tim', :last => 'emerson'}
+    end
+
+    it "works" do
+      B.urls.must_equal ["www.bing.com", "www.example.com"]
+      C.urls.must_equal ["c.homepage.org", "example.org"]
+
+      B.name.must_equal({:first => 'charlie'})
+      C.name.must_equal({:first => 'tim', :last => 'emerson'})
+    end
+  end
+
+  describe "manual override: allowing inheritance" do
+    it "accepts ':inherit' syntax" do
+      B.urls(:inherit).must_equal ["www.google.com"]
+      C.urls(:inherit).must_equal ["www.google.com"]
+
+      B.name(:inherit).must_equal({:first => 'jon', :last => 'smith'})
+      C.name(:inherit).must_equal({:first => 'jon', :last => 'smith'})
+    end
+
+    it "accepts ':inherit => <val>' syntax" do
+      B.urls(:inherit => 0).must_equal []
+      B.urls(:inherit => false).must_equal []
+      B.urls(:inherit => nil).must_equal []
+      B.urls(:inherit => 1).must_equal ["www.google.com"]
+      B.urls(:inherit => true).must_equal ["www.google.com"]
+      B.urls(:inherit => -1).must_equal ["www.google.com"]
+
+      C.urls(:inherit => 0).must_equal []
+      C.urls(:inherit => false).must_equal []
+      C.urls(:inherit => nil).must_equal []
+      C.urls(:inherit => 1).must_equal []
+      C.urls(:inherit => 2).must_equal ["www.google.com"]
+      C.urls(:inherit => -1).must_equal ["www.google.com"]
+      C.urls(:inherit => true).must_equal ["www.google.com"]
+    end
+
+    it "accepts ':inherit, <val>' syntax" do
+      B.name(:inherit, 0).must_equal Hash.new
+      B.name(:inherit, false).must_equal Hash.new
+      B.name(:inherit, nil).must_equal Hash.new
+      B.name(:inherit, 1).must_equal({:first => 'jon', :last => 'smith'})
+      B.name(:inherit, true).must_equal({:first => 'jon', :last => 'smith'})
+      B.name(:inherit, -1).must_equal({:first => 'jon', :last => 'smith'})
+
+      C.name(:inherit, 0).must_equal Hash.new
+      C.name(:inherit, false).must_equal Hash.new
+      C.name(:inherit, nil).must_equal Hash.new
+      C.name(:inherit, 1).must_equal Hash.new
+      C.name(:inherit, 2).must_equal({:first => 'jon', :last => 'smith'})
+      C.name(:inherit, true).must_equal({:first => 'jon', :last => 'smith'})
+      C.name(:inherit, -1).must_equal({:first => 'jon', :last => 'smith'})
+    end
+
+    describe "manual override has no effect on non-blank container properties" do
+      it "works" do
+        C.urls << "www.yahoo.com"
+
+        A.urls_is_blank?.must_equal false
+        B.urls_is_blank?.must_equal true
+        C.urls_is_blank?.must_equal false
+
+        A.urls.must_equal ["www.google.com"]
+        A.urls(:inherit).must_equal ["www.google.com"]
+        A.urls(:inherit => false).must_equal ["www.google.com"]
+        A.urls(:inherit => nil).must_equal ["www.google.com"]
+        A.urls(:inherit => 0).must_equal ["www.google.com"]
+        A.urls(:inherit => 1).must_equal ["www.google.com"]
+        A.urls(:inherit => 2).must_equal ["www.google.com"]
+        A.urls(:inherit => -1).must_equal ["www.google.com"]
+        A.urls(:inherit => true).must_equal ["www.google.com"]
+
+        C.urls.must_equal ["www.yahoo.com"]
+        C.urls(:inherit).must_equal ["www.yahoo.com"]
+        C.urls(:inherit, false).must_equal ["www.yahoo.com"]
+        C.urls(:inherit, nil).must_equal ["www.yahoo.com"]
+        C.urls(:inherit, 0).must_equal ["www.yahoo.com"]
+        C.urls(:inherit, 1).must_equal ["www.yahoo.com"]
+        C.urls(:inherit, 2).must_equal ["www.yahoo.com"]
+        C.urls(:inherit, -1).must_equal ["www.yahoo.com"]
+        C.urls(:inherit, true).must_equal ["www.yahoo.com"]
+      end
+    end
+  end
+end
+
+describe "container types: property-wide inheritance" do
+  before do
+    A = Class.new{extend CC}
+    B = Class.new(A)
+    C = Class.new(B)
+
+    @props = A.cascade do
+      urls :default => ["www.google.com"], :inherit => true
+      name :default => {:first => 'jon', :last => 'smith'}, :inherit => true
+    end
+  end
+
+  after do
+    Object.send :remove_const, :A
+    Object.send :remove_const, :B
+    Object.send :remove_const, :C
+  end
+
+  it "inherits by default" do
+    @props[:urls][:inherit].must_equal true
+    @props[:name][:inherit].must_equal true
+
+    B.urls.must_equal ["www.google.com"]
+    C.urls.must_equal ["www.google.com"]
+
+    B.name.must_equal({:first => 'jon', :last => 'smith'})
+    C.name.must_equal({:first => 'jon', :last => 'smith'})
+  end
+
+  describe "a descendent updates a container property" do
+    before do
+      B.urls = "www.bing.com"
+    end
+
+    it "cascades down its descendents" do
+      C.urls.must_equal ["www.bing.com"]
+    end
+  end
+
+  describe "overriding the inheritance effect" do
+    it "accepts ':inherit => <val>' syntax" do
+      B.urls.must_equal ["www.google.com"]
+      C.urls.must_equal ["www.google.com"]
+
+      B.urls(:inherit => false).must_equal []
+      C.urls(:inherit => false).must_equal []
+
+      B.urls(:inherit => 0).must_equal []
+      C.urls(:inherit => 0).must_equal []
+
+      B.urls(:inherit => 1).must_equal ["www.google.com"]
+      C.urls(:inherit => 1).must_equal []
+    end
+
+    it "accepts ':inherit, <val>' syntax" do      
+      B.urls.must_equal ["www.google.com"]
+      C.urls.must_equal ["www.google.com"]
+
+      B.urls(:inherit, false).must_equal []
+      C.urls(:inherit, false).must_equal []
+
+      B.urls(:inherit, 0).must_equal []
+      C.urls(:inherit, 0).must_equal []
+
+      B.urls(:inherit, 1).must_equal ["www.google.com"]
+      C.urls(:inherit, 1).must_equal []
+    end
+  end
+end