doodle 0.0.1

data/spec/class_spec.rb

@@ -0,0 +1,90 @@
+$:.unshift(File.join(File.dirname(__FILE__), '../.'))
+require 'lib/spec_helper'
+
+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
+      end
+    end
+    @foo = Foo.new
+    class Bar < Foo
+      include Doodle::Helper
+      class << self
+        has :doc
+      end
+    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 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
+
+  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 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'
+
+    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'
+
+    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
+  
+  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]
+  end
+
+end
+
+raise_if_defined(:Foo, :Bar)

data/spec/conversion_spec.rb

@@ -0,0 +1,59 @@
+$:.unshift(File.join(File.dirname(__FILE__), '../.'))
+
+require 'lib/spec_helper'
+require 'date'
+
+describe Doodle, 'defaults which have not been set' do
+  after :each do
+    undefine_const(:Foo)
+  end
+  before(:each) do
+    raise_if_defined(:Foo)
+    class Foo < Doodle::Base
+      has :start do
+        default { Date.today }
+        from String do |s|
+          Doodle::Debug.d { [:converting_from, String, s] }
+          Date.parse(s)
+        end
+        from Integer do |jd|
+          Doodle::Debug.d { [:converting_from, Integer, jd] }
+          Date.new(*Date.jd_to_civil(jd))
+        end
+      end
+      from String do |s|
+        Doodle::Debug.d { [:from, self, self.class] }
+        new(:start => s)
+      end
+    end
+  end
+
+  it 'should have default date == today' do
+    foo = Foo.new
+    foo.start.should == Date.today
+  end
+
+  it 'should convert String to Date' do
+    foo = Foo.new(:start => '2007-12-31')
+    foo.start.should == Date.new(2007, 12, 31)
+  end
+
+  it 'should convert Integer representing Julian date to Date' do
+    foo = Foo.new(:start => 2454428)
+    foo.start.should == Date.new(2007, 11, 23)
+  end
+
+  it 'should allow from' do
+    foo = Foo.from("2007-12-31")
+    foo.start.should == Date.new(2007, 12, 31)
+  end
+  
+  it 'should allow factory function' do
+#     class Foo
+#       include Doodle::Factory
+#     end
+    foo = Foo("2007-12-31")
+    foo.start.should == Date.new(2007, 12, 31)
+  end
+end
+

data/spec/defaults_spec.rb

@@ -0,0 +1,158 @@
+$:.unshift(File.join(File.dirname(__FILE__), '../.'))
+
+require 'lib/spec_helper'
+require 'date'
+raise_if_defined :Foo, :Text, :Text2, :KeyValue
+
+describe Doodle, 'attributes with defaults' do
+  
+  before(:each) do
+    raise_if_defined :Foo
+    class Foo
+      include Doodle::Helper
+      has :name, :default => 'D1'
+      class << self
+        has :metadata, :default => 'D2'
+      end
+    end
+    @foo = Foo.new
+    class << @foo
+      has :special, :default => 'D3'
+    end
+  end
+  after :each do
+    undefine_const :Foo
+  end
+  
+  it 'should have instance attribute default via class' do
+    Foo.attributes[:name].default.should == 'D1'
+  end
+  it 'should have instance attribute default via instance' do
+    @foo.attributes[:name].default.should == 'D1'
+  end
+  it 'should have class attribute default via class.meta' do
+    Foo.meta.attributes(false)[:metadata].default.should == 'D2'
+  end
+  it 'should have class attribute default via class.meta' do
+    Foo.meta.attributes[:metadata].default.should == 'D2'
+  end
+  it 'should have singleton attribute default via instance.meta.attributes(false)' do
+    @foo.meta.attributes(false)[:special].default.should == 'D3'
+  end
+  it 'should have singleton attribute default via instance.meta.attributes' do
+    @foo.meta.attributes[:special].default.should == 'D3'
+  end
+  it 'should have singleton attribute name by default' do
+    @foo.name.should == 'D1'
+  end
+  it 'should have singleton attribute name by default' do
+    Foo.metadata.should == 'D2'
+  end
+  it 'should have singleton attribute special by default' do
+    @foo.special.should == 'D3'
+  end
+
+  it 'should not have a @name instance variable' do
+    @foo.instance_variables.include?("@name").should == false
+    @foo.instance_variables.sort.should == []
+  end
+  it 'should not have a @metadata class instance variable' do
+    Foo.instance_variables.include?("@metadata").should == false
+    Foo.instance_variables.sort.should == []
+  end
+  it 'should not have @special singleton instance variable' do
+    @foo.meta.instance_variables.include?("@special").should == false
+    @foo.meta.instance_variables.sort.should == []
+  end
+end
+
+describe Doodle, 'defaults which have not been set' do
+  before :each do
+    raise_if_defined :Foo
+    class Foo < Doodle::Base
+      has :baz
+    end
+  end
+  after :each do
+    undefine_const :Foo
+  end
+
+  it 'should raise error if required attributes not passed to new' do
+    proc { foo = Foo.new }.should raise_error(ArgumentError)
+  end
+
+  it 'should not raise error if required attributes passed to new' do
+    proc { foo = Foo.new(:baz => 'Hi' ) }.should_not raise_error
+  end
+
+end
+
+describe Doodle, 'defaults which have been set' do
+  before :each do
+    raise_if_defined :Foo
+    class Foo < Doodle::Base
+      has :baz, :default => 'Hi!'
+      has :start do
+        default { Date.today }
+      end
+    end
+    @foo = Foo.new
+  end
+  after :each do
+    undefine_const :Foo
+  end
+
+  it 'should have default value set from hash arg' do
+    @foo.baz.should == 'Hi!'
+  end
+
+  it 'should have default value set from block' do
+    @foo.start.should == Date.today
+  end
+end
+
+describe Doodle, "overriding inherited defaults" do
+  before :each do
+    raise_if_defined :Text, :Text2, :KeyValue
+    class KeyValue < Doodle::Base
+      has :name
+      has :value
+      def to_s
+        %[--#{name}="#{value}"]
+      end
+    end
+    class Text < KeyValue
+      has :name, :default => "text"
+    end
+    class Text2 < Text
+      has :value, :default => "any2"
+    end
+  end
+  after :each do
+    undefine_const :Text2
+    undefine_const :Text
+    undefine_const :KeyValue
+  end
+  
+  it 'should not raise error if initialized with required values' do
+    proc { Text.new(:value => 'any') }.should_not raise_error
+  end
+  
+  it 'should allow initialization using defaults' do
+    text = Text.new(:value => 'any')
+    text.name.should == 'text'
+    text.value.should == 'any'
+  end
+  
+  it 'should raise NoDefaultError if initialized without all required values' do
+    proc { KeyValue.new(:value => 'Enter name:') }.should raise_error(Doodle::NoDefaultError)
+  end
+  
+  it 'should allow initialization using inherited defaults' do
+    text = Text2.new
+    text.name.should == 'text'
+    text.value.should == 'any2'
+  end
+end
+
+raise_if_defined :Foo, :Text, :Text2, :KeyValue

data/spec/doodle_spec.rb

@@ -0,0 +1,297 @@
+$:.unshift(File.join(File.dirname(__FILE__), '../.'))
+
+# require 'relpath'
+# loaddir_parent(__FILE__)
+require 'lib/spec_helper'
+
+describe Doodle, 'basics' do
+  after :each do
+    undefine_const(:Foo)
+  end
+  before(:each) do
+    raise_if_defined :Foo
+    class Foo
+      include Doodle::Helper
+    end
+    @foo = Foo.new
+  end
+
+  it 'should have meta as synonym for singleton_class' do
+    Foo.singleton_class.should == Foo.meta
+    @foo.singleton_class.should == @foo.meta
+  end
+end
+
+describe Doodle, 'instance attributes' do
+  after :each do
+    undefine_const(:Foo)
+  end
+  before(:each) do
+    raise_if_defined :Foo
+    class Foo
+      include Doodle::Helper
+      has :name, :default => nil
+    end
+    @foo = Foo.new
+  end
+
+  it 'should create attribute' do
+    @foo.name = 'Smee'
+    @foo.name.should == 'Smee'
+  end
+
+  it 'should create attribute using getter_setter' do
+    @foo.name 'Smee'
+    @foo.name.should == 'Smee'
+  end
+
+  it 'should list instance attributes(false)' do
+    @foo.attributes(false).keys.should == []
+  end
+
+  it 'should list instance attributes' do
+    @foo.attributes.keys.should == [:name]
+  end
+  
+  it 'should list all instance attributes(false) at class level' do
+    Foo.attributes(false).keys.should == [:name]
+  end
+  
+end
+
+describe Doodle, 'class attributes(false)' do
+  after :each do
+    undefine_const(:Foo)
+  end
+  before(:each) do
+    raise_if_defined :Foo
+    class Foo
+      include Doodle::Helper
+      class << self
+        has :metadata
+      end
+    end
+    @foo = Foo.new
+  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'
+
+    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.keys.should == [:metadata]
+  end
+
+end
+
+describe Doodle, 'inherited class attributes(false)' do
+  after :each do
+    undefine_const(:Foo)
+    undefine_const(:Bar)
+  end
+  before(:each) do
+    raise_if_defined :Foo, :Bar
+  
+    class Foo
+      include Doodle::Helper
+      has :name, :default => nil
+      class << self
+        has :metadata
+      end
+    end
+    class Bar < Foo
+      has :location, :default => nil
+      class << self
+        has :doc
+      end
+    end
+    @foo = Foo.new
+    @bar = Bar.new
+  end
+
+  it 'should create inherited class attribute' do
+    Foo.metadata = 'Foo metadata'
+    Bar.metadata = 'Bar metadata'
+    Foo.metadata.should == 'Foo metadata'
+    Bar.metadata.should == 'Bar 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'
+
+    Foo.metadata = 'Foo metadata'
+    Bar.metadata = 'Bar metadata'
+    Foo.metadata.should == 'Foo metadata'
+    Bar.metadata.should == 'Bar metadata'
+    Foo.metadata.should == 'Foo metadata'
+    @foo.class.metadata.should == 'Foo metadata'
+    @bar.class.metadata.should == 'Bar metadata'
+  end
+
+  it 'should access inherited 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'
+
+    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
+  
+  it "should list 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 class's own attributes(false)" do
+    Bar.meta.attributes(false).keys.should == [:doc]
+  end
+
+  it "should list all inherited meta class attributes" do
+    Bar.meta.attributes.keys.should == [:metadata, :doc]
+  end
+
+  it "should list all inherited class's attributes" do
+    Bar.attributes.keys.should == [:name, :location]
+  end
+end
+
+describe Doodle, 'singleton class attributes' do
+  after :each do
+    undefine_const(:Foo)
+  end
+  before(:each) do
+    raise_if_defined :Foo
+  
+    class Foo
+      include Doodle::Helper
+      has :name, :default => nil
+      class << self
+        has :metadata
+      end
+    end
+    @foo = Foo.new
+    class << @foo
+      has :special, :default => nil
+    end
+  end
+  
+  it 'should allow creation of singleton class attributes' do
+    @foo.special = 42
+    @foo.special.should == 42
+  end
+
+  it 'should list instance attributes' do
+    @foo.meta.attributes(false).keys.should == [:special]
+  end
+
+  it 'should list instance attributes' do
+    @foo.meta.attributes.keys.should == [:metadata, :special]
+  end
+  
+end
+
+describe Doodle, 'inherited singleton class attributes' do
+  after :each do
+    undefine_const(:Foo)
+    undefine_const(:Bar)
+  end
+  before(:each) do
+    raise_if_defined :Foo, :Bar
+    
+    class Foo
+      include Doodle::Helper
+      has :name, :default => nil
+      class << self
+        has :metadata
+      end
+    end
+    class Bar < Foo
+      has :info, :default => nil
+      class << self
+        has :doc
+      end
+    end
+
+    @foo = Foo.new
+    class << @foo
+      has :special, :default => nil # must give default because already initialized
+    end
+    @bar = Bar.new
+    @bar2 = Bar.new
+    class << @bar
+      has :extra
+    end
+  end
+  
+  it 'should allow creation of singleton class attributes' do
+    @foo.special = 42
+    @foo.special.should == 42
+    @bar.extra = 84
+    @bar.extra.should == 84
+    proc { @foo.extra = 1 }.should raise_error(NoMethodError)
+    proc { @bar2.extra = 1 }.should raise_error(NoMethodError)
+    proc { @bar.special = 1 }.should raise_error(NoMethodError)
+  end
+
+  it 'should list instance attributes' do
+    @foo.class.attributes(false).keys.should == [:name]
+    @bar.class.attributes(false).keys.should == [:info]
+    @bar2.class.attributes(false).keys.should == [:info]
+  end
+
+  it 'should list instance meta attributes' do
+    @foo.meta.attributes(false).keys.should == [:special]
+    @bar.meta.attributes(false).keys.should == [:extra]
+  end
+
+  it 'should list instance attributes' do
+    @foo.meta.attributes.keys.should == [:metadata, :special]
+    @bar.meta.attributes.keys.should == [:metadata, :doc, :extra]
+  end
+  
+  it 'should keep meta attributes separate' do
+     @foo.special = 'foo special'
+     @foo.meta.metadata = 'foo meta'
+#     @bar.meta.metadata = 'bar meta'
+#     @bar.meta.doc = 'bar doc'
+#     Foo.metadata = 'Foo meta'
+#     Bar.metadata = 'Bar meta'
+#     Bar.doc = 'Bar doc'
+
+#     @foo.meta.metadata.should == 'foo meta'
+#     @bar.meta.metadata.should == 'bar meta'
+#     @bar.meta.doc.should == 'bar doc'
+#     Foo.metadata.should == 'Foo meta'
+#     Bar.metadata.should == 'Bar meta'
+#     Bar.doc.should == 'Bar doc'
+
+#     proc { @foo.meta.doc = 1 }.should raise_error(NoMethodError)
+  end
+end
+