active_form 0.0.1

data/test/test_casting.rb

@@ -0,0 +1,124 @@
+require 'test_helper'
+
+class TestCasting < Test::Unit::TestCase
+  
+  def test_type_casting
+    form = ActiveForm::compose :form do |f|
+      f.text_element :string   , :type_cast => :string    , :value => 123
+      f.text_element :text     , :type_cast => :text      , :value => 123
+      f.text_element :integer  , :type_cast => :integer   , :value => 123
+    end
+    assert_equal :string, form[:string].type_cast
+    assert_equal :text, form[:text].type_cast
+    assert_equal :integer, form[:integer].type_cast
+  end
+  
+  def test_cast_raw_element_value    
+    form = ActiveForm::compose :form do |f|
+      f.text_element :string   , :type_cast => :string    , :value => 123
+      f.text_element :text     , :type_cast => :text      , :value => 123
+      f.text_element :integer  , :type_cast => :integer   , :value => 123
+      f.text_element :float    , :type_cast => :float     , :value => 123
+      f.text_element :array    , :type_cast => :array     , :value => 123
+      f.text_element :datetime , :type_cast => :datetime  , :value => '2004-01-01 13:15:05'
+      f.text_element :timestamp, :type_cast => :timestamp , :value => '2004-01-01 13:15:05'
+      f.text_element :time     , :type_cast => :time      , :value => '13:15:05'
+      f.text_element :date     , :type_cast => :date      , :value => '2004-01-01'
+      f.text_element :boolean  , :type_cast => :boolean   , :value => 'f'   
+    end
+    assert_equal '123',   form[:string].element_value
+    assert_equal '123',   form[:text].element_value
+    assert_equal 123,     form[:integer].element_value
+    assert_equal 123.0,   form[:float].element_value
+    assert_equal [123],   form[:array].element_value
+    assert_equal false,   form[:boolean].element_value
+    assert_kind_of Time, form[:time].element_value
+    assert_equal Date.new(2004, 1, 1), form[:date].element_value
+    assert_equal Time.local(2004, 1, 1, 13, 15, 5), form[:datetime].element_value
+    assert_equal Time.local(2004, 1, 1, 13, 15, 5), form[:timestamp].element_value
+  end  
+  
+  def test_cast_native_element_value    
+    form = ActiveForm::compose :form do |f|
+      f.text_element :string    , :type_cast => :string    , :value => 'abc'
+      f.text_element :text      , :type_cast => :text      , :value => 'abc'
+      f.text_element :integer   , :type_cast => :integer   , :value => 123
+      f.text_element :float     , :type_cast => :float     , :value => 123.0
+      f.text_element :array     , :type_cast => :array     , :value => [1, 2, 3]
+      f.text_element :datetime  , :type_cast => :datetime  , :value => Time.local(2004, 1, 1, 13, 15, 5)
+      f.text_element :timestamp , :type_cast => :timestamp , :value => Time.local(2004, 1, 1, 13, 15, 5)
+      f.text_element :time      , :type_cast => :time      , :value => Time.now
+      f.text_element :date      , :type_cast => :date      , :value => Date.new(2004, 1, 1)
+      f.text_element :boolean   , :type_cast => :boolean   , :value => true
+    end                         
+    assert_equal 'abc',   form[:string].element_value
+    assert_equal 'abc',   form[:text].element_value
+    assert_equal 123,     form[:integer].element_value
+    assert_equal 123.0,   form[:float].element_value
+    assert_equal [1, 2, 3],   form[:array].element_value
+    assert_equal true,   form[:boolean].element_value
+    assert_kind_of Time, form[:time].element_value
+    assert_equal Date.new(2004, 1, 1), form[:date].element_value
+    assert_equal Time.local(2004, 1, 1, 13, 15, 5), form[:datetime].element_value
+    assert_equal Time.local(2004, 1, 1, 13, 15, 5), form[:timestamp].element_value
+  end 
+  
+  def test_cast_to_yaml
+    form = ActiveForm::compose :form do |f|
+      f.text_element :string, :type_cast => :yaml, :value => "--- 2007-08-14 13:52:00 +02:00\n"
+    end
+    assert_equal Time.local(2007, 8, 14, 13, 52, 0), form[:string].element_value
+    assert_equal "--- 2007-08-14 13:52:00 +02:00\n", form[:string].formatted_value
+    
+    form = ActiveForm::compose :form do |f|
+      f.text_element :string, :type_cast => :yaml, :value => Time.local(2007, 8, 14, 13, 52, 0)
+    end
+    assert_equal Time.local(2007, 8, 14, 13, 52, 0), form[:string].element_value
+    assert_equal "--- 2007-08-14 13:52:00 +02:00\n", form[:string].formatted_value
+  end
+  
+  def test_set_value
+    form = ActiveForm::compose :form do |f|
+      f.text_element :integer, :type_cast => :integer
+    end
+    form[:integer].value = 123
+    assert_equal 123, form[:integer].value
+    form[:integer].value = '123'
+    assert_equal 123, form[:integer].value
+  end
+  
+  def test_update_value
+    form = ActiveForm::compose :form do |f|
+      f.text_element :integer  , :type_cast => :integer
+      f.text_element :datetime , :type_cast => :datetime   
+    end
+    form.update_values(:datetime => Time.local(2004, 1, 1, 13, 15, 5), :integer => 123)
+    
+    expected = { 'datetime' => Time.local(2004, 1, 1, 13, 15, 5), 'integer' => 123 }
+    assert_equal expected, form.export_values
+    
+    assert_equal 123,   form[:integer].element_value
+    assert_equal '123', form[:integer].formatted_value
+    
+    assert_equal Time.local(2004, 1, 1, 13, 15, 5), form[:datetime].element_value
+    assert_equal 'January 01, 2004 13:15', form[:datetime].formatted_value
+  end
+  
+  def test_update_from_params
+    form = ActiveForm::compose :form do |f|
+      f.text_element :integer  , :type_cast => :integer
+      f.text_element :datetime , :type_cast => :datetime
+    end
+    form.update_from_params('form' => { 'datetime' => '2004-01-01 13:15:05', 'integer' => '123' })
+    
+    expected = { 'datetime' => Time.local(2004, 1, 1, 13, 15, 5), 'integer' => 123 }
+    assert_equal expected, form.export_values
+    
+    assert_equal 123,   form[:integer].element_value
+    assert_equal '123', form[:integer].formatted_value
+        
+    assert_equal Time.local(2004, 1, 1, 13, 15, 5), form[:datetime].element_value
+    assert_equal 'January 01, 2004 13:15', form[:datetime].formatted_value   
+  end
+  
+end

data/test/test_definition.rb

@@ -0,0 +1,68 @@
+require 'test_helper'
+
+class TestDefinition < Test::Unit::TestCase
+  
+  def test_standard_attributes
+    assert ActiveForm::Definition.element_attribute_names.include?(:title)
+    assert ActiveForm::Definition.element_attribute_names.include?(:lang)
+    assert ActiveForm::Definition.element_attribute_names.include?(:method)
+    assert ActiveForm::Definition.element_attribute_names.include?(:enctype)
+    assert ActiveForm::Definition.element_attribute_names.include?(:accept)
+    assert ActiveForm::Definition.element_attribute_names.include?(:"accept-charset")
+    form = ActiveForm::compose :form
+    assert form.respond_to?(:title=)
+    assert form.respond_to?(:style=)
+    assert form.respond_to?(:class=)
+    assert form.respond_to?(:lang=)
+    assert_equal '#form', form.action
+    assert_equal 'post', form.method
+    expected = {"action"=>"#form", "method"=>"post"}
+    assert_equal expected, form.attributes
+    expected = {"class"=>"active_form", "action"=>"#form", "id"=>"form", "method"=>"post"}
+    assert_equal expected, form.element_attributes 
+  end
+  
+  def test_set_standard_attributes
+    form = ActiveForm::compose :form, :action => '/item/edit', :title => 'My Form', :method => 'get', :enctype => 'multipart/form-data', 'accept-charset' => 'utf-8'
+    assert_equal "/item/edit", form.action
+    assert_equal 'My Form', form.title
+    assert_equal 'get', form.method
+    assert_equal 'multipart/form-data', form.enctype
+    assert_equal 'utf-8', form.attributes['accept-charset']
+    expected = {"title"=>"My Form", "enctype"=>"multipart/form-data", "action"=>"/item/edit", "method"=>"get", "accept-charset"=>"utf-8"}
+    assert_equal expected, form.attributes
+    expected = {"class"=>"active_form", "title"=>"My Form", "enctype"=>"multipart/form-data", "action"=>"/item/edit", "id"=>"form", "method"=>"get", "accept-charset"=>"utf-8"}
+    assert_equal expected, form.element_attributes 
+  end
+  
+  def test_standard_option_flags
+    form = ActiveForm::compose :form
+    [:frozen, :hidden, :disabled, :required, :multipart].each do |method|
+      assert ActiveForm::Definition.element_option_flag_names.include?(method)
+      assert form.respond_to?("#{method}") 
+      assert form.respond_to?("#{method}=")
+      assert form.respond_to?("#{method}?")
+    end
+  end
+  
+  def test_multipart_option_flag
+    form = ActiveForm::compose :form, :multipart => false
+    assert !form.multipart?
+    expected = {"class"=>"active_form", "action"=>"#form", "id"=>"form", "method"=>"post"}
+    assert_equal expected, form.element_attributes
+    form = ActiveForm::compose :form, :multipart => true
+    assert form.multipart?
+    expected = {"class"=>"active_form", "action"=>"#form", "id"=>"form", "method"=>"post", "enctype"=>"multipart/form-data"}
+    assert_equal expected, form.element_attributes
+  end
+  
+  def test_render_label
+    form = ActiveForm::compose :form, :label => 'My Element'
+    assert_equal %|<span class="label">My Element</span>\n|, form.render_label
+    form.hidden = true
+    assert_equal %|<span class="hidden label">My Element</span>\n|, form.render_label
+    form.hidden = false; form.required = true; form.frozen = true
+    assert_equal %|<span class="inactive required label">My Element</span>\n|, form.render_label
+  end
+  
+end

data/test/test_definition_class.rb

@@ -0,0 +1,118 @@
+require 'test_helper'
+
+# create ActiveForm::ContactForm < ActiveForm::Definition
+ActiveForm::Definition::create :contact do |f|       
+  
+  f.text_element :firstname,  :title => 'Your firstname'
+  f.text_element :lastname,   :title => 'Your familyname'
+  f.text_element :country
+  f.submit_element              
+
+end
+
+ActiveForm::Definition::create :test do |f|
+  f.text_element :firstname
+  f.text_element :lastname
+  f.submit_element             
+end
+
+class ActiveForm::CustomDefinition < ActiveForm::Definition
+  
+  def do_something_special
+  end
+  
+end
+
+# create ActiveForm::CustomForm < ActiveForm::CustomDefinition
+ActiveForm::CustomDefinition::create :custom do |f|
+  
+  f.text_element :firstname
+  f.text_element :lastname
+  f.submit_element
+  
+end
+
+class TestDefinitionClass < Test::Unit::TestCase
+  
+  def test_create_definition
+    definition = ActiveForm::Definition.create :sample do |f|
+      f.text_element :firstname
+      f.text_element :lastname
+      f.submit_element             
+    end
+    assert_equal ActiveForm::SampleForm, definition
+    assert_equal ActiveForm::SampleForm, ActiveForm::Definition.get(:sample)
+    assert_kind_of ActiveForm::SampleForm, definition.new(:test)
+  end
+  
+  def test_recreate_created_class
+    definition = ActiveForm::Definition.create :contact
+    assert_equal nil, definition
+  end
+  
+  def test_get_and_modify_class
+    assert_equal ActiveForm::TestForm, ActiveForm::Definition.modify(:test)
+    ActiveForm::Definition.get(:test) do |f|
+      
+      f.define_validation do |form|
+        form.errors.add('please give your family name', 'empty') if form[:lastname].blank?   
+      end
+      
+    end
+    form = ActiveForm::Definition.build(:test)
+    form.validate   
+    expected = ["please give your family name"]
+    assert_equal expected, form.all_errors.collect(&:message)
+  end
+  
+  def test_get_and_build
+    assert_equal ActiveForm::ContactForm, ActiveForm::Definition.get(:contact)
+    form = ActiveForm::Definition.build(:contact)
+    assert_kind_of ActiveForm::ContactForm, form
+    assert_equal :contact, form.name
+    form = ActiveForm::Definition.build(:contact, :my_form)
+    assert_kind_of ActiveForm::ContactForm, form
+    assert_equal :my_form, form.name
+  end
+  
+  def test_build_with_block
+    form = ActiveForm::Definition.build(:contact) do |f|
+      f.define_element_at(-2, :textarea, :comment) do |e|
+        e.label = 'Your comment'
+      end
+    end
+    assert_kind_of ActiveForm::ContactForm, form
+    assert_kind_of ActiveForm::Definition, form
+    assert_equal :contact, form.name   
+    assert_equal [:firstname, :lastname, :country, :comment, :submit], form.collect(&:name)
+    assert_equal 'Your comment', form[:comment].label
+  end
+  
+  def test_localization_of_prebuild_form
+    translations = {
+      'firstname_title' => 'Uw voornaam',
+      'firstname_label' => 'Voornaam',
+      'lastname_label' => 'Achternaam',
+      'country_label' => nil
+    }   
+    form = ActiveForm::Definition.build(:contact)
+    form.define_localizer { |formname, elemname, key| translations[ [elemname, key].compact.join('_') ] }   
+    assert form.localized? 
+    assert_equal 'Uw voornaam', form[:firstname].title
+    assert_equal 'Voornaam', form[:firstname].label
+    assert_equal 'Achternaam', form[:lastname].label
+    assert_equal 'Your familyname', form[:lastname].title
+    assert_equal 'Country', form[:country].label
+  end
+  
+  def test_subclassed_definition
+    assert_equal ActiveForm::CustomForm, ActiveForm::CustomDefinition.get(:custom)
+    assert_equal ActiveForm::CustomForm, ActiveForm::Definition.get(:custom)
+    form = ActiveForm::Definition.build(:custom)
+    assert_kind_of ActiveForm::CustomDefinition, form
+    assert_kind_of ActiveForm::CustomForm, form
+    assert_kind_of ActiveForm::Definition, form    
+    assert form.respond_to?(:do_something_special)    
+  end
+  
+end

data/test/test_element_class.rb

@@ -0,0 +1,201 @@
+require 'test_helper'
+
+ActiveForm::Element::create :simple_widget do
+   
+  def render_element(builder = create_builder)
+    builder.h1(label, { :id => identifier, :class => css })
+  end 
+    
+end
+
+ActiveForm::Element::Input::create :special_widget do
+  
+  def default_attributes
+    super.merge(:type => 'special')
+  end 
+  
+end
+
+class TestElementClass < Test::Unit::TestCase
+  
+  def test_create_element_class
+    assert_equal ActiveForm::Element::SimpleWidget , ActiveForm::Element::get(:simple_widget)
+    elem = ActiveForm::Element::build(:simple_widget, :easy)
+    assert_kind_of ActiveForm::Element::SimpleWidget, elem
+    assert_kind_of ActiveForm::Element::Base, elem
+    expected= %|<h1 class=\"elem_simple_widget\" id=\"easy\">Easy</h1>\n|
+    assert_equal expected, elem.to_html
+  end
+  
+  def test_create_input_element_class
+    assert_equal ActiveForm::Element::SpecialWidget, ActiveForm::Element::get(:special_widget)
+    elem = ActiveForm::Element::build(:special_widget, :magic)
+    assert_kind_of ActiveForm::Element::SpecialWidget, elem
+    assert_kind_of ActiveForm::Element::Input, elem
+    assert_kind_of ActiveForm::Element::Base, elem
+    expected= %|<input class="elem_special_widget" id="magic" name="magic" type="special"/>\n|
+    assert_equal expected, elem.to_html
+  end
+  
+  def test_sample_element_attribute_names
+    assert !ActiveForm::Element::Base.element_attribute_names.include?(:foo)
+    assert !ActiveForm::Element::Base.element_attribute_names.include?(:bar)
+    assert !ActiveForm::Element::Base.element_attribute_names.include?(:baz)    
+    assert ActiveForm::Element::Sample.element_attribute_names.include?(:foo)
+    assert ActiveForm::Element::Sample.element_attribute_names.include?(:bar)
+    assert !ActiveForm::Element::Sample.element_attribute_names.include?(:baz)    
+    assert ActiveForm::Element::ExtendedSample.element_attribute_names.include?(:foo)
+    assert ActiveForm::Element::ExtendedSample.element_attribute_names.include?(:bar)
+    assert ActiveForm::Element::ExtendedSample.element_attribute_names.include?(:baz)
+  end
+  
+  def test_sample_attribute_methods
+    assert !ActiveForm::Element::Base.new(:test).respond_to?(:foo)
+    assert ActiveForm::Element::Sample.new(:test).respond_to?(:foo)
+    assert ActiveForm::Element::ExtendedSample.new(:test).respond_to?(:foo)
+    assert !ActiveForm::Element::Base.new(:test).respond_to?(:baz)
+    assert !ActiveForm::Element::Sample.new(:test).respond_to?(:baz)
+    assert ActiveForm::Element::ExtendedSample.new(:test).respond_to?(:baz)
+    
+    assert !ActiveForm::Element::Base.new(:test).respond_to?(:foo=)
+    assert ActiveForm::Element::Sample.new(:test).respond_to?(:foo=)
+    assert ActiveForm::Element::ExtendedSample.new(:test).respond_to?(:foo=)
+    assert !ActiveForm::Element::Base.new(:test).respond_to?(:baz=)
+    assert !ActiveForm::Element::Sample.new(:test).respond_to?(:baz=)
+    assert ActiveForm::Element::ExtendedSample.new(:test).respond_to?(:baz=)
+  end
+  
+  def test_sample_element_html_flag_names
+    assert !ActiveForm::Element::Base.element_html_flag_names.include?(:flipped)
+    assert !ActiveForm::Element::Base.element_html_flag_names.include?(:flopped)
+    assert ActiveForm::Element::Sample.element_html_flag_names.include?(:flipped)
+    assert !ActiveForm::Element::Sample.element_html_flag_names.include?(:flopped)
+    assert ActiveForm::Element::ExtendedSample.element_html_flag_names.include?(:flipped)
+    assert ActiveForm::Element::ExtendedSample.element_html_flag_names.include?(:flopped)
+  end
+  
+  def test_sample_html_flag_methods
+    assert !ActiveForm::Element::Base.new(:test).respond_to?(:flipped)
+    assert !ActiveForm::Element::Base.new(:test).respond_to?(:flopped)
+    assert !ActiveForm::Element::Base.new(:test).respond_to?(:flipped=)
+    assert !ActiveForm::Element::Base.new(:test).respond_to?(:flopped=)
+    assert !ActiveForm::Element::Base.new(:test).respond_to?(:flipped?)
+    assert !ActiveForm::Element::Base.new(:test).respond_to?(:flopped?)    
+    assert ActiveForm::Element::Sample.new(:test).respond_to?(:flipped)
+    assert !ActiveForm::Element::Sample.new(:test).respond_to?(:flopped)
+    assert ActiveForm::Element::Sample.new(:test).respond_to?(:flipped=)
+    assert !ActiveForm::Element::Sample.new(:test).respond_to?(:flopped=)
+    assert ActiveForm::Element::Sample.new(:test).respond_to?(:flipped?)
+    assert !ActiveForm::Element::Sample.new(:test).respond_to?(:flopped?)
+    assert ActiveForm::Element::ExtendedSample.new(:test).respond_to?(:flipped)
+    assert ActiveForm::Element::ExtendedSample.new(:test).respond_to?(:flopped)  
+    assert ActiveForm::Element::ExtendedSample.new(:test).respond_to?(:flipped=)
+    assert ActiveForm::Element::ExtendedSample.new(:test).respond_to?(:flopped=)
+    assert ActiveForm::Element::ExtendedSample.new(:test).respond_to?(:flipped?)
+    assert ActiveForm::Element::ExtendedSample.new(:test).respond_to?(:flopped?)  
+  end
+  
+  def test_sample_option_flag_methods
+    assert !ActiveForm::Element::Base.new(:test).respond_to?(:closed)
+    assert ActiveForm::Element::Sample.new(:test).respond_to?(:closed)
+    assert ActiveForm::Element::Sample.new(:test).respond_to?(:closed=)
+    assert ActiveForm::Element::Sample.new(:test).respond_to?(:closed?)
+    assert ActiveForm::Element::ExtendedSample.new(:test).respond_to?(:closed)
+    assert ActiveForm::Element::ExtendedSample.new(:test).respond_to?(:closed=)
+    assert ActiveForm::Element::ExtendedSample.new(:test).respond_to?(:closed?)
+  end
+  
+  def test_attributes
+    element = ActiveForm::Element::Sample.new(:test)
+    element.foo = 'one'
+    element.bar = 'two'
+    assert_equal 'one', element.foo
+    assert_equal 'two', element.bar    
+  end
+  
+  def test_element_attributes
+    element = ActiveForm::Element::ExtendedSample.new(:test)
+    element.attributes[:custom] = 'special' #non-standard
+    element.foo = 'one'
+    element.flipped = true
+    element.closed = true
+    assert element.closed?
+    expected = { "flipped"=>"flipped", "name"=>"test", "class"=>"elem_extended_sample", "foo"=>"one", "id"=>"test", "custom"=>"special" }
+    assert_equal expected, element.element_attributes
+  end
+  
+  def test_html_flags
+    element = ActiveForm::Element::ExtendedSample.new(:test)
+    element.flipped = true
+    element.flopped = 'yes'
+    assert element.flipped?
+    assert element.flopped?
+    element.flipped = false
+    assert !element.flipped?
+    assert !element.rotated?
+    element.rotated = 'true'
+    assert element.rotated?
+  end
+  
+  def test_default_css_class
+    assert_equal "active_form", ActiveForm::compose(:test).default_css_class
+    assert_equal "elem_base", ActiveForm::Element::Base.new(:test).default_css_class
+    assert_equal "active_section", ActiveForm::Element::Section.new(:test).default_css_class
+  end
+  
+  def test_css_class_attribute
+    element = ActiveForm::Element::ExtendedSample.new(:test)
+    element.css_class = 'one two three'
+    css_class_full = 'one two three elem_extended_sample'
+    assert_equal ['one', 'two', 'three'], element.css_class
+    assert_equal css_class_full, element.css
+    assert_equal css_class_full, element.element_class
+    element.css_class += 'four'
+    assert_equal ['one', 'two', 'three', 'four'], element.css_class
+    element.css_class -= 'two'
+    assert_equal ['one', 'three', 'four'], element.css_class
+    element.css_class << 'five six'
+    assert_equal 'one three four five six', element.css_class.to_s
+    element.css_class = 'seven'
+    assert_equal 'seven', element.css_class.to_s
+  end
+  
+  def test_css_style_attribute
+    element = ActiveForm::Element::ExtendedSample.new(:test)
+    element.css_style = 'background: red'
+    assert_equal 'background: red', element.css_style.to_s
+    assert_equal element.css_style.to_s, element.style
+    element.css_style << 'padding: 20px'
+    assert_equal 'background: red;padding: 20px', element.css_style.to_s
+    element.css_style = nil
+    assert_equal '', element.css_style.to_s
+    element.css_style = ['color: blue', 'background: black']
+    assert_equal 'color: blue;background: black', element.css_style.to_s
+    element.css_style -= 'color: blue'
+    assert_equal 'background: black', element.css_style.to_s
+    assert_equal element.css_style.to_s, element.style
+    assert_equal element.css_style.to_s, element.element_style
+    expected = {"name"=>"test", "class"=>"elem_extended_sample", "id"=>"test", "style"=>"background: black"}
+    assert_equal expected, element.element_attributes    
+  end
+  
+  def test_skip_css_class
+    element = ActiveForm::Element::ExtendedSample.new(:test)
+    expected = {"name"=>"test", "class"=>"elem_extended_sample", "id"=>"test"}
+    assert_equal expected, element.element_attributes
+    element.skip_css_class = true
+    expected = {"name"=>"test", "class"=>"elem_extended_sample", "id"=>"test"}
+    assert_equal expected, element.element_attributes  
+  end
+  
+  def test_skip_css_style
+    element = ActiveForm::Element::ExtendedSample.new(:test)
+    element.css_style = 'background: red'
+    expected = {"name"=>"test", "class"=>"elem_extended_sample", "id"=>"test", "style"=>"background: red"}
+    assert_equal expected, element.element_attributes
+    element.skip_css_style = true
+    expected = {"name"=>"test", "class"=>"elem_extended_sample", "id"=>"test"}
+    assert_equal expected, element.element_attributes
+  end
+  
+end