doodle 0.0.4 → 0.0.5

data/spec/attributes_spec.rb

@@ -1,110 +1,98 @@
-require 'lib/spec_helper'
+require File.dirname(__FILE__) + '/spec_helper.rb'
 
 describe Doodle::Attribute, 'basics' do
-  after :each do
-    undefine_const(:Bar)
-    undefine_const(:Foo)
-  end
-  before(:each) do
-    raise_if_defined(:Foo, :Bar)
-    
-    class Foo
-      include Doodle::Helper
-      has :name, :default => 'Hello'
-      class << self
-        has :metadata
+  temporary_constants :Foo, :Bar do
+    before(:each) do
+      class Foo
+        include Doodle::Helper
+        has :name, :default => 'Hello'
+        class << self
+          has :metadata
+        end
       end
-    end
-    class Bar < Foo
-      has :info
-      class << self
-        has :doc
+      class Bar < Foo
+        has :info
+        class << self
+          has :doc
+        end
       end
-    end
     
-    @foo = Foo.new
-    @bar = Bar.new :info => 'Hi'
-  end
+      @foo = Foo.new
+      @bar = Bar.new :info => 'Hi'
+    end
 
-  it 'should have attribute :name with default defined' do
-    @foo.attributes[:name].default.should == 'Hello'
-  end
+    it 'should have attribute :name with default defined' do
+      @foo.attributes[:name].default.should == 'Hello'
+    end
 
-  it 'should have default name' do
-    @foo.name.should == 'Hello'
-  end
+    it 'should have default name' do
+      @foo.name.should == 'Hello'
+    end
 
-  it 'should not have an instance variable for a default' do
-    @foo.instance_variables.include?('@name').should == false
-  end
+    it 'should not have an instance variable for a default' do
+      @foo.instance_variables.include?('@name').should == false
+    end
 
-  it 'should have name required == false (because has default)' do
-    @foo.attributes[:name].required?.should == false
-  end
+    it 'should have name required == false (because has default)' do
+      @foo.attributes[:name].required?.should == false
+    end
 
-  it 'should have info required == true' do
-    @bar.attributes[:info].required?.should == true
-  end
+    it 'should have info required == true' do
+      @bar.attributes[:info].required?.should == true
+    end
 
-  it 'should have name.optional? == true (because has default)' do
-    @foo.attributes[:name].optional?.should == true
-  end
+    it 'should have name.optional? == true (because has default)' do
+      @foo.attributes[:name].optional?.should == true
+    end
 
-  it 'should inherit attribute from parent' do
-    @bar.attributes[:name].should == @foo.attributes[:name]
-  end
+    it 'should inherit attribute from parent' do
+      @bar.attributes[:name].should == @foo.attributes[:name]
+    end
 
-  it 'should have info.optional? == false' do
-    @bar.attributes[:info].optional?.should == false
-  end
+    it 'should have info.optional? == false' do
+      @bar.attributes[:info].optional?.should == false
+    end
 
-  it "should have parents in correct order" do
-    Bar.parents.should == [Foo, Object]
-  end
+    it "should have parents in correct order" do
+      Bar.parents.should == [Foo, Object]
+    end
     
-  it "should have Bar's singleton parents in reverse order of definition" do
-    @bar.singleton_class.parents.should == [Bar.singleton_class.singleton_class, Bar.singleton_class, Foo.singleton_class]
-  end
+    it "should have Bar's singleton parents in reverse order of definition" do
+      @bar.singleton_class.parents.should == [Bar.singleton_class.singleton_class, Bar.singleton_class, Foo.singleton_class]
+    end
 
-  it 'should have inherited singleton local_attributes in order of definition' do
-    @bar.singleton_class.class_eval { collect_inherited(:local_attributes).map { |x| x[0]} }.should == [:metadata, :doc]
-  end
+    it 'should have inherited singleton local_attributes in order of definition' do
+      @bar.singleton_class.class_eval { collect_inherited(:local_attributes).map { |x| x[0]} }.should == [:metadata, :doc]
+    end
 
-  it 'should have inherited singleton attributes in order of definition' do
-    @bar.singleton_class.attributes.keys.should == [:metadata, :doc]
+    it 'should have inherited singleton attributes in order of definition' do
+      @bar.singleton_class.attributes.keys.should == [:metadata, :doc]
+    end
   end
 end
 
 describe Doodle::Attribute, 'attribute order' do
-  before :each do
-    raise_if_defined :A, :B, :C
-
-    class A < Doodle::Base
-      has :a
-    end
+  temporary_constants :A, :B, :C do
+    before :each do
+      class A < Doodle::Base
+        has :a
+      end
 
-    class B < A
-      has :b
-    end
+      class B < A
+        has :b
+      end
 
-    class C < B
-      has :c
+      class C < B
+        has :c
+      end
     end
-  end
-
-  after :each do
-    undefine_const(:A)
-    undefine_const(:B)
-    undefine_const(:C)
-  end
   
-  it 'should keep order of inherited attributes' do
-    C.parents.should == [B, A, Doodle::Base, Object]
-  end
+    it 'should keep order of inherited attributes' do
+      C.parents.should == [B, A, Doodle::Base, Object]
+    end
 
-  it 'should keep order of inherited attributes' do
-    C.attributes.keys.should == [:a, :b, :c]
+    it 'should keep order of inherited attributes' do
+      C.attributes.keys.should == [:a, :b, :c]
+    end
   end
 end
-
-raise_if_defined(:Foo, :Bar, :A, :B, :C)

data/spec/bugs_spec.rb

@@ -0,0 +1,21 @@
+require File.dirname(__FILE__) + '/spec_helper.rb'
+
+describe 'Doodle', 'parents' do
+  temporary_constant :Foo do
+    before :each do
+      class Foo < Doodle::Base
+        has :var1, :kind => Integer
+        has :var2, :kind => Integer, :default => 1
+        must 'have var1 != var2' do
+          var1 != var2
+        end
+      end
+    end
+    
+    it 'should not duplicate validations when accessing them!' do
+      foo = Foo 2
+      foo.validations.size.should == 1
+      foo.validations.size.should == 1
+    end
+  end
+end

data/spec/class_spec.rb

@@ -1,90 +1,83 @@
-$:.unshift(File.join(File.dirname(__FILE__), '../.'))
-require 'lib/spec_helper'
+require File.dirname(__FILE__) + '/spec_helper.rb'
 
 describe Doodle, 'class attributes' do
-  after :each do
-    undefine_const(:Bar)
-    undefine_const(:Foo)
-  end
-  before(:each) do
-    raise_if_defined(:Foo, :Bar)
-    class Foo
-      include Doodle::Helper
-      class << self
-        has :metadata
+  temporary_constants :Bar, :Foo do
+    before(:each) do
+      class Foo
+        include Doodle::Helper
+        class << self
+          has :metadata
+        end
       end
-    end
-    @foo = Foo.new
-    class Bar < Foo
-      include Doodle::Helper
-      class << self
-        has :doc
+      @foo = Foo.new
+      class Bar < Foo
+        include Doodle::Helper
+        class << self
+          has :doc
+        end
       end
+      @foo = Foo.new
+      @bar = Bar.new
     end
-    @foo = Foo.new
-    @bar = Bar.new
-  end
 
-  it 'should create class attribute' do
-    Foo.metadata = 'Foo metadata'
-    Foo.metadata.should == 'Foo metadata'
-  end
+    it 'should create class attribute' do
+      Foo.metadata = 'Foo metadata'
+      Foo.metadata.should == 'Foo metadata'
+    end
 
-  it 'should access class attribute via self.class' do
-    @foo.class.metadata = '@foo metadata'
-    @foo.class.metadata.should == '@foo metadata'
-    Foo.metadata.should == '@foo metadata'
+    it 'should access class attribute via self.class' do
+      @foo.class.metadata = '@foo metadata'
+      @foo.class.metadata.should == '@foo metadata'
+      Foo.metadata.should == '@foo metadata'
 
-    Foo.metadata = 'Foo metadata'
-    Foo.metadata.should == 'Foo metadata'
-    @foo.class.metadata.should == 'Foo metadata'
-  end
+      Foo.metadata = 'Foo metadata'
+      Foo.metadata.should == 'Foo metadata'
+      @foo.class.metadata.should == 'Foo metadata'
+    end
 
-  it "should list all class's own attributes" do
-    Foo.meta.attributes(false).keys.should == [:metadata]
-  end
+    it "should list all class's own attributes" do
+      Foo.meta.attributes(false).keys.should == [:metadata]
+    end
   
-  it "should list all class's own attributes" do
-    Foo.meta.attributes.keys.should == [:metadata]
-  end
+    it "should list all class's own attributes" do
+      Foo.meta.attributes.keys.should == [:metadata]
+    end
 
-  it 'should create Bar class attribute' do
-    Bar.metadata = 'Bar metadata'
-    Bar.metadata.should == 'Bar metadata'
-  end
+    it 'should create Bar class attribute' do
+      Bar.metadata = 'Bar metadata'
+      Bar.metadata.should == 'Bar metadata'
+    end
 
-  it 'should access class attribute via self.class' do
-    @bar.class.metadata = '@bar metadata'
-    @bar.class.metadata.should == '@bar metadata'
-    Bar.metadata.should == '@bar metadata'
+    it 'should access class attribute via self.class' do
+      @bar.class.metadata = '@bar metadata'
+      @bar.class.metadata.should == '@bar metadata'
+      Bar.metadata.should == '@bar metadata'
 
-    Bar.metadata = 'Bar metadata'
-    Bar.metadata.should == 'Bar metadata'
-    @bar.class.metadata.should == 'Bar metadata'
-  end
+      Bar.metadata = 'Bar metadata'
+      Bar.metadata.should == 'Bar metadata'
+      @bar.class.metadata.should == 'Bar metadata'
+    end
 
-  it 'should not allow inherited class attributes to interfere with each other' do
-    Foo.metadata = 'Foo metadata'
-    @bar.class.metadata = '@bar metadata'
-    @bar.class.metadata.should == '@bar metadata'
-    Bar.metadata.should == '@bar metadata'
+    it 'should not allow inherited class attributes to interfere with each other' do
+      Foo.metadata = 'Foo metadata'
+      @bar.class.metadata = '@bar metadata'
+      @bar.class.metadata.should == '@bar metadata'
+      Bar.metadata.should == '@bar metadata'
 
-    Bar.metadata = 'Bar metadata'
-    Bar.metadata.should == 'Bar metadata'
-    @bar.class.metadata.should == 'Bar metadata'
+      Bar.metadata = 'Bar metadata'
+      Bar.metadata.should == 'Bar metadata'
+      @bar.class.metadata.should == 'Bar metadata'
 
-    Foo.metadata.should == 'Foo metadata'
-    @foo.class.metadata.should == 'Foo metadata'
-  end
+      Foo.metadata.should == 'Foo metadata'
+      @foo.class.metadata.should == 'Foo metadata'
+    end
   
-  it "should list all class's own attributes" do
-    Bar.meta.attributes(false).keys.should == [:doc]
-  end
+    it "should list all class's own attributes" do
+      Bar.meta.attributes(false).keys.should == [:doc]
+    end
   
-  it "should list all class's own attributes" do
-    Bar.meta.attributes.keys.should == [:metadata, :doc]
+    it "should list all class's own attributes" do
+      Bar.meta.attributes.keys.should == [:metadata, :doc]
+    end
   end
-
 end
-
-raise_if_defined(:Foo, :Bar)

data/spec/collector_spec.rb

@@ -0,0 +1,97 @@
+require File.dirname(__FILE__) + '/spec_helper.rb'
+
+describe Doodle, "Simple collector" do
+  temporary_constant :Foo do
+    before :each do
+      class Foo < Doodle::Base
+        has :list, :init => [], :collect => :item
+      end
+      @foo = Foo do
+        item "Hello"
+        item "World"
+      end
+    end
+    after :each do
+      remove_ivars :foo
+    end
+    
+    it "should define a collector method :item" do
+      @foo.methods.include?('item').should == true
+    end
+    
+    it "should collect items into attribute :list" do
+      @foo.list.should == ["Hello", "World"]
+    end
+
+  end
+end
+
+describe Doodle, "Typed collector with default collector name" do
+  temporary_constant :Event, :Location do
+    before :each do
+      class Location < Doodle::Base
+        has :name, :kind => String
+      end
+      class Event < Doodle::Base
+        has :locations, :init => [], :collect => Location
+      end
+      @event = Event do
+        location "Stage 1"
+        location "Stage 2"
+      end
+    end
+    after :each do
+      remove_ivars :event
+    end
+    
+    it "should define a collector method :location" do
+      @event.methods.include?('location').should == true
+    end
+    
+    it "should collect items into attribute :list" do
+      @event.locations.map{|loc| loc.name}.should == ["Stage 1", "Stage 2"]
+    end
+
+  end
+end
+
+describe Doodle, "Typed collector with specified collector name" do
+  temporary_constant :Location, :Event do
+    before :each do
+      class Location < Doodle::Base
+        has :name, :kind => String
+      end
+      class Event < Doodle::Base
+        has :locations, :init => [], :collect => { :place => :Location }
+      end
+    end
+    it "should define a collector method :place" do
+      Event.instance_methods.include?('place').should == true
+    end
+  end
+end
+
+describe Doodle, "Typed collector with specified collector name" do
+  temporary_constant :Location, :Event do
+    before :each do
+      class Location < Doodle::Base
+        has :name, :kind => String
+      end
+      class Event < Doodle::Base
+        has :locations, :init => [], :collect => { :place => Location }
+      end
+    end
+    it "should collect items into attribute :list" do
+      event = nil
+      proc {
+        event = Event do
+          place "Stage 1"
+          place "Stage 2"
+        end
+      }.should_not raise_error
+      event.locations.map{|loc| loc.name}.should == ["Stage 1", "Stage 2"]
+      event.locations.map{|loc| loc.class}.should == [Location, Location]
+    end
+  end
+end
+