active_form 0.0.1

data/test/facets/test_select_date_element.rb

@@ -0,0 +1,211 @@
+require 'test_helper'
+
+class TestSelectDateElement < Test::Unit::TestCase
+  
+  def teardown
+    ActiveForm::use_american_formatting
+  end
+  
+  def test_format
+    form = ActiveForm::compose :form do |f|
+      f.select_date_element :start, :format => [:day, :month, :year], :range => (2000..2005)
+    end
+    assert_equal [:day, :month, :year], form[:start].collect(&:name) 
+    range = Range.new(2000, 2005)
+    assert_equal [*range], form[:start][:year].collect(&:value)
+    assert_equal range.map(&:to_s), form[:start][:year].collect(&:label) 
+  end
+  
+  def test_european_formatting
+    ActiveForm::use_european_formatting
+    elem = ActiveForm::Element::SelectDate.new :date
+    assert_equal [:day, :month, :year], elem.collect(&:name)
+  end
+  
+  def test_american_formatting
+    ActiveForm::use_american_formatting
+    elem = ActiveForm::Element::SelectDate.new :date
+    assert_equal [:month, :day, :year], elem.collect(&:name)
+  end
+  
+  def test_invalid_dates
+    expected = {"month"=>1, "day"=>1, "year"=>2000}   
+    elem = ActiveForm::Element::SelectDate.new :date, :start_year => 2000, :end_year => 2010
+    elem.value = '34-11-2006'
+    assert_equal expected, elem.export_value
+    elem.value = '2-34-2006'
+    assert_equal expected, elem.export_value
+    elem.value = nil
+    assert_equal expected, elem.export_value
+    elem.value = ''
+    assert_equal expected, elem.export_value
+    elem.value = { :month => 24, :day => 2, :year => 2005 }
+    expected = {"month"=>12, "day"=>2, "year"=>2005}  
+    assert_equal expected, elem.export_value
+  end
+  
+  def test_define_start_and_end_year
+    elem = ActiveForm::Element::SelectDate.new :date, :start_year => 2000, :end_year => 2006
+    range = Range.new(2000, 2006)
+    assert_equal [*range], elem[:year].collect(&:value)
+    assert_equal range.map(&:to_s), elem[:year].collect(&:label)    
+  end
+  
+  def test_assign_value_and_export_value
+    form = ActiveForm::compose :form do |f|
+      f.select_date_element :start, :format => [:day, :month, :year], :range => (2005..2010)
+    end
+    expected = {"month"=>1, "day"=>1, "year"=>2005}
+    assert_equal expected, form[:start].export_value 
+    
+    form[:start].value = { :day => 11, :month => 9 }
+    expected = {"month"=>9, "day"=>11, "year"=>2005}
+    assert_equal expected, form[:start].export_value 
+    
+    form[:start].value = { :day => 11, :month => 9, :year => 2008 }
+    expected = {"month"=>9, "day"=>11, "year"=>2008}
+    assert_equal expected, form[:start].export_value 
+    
+    form[:start].value = Time.local(2007, 8, 14, 13, 52, 5)
+    expected = {"month"=>8, "day"=>14, "year"=>2007}
+    assert_equal expected, form[:start].export_value
+    
+    form[:start].value = '2007-08-14 13:52:05'
+    expected = {"month"=>8, "day"=>14, "year"=>2007}
+    assert_equal expected, form[:start].export_value
+    
+    form[:start].value = '2007-08-14'
+    expected = {"month"=>8, "day"=>14, "year"=>2007}
+    assert_equal expected, form[:start].export_value
+    
+    form[:start].value = '14-08-2007'
+    expected = {"month"=>8, "day"=>14, "year"=>2007}
+    assert_equal expected, form[:start].export_value
+  end
+  
+  def test_export_value_as_casted
+    elem = ActiveForm::Element::SelectDate.new :date, :range => (2000..2010)
+    elem.value = '2007-08-14'
+    expected = {"month"=>8, "day"=>14, "year"=>2007}
+    assert_equal expected, elem.export_value
+    
+    elem = ActiveForm::Element::SelectDate.new :date, :now => Time.local(2007, 8, 14, 13, 52, 5), :range => (2000..2010), :type_cast => :hash
+    expected = {"month"=>8, "second"=>5, "minute"=>52, "hour"=>13, "day"=>14, "year"=>2007}
+    assert_equal expected, elem.export_value
+    
+    elem = ActiveForm::Element::SelectDate.new :date, :now => Time.local(2007, 8, 14, 13, 52, 5), :range => (2000..2010), :type_cast => :array
+    assert_equal [2007, 8, 14, 13, 52, 5], elem.export_value
+    
+    elem = ActiveForm::Element::SelectDate.new :date, :now => Time.local(2007, 8, 14, 13, 52, 5), :range => (2000..2010), :type_cast => :string
+    assert_equal "2007-08-14 13:52:05", elem.export_value
+    
+    elem = ActiveForm::Element::SelectDate.new :date, :now => Time.local(2007, 8, 14, 13, 52, 5), :range => (2000..2010), :type_cast => :date
+    assert_equal Time.local(2007, 8, 14, 13, 52, 5).to_date, elem.export_value
+    
+    elem = ActiveForm::Element::SelectDate.new :date, :now => Time.local(2007, 8, 14, 13, 52, 5), :range => (2000..2010), :type_cast => :time
+    assert_equal Time.local(2007, 8, 14, 13, 52, 5), elem.export_value
+  end
+  
+  def test_default_value
+    elem = ActiveForm::Element::SelectDate.new :date, :range => (2000..2010)
+    expected = {"month"=>1, "day"=>1, "year"=>2000}
+    assert_equal expected, elem.export_value
+    
+    elem = ActiveForm::Element::SelectDate.new :date, :now => Time.local(2007, 8, 14, 13, 52, 5), :range => (2000..2010)
+    expected = {"month"=>8, "day"=>14, "year"=>2007}
+    assert_equal expected, elem.value
+    assert_equal expected, elem.export_value
+  end
+  
+  def test_update_from_params
+    form = ActiveForm::compose :form do |f|
+      f.select_date_element :start, :range => (2000..2010)
+    end
+    expected = { 'month' => 9, 'day' => 22, 'year' => 2006 }
+    form.update_from_params({ 'form' => { 'start' => { 'month' => '9', 'day' => '22', 'year' => '2006' } } })
+    assert_equal expected, form[:start].export_value  
+    form.update_from_params({ 'form' => { 'start' => '22-09-2006 13:52:05' } })
+    assert_equal expected, form[:start].export_value  
+    form.update_from_params({ 'form' => { 'start' => '22-09-2006' } })
+    assert_equal expected, form[:start].export_value
+    form.update_from_params({ 'form' => { 'start' => '2006/09/22' } })
+    assert_equal expected, form[:start].export_value
+  end
+  
+  def test_assign_with_now
+    form = ActiveForm::compose :form do |f|
+      f.select_date_element :start, :now => Time.local(2004, 12, 24, 13, 52, 5), :range => (2000..2010)
+    end
+    expected = {"month"=>12, "day"=>24, "year"=>2004}
+    assert_equal expected, form[:start].export_value
+  end
+
+  def test_element_to_html
+    form = ActiveForm::compose :form do |f|
+      f.select_date_element :start, :format => [:day, :month, :year], :range => (2005..2006) do |e|
+        e[:month].use_short_month = true
+      end
+    end
+    expected = %|<div class="active_select_date" id="form_start">
+  <span class="elem_select_day" id="elem_form_start_day">
+    <select class="elem_select_day" id="form_start_day" name="form[start][day]">
+      <option selected="selected" value="1">01</option>
+      <option value="2">02</option>
+      <option value="3">03</option>
+      <option value="4">04</option>
+      <option value="5">05</option>
+      <option value="6">06</option>
+      <option value="7">07</option>
+      <option value="8">08</option>
+      <option value="9">09</option>
+      <option value="10">10</option>
+      <option value="11">11</option>
+      <option value="12">12</option>
+      <option value="13">13</option>
+      <option value="14">14</option>
+      <option value="15">15</option>
+      <option value="16">16</option>
+      <option value="17">17</option>
+      <option value="18">18</option>
+      <option value="19">19</option>
+      <option value="20">20</option>
+      <option value="21">21</option>
+      <option value="22">22</option>
+      <option value="23">23</option>
+      <option value="24">24</option>
+      <option value="25">25</option>
+      <option value="26">26</option>
+      <option value="27">27</option>
+      <option value="28">28</option>
+      <option value="29">29</option>
+      <option value="30">30</option>
+      <option value="31">31</option>
+    </select>
+  </span>
+  <span class="elem_select_month" id="elem_form_start_month">
+    <select class="elem_select_month" id="form_start_month" name="form[start][month]">
+      <option selected="selected" value="1">Jan</option>
+      <option value="2">Feb</option>
+      <option value="3">Mar</option>
+      <option value="4">Apr</option>
+      <option value="5">May</option>
+      <option value="6">Jun</option>
+      <option value="7">Jul</option>
+      <option value="8">Aug</option>
+      <option value="9">Sep</option>
+      <option value="10">Oct</option>
+      <option value="11">Nov</option>
+      <option value="12">Dec</option>
+    </select>
+  </span>
+  <span class="elem_select_year" id="elem_form_start_year">
+    <select class="elem_select_year" id="form_start_year" name="form[start][year]">
+      <option selected="selected" value="2005">2005</option>
+      <option value="2006">2006</option>
+    </select>
+  </span>
+</div>\n|
+    assert_equal expected, form[:start].to_html
+  end
+  
+end

data/test/facets/test_select_datetime_element.rb

@@ -0,0 +1,56 @@
+require 'test_helper'
+
+class TestSelectDatetimeElement < Test::Unit::TestCase
+  
+  def teardown
+    ActiveForm::use_american_formatting
+  end
+  
+  def test_format
+    form = ActiveForm::compose :form do |f|
+      f.select_datetime_element :start, :format => [:day, :month, :year, :hour, :minute, :second], :range => (2000..2005)
+    end
+    assert_equal [:day, :month, :year, :hour, :minute, :second], form[:start].collect(&:name) 
+  end
+  
+  def test_european_formatting
+    ActiveForm::use_european_formatting
+    elem = ActiveForm::Element::SelectDatetime.new :date
+    assert_equal [:day, :month, :year, :hour, :minute], elem.collect(&:name)
+  end
+  
+  def test_american_formatting
+    ActiveForm::use_american_formatting
+    elem = ActiveForm::Element::SelectDatetime.new :date
+    assert_equal [:month, :day, :year, :hour, :minute], elem.collect(&:name)
+  end
+    
+  def test_append_any_unknown_parts_as_element
+    form = ActiveForm::compose :form do |f|
+      f.select_datetime_element :start, :format => ['date: ', :day, :month, :year, '&nbsp;time: ', :hour, :minute, :second], :range => (2000..2005)
+    end
+    assert_equal [:builder, :day, :month, :year, :builder, :hour, :minute, :second], form[:start].collect(&:name) 
+  end
+  
+  def test_export_value_as_casted
+    elem = ActiveForm::Element::SelectDatetime.new :time, :now => Time.local(2007, 8, 14, 13, 52, 5), :range => (2000..2010), :type_cast => :hash
+    expected = {"month"=>8, "second"=>0, "minute"=>52, "hour"=>13, "day"=>14, "year"=>2007}
+    assert_equal expected, elem.export_value
+    
+    elem = ActiveForm::Element::SelectDatetime.new :time, :now => Time.local(2007, 8, 14, 13, 52, 5), :range => (2000..2010), :type_cast => :array
+    assert_equal [2007, 8, 14, 13, 52, 0], elem.export_value
+    
+    elem = ActiveForm::Element::SelectDatetime.new :time, :now => Time.local(2007, 8, 14, 13, 52, 5), :range => (2000..2010), :type_cast => :string
+    assert_equal "2007-08-14 13:52:00", elem.export_value
+    
+    elem = ActiveForm::Element::SelectDatetime.new :time, :now => Time.local(2007, 8, 14, 13, 52, 5), :range => (2000..2010), :type_cast => :date
+    assert_equal Time.local(2007, 8, 14, 13, 52, 0).to_date, elem.export_value
+    
+    elem = ActiveForm::Element::SelectDatetime.new :time, :now => Time.local(2007, 8, 14, 13, 52, 5), :range => (2000..2010), :type_cast => :time
+    assert_equal Time.local(2007, 8, 14, 13, 52, 0), elem.export_value
+    
+    elem = ActiveForm::Element::SelectDatetime.new :time, :now => Time.local(2007, 8, 14, 13, 52, 5), :range => (2000..2010), :type_cast => :yaml
+    assert_equal "--- 2007-08-14 13:52:00 +02:00\n", elem.export_value
+  end
+  
+end

data/test/facets/test_select_day_element.rb

@@ -0,0 +1,37 @@
+require 'test_helper'
+
+class TestSelectDayElement < Test::Unit::TestCase
+  
+  def test_element_to_html
+    elem = ActiveForm::Element::SelectDay.new :day
+    assert_equal [*(1..31)], elem.collect(&:value)
+    assert_equal [*('01'..'31')], elem.collect(&:label)
+    
+    elem = ActiveForm::Element::SelectDay.new :day, :increment => 7
+    assert_equal [1, 8, 15, 22, 29], elem.collect(&:value)
+    assert_equal ["01", "08", "15", "22", "29"], elem.collect(&:label)
+  end
+  
+  def test_assign_value
+    elem = ActiveForm::Element::SelectDay.new :day, :value => 22
+    assert_equal 22, elem.value
+    elem = ActiveForm::Element::SelectDay.new :day, :value => Date.new(2004, 9, 22)
+    assert_equal 22, elem.value
+    elem = ActiveForm::Element::SelectDay.new :day, :value => Time.local(2004, 9, 22, 13, 15, 5)
+    assert_equal 22, elem.value
+  end
+  
+  def test_out_of_range_value
+    elem = ActiveForm::Element::SelectDay.new :day, :value => -5
+    assert_equal 1, elem.value                           
+    elem = ActiveForm::Element::SelectDay.new :day, :value => 34
+    assert_equal 31, elem.value
+  end
+  
+  def test_select_multiple
+    elem = ActiveForm::Element::SelectDay.new :day, :multiple => true
+    elem.values = [2, 3, 4]
+    assert_equal [2, 3, 4], elem.export_value
+  end
+  
+end

data/test/facets/test_select_from_model_element.rb

@@ -0,0 +1,86 @@
+require 'test_helper'
+
+ActiveForm::Element::Select::create :select_publisher do
+  
+  def options
+    Publisher.find(:all, :order => 'id', :limit => 2).map { |item| ActiveForm::Element::CollectionOption.new(item.name, item.id) }
+  end
+  
+end
+
+class TestSelectFromModelElement < Test::Unit::TestCase
+  
+  fixtures :publishers
+  
+  def test_options_for_implicit_definition
+    elem = ActiveForm::Element::SelectFromModel.new :publisher_id
+    assert_equal 'Publisher', elem.model_class
+    elem_options = elem.options
+    assert_equal "O'Reilly", elem_options[0].label
+    assert_equal 2, elem_options[0].value
+    assert_equal "The Pragmatic Programmers", elem_options[1].label
+    assert_equal 1, elem_options[1].value
+  end
+
+  def test_options_for_explicit_definition
+    elem = ActiveForm::Element::SelectFromModel.new :published_by, :model => :publisher
+    assert_equal 'Publisher', elem.model_class
+    elem_options = elem.options
+    assert_equal "O'Reilly", elem_options[0].label
+    assert_equal 2, elem_options[0].value
+  end
+
+  def test_options_for_custom_find
+    elem = ActiveForm::Element::SelectFromModel.new :publisher_id, :find => { :order => 'id', :limit => 2 }
+    assert_equal 'Publisher', elem.model_class
+    elem_options = elem.options 
+    assert_equal "The Pragmatic Programmers", elem_options[0].label
+    assert_equal 1, elem_options[0].value
+    assert_equal "O'Reilly", elem_options[1].label
+    assert_equal 2, elem_options[1].value
+  end
+
+  def test_options_with_to_dropdown
+    elem = ActiveForm::Element::SelectFromModel.new :publisher_id, :to_dropdown => true
+    elem_options = elem.options 
+    assert_equal "The Pragmatic Programmers", elem_options[0].label
+    assert_equal 1, elem_options[0].value
+    assert_equal "O'Reilly", elem_options[1].label
+    assert_equal 2, elem_options[1].value
+  end
+
+  def test_options_with_group_attr
+    elem = ActiveForm::Element::SelectFromModel.new :publisher_id, :group_attr => 'id'
+    elem_options = elem.options
+    assert_kind_of ActiveForm::Element::CollectionOptionGroup, elem_options.first
+    assert_equal "1", elem_options[0].label
+    assert_equal "The Pragmatic Programmers", elem_options[0].options[0].label
+    assert_equal 1, elem_options[0].options[0].value
+  end
+  
+  def test_syntax_sugar
+    form = ActiveForm::compose :book do |f| 
+      f.select_from_publishers :publisher_id
+    end
+    elem_options = form[:publisher_id].options 
+    assert_equal "The Pragmatic Programmers", elem_options[0].label
+    assert_equal 1, elem_options[0].value
+    assert_equal "O'Reilly", elem_options[1].label
+    assert_equal 2, elem_options[1].value
+  end
+
+  def test_to_html
+    form = ActiveForm::compose :book do |f|  
+      f.select_publisher_element :publisher_id
+    end
+    assert_equal :select_publisher, form[:publisher_id].element_type
+    expected = %|<form action="#book" class="active_form" id="book" method="post">
+  <select class="elem_select_publisher" id="book_publisher_id" name="book[publisher_id]">
+    <option value="1">The Pragmatic Programmers</option>
+    <option value="2">O'Reilly</option>
+  </select>
+</form>\n|
+    assert_equal expected, form.to_html
+  end
+
+end

data/test/facets/test_select_hour_element.rb

@@ -0,0 +1,37 @@
+require 'test_helper'
+
+class TestSelectHourElement < Test::Unit::TestCase
+  
+  def test_element_to_html
+    elem = ActiveForm::Element::SelectHour.new :hour
+    assert_equal [*(0..23)], elem.collect(&:value)
+    assert_equal [*('00'..'23')], elem.collect(&:label)
+    
+    elem = ActiveForm::Element::SelectHour.new :hour, :increment => 12
+    assert_equal [0, 12], elem.collect(&:value)
+    assert_equal ["00", "12"], elem.collect(&:label)
+  end
+  
+  def test_assign_value
+    elem = ActiveForm::Element::SelectHour.new :hour, :value => 22
+    assert_equal 22, elem.value
+    elem = ActiveForm::Element::SelectHour.new :hour, :value => Date.new(2004, 1, 1)
+    assert_equal 0, elem.value
+    elem = ActiveForm::Element::SelectHour.new :hour, :value => Time.local(2004, 1, 1, 13, 15, 5)
+    assert_equal 13, elem.value
+  end
+  
+  def test_out_of_range_value
+    elem = ActiveForm::Element::SelectHour.new :hour, :value => -5
+    assert_equal 0, elem.value                           
+    elem = ActiveForm::Element::SelectHour.new :hour, :value => 28
+    assert_equal 23, elem.value
+  end
+  
+  def test_select_multiple
+    elem = ActiveForm::Element::SelectHour.new :hour, :multiple => true
+    elem.values = [20, 21, 22]
+    assert_equal [20, 21, 22], elem.export_value
+  end
+  
+end

data/test/facets/test_select_minute_element.rb

@@ -0,0 +1,52 @@
+require 'test_helper'
+
+class TestSelectMinuteElement < Test::Unit::TestCase
+  
+  def test_element_to_html
+    elem = ActiveForm::Element::SelectMinute.new :minute
+    assert_equal [*(0..59)], elem.collect(&:value)
+    assert_equal [*('00'..'59')], elem.collect(&:label)
+    
+    elem = ActiveForm::Element::SelectMinute.new :minute, :increment => 5
+    assert_equal [0, 5, 10, 15, 20, 25, 30, 35, 40, 45, 50, 55], elem.collect(&:value)
+    assert_equal ["00", "05", "10", "15", "20", "25", "30", "35", "40", "45", "50", "55"], elem.collect(&:label)
+    
+    elem = ActiveForm::Element::SelectMinute.new :minute, :increment => 10
+    assert_equal [0, 10, 20, 30, 40, 50], elem.collect(&:value)
+    assert_equal ["00", "10", "20", "30", "40", "50"], elem.collect(&:label)
+  end
+  
+  def test_assign_value
+    elem = ActiveForm::Element::SelectMinute.new :minute, :value => 22
+    assert_equal 22, elem.value
+    elem = ActiveForm::Element::SelectMinute.new :minute, :value => Date.new(2004, 1, 1)
+    assert_equal 0, elem.value
+    elem = ActiveForm::Element::SelectMinute.new :minute, :value => Time.local(2004, 1, 1, 13, 15, 5)
+    assert_equal 15, elem.value
+  end
+  
+  def test_out_of_range_value
+    elem = ActiveForm::Element::SelectMinute.new :minute, :value => -5
+    assert_equal 0, elem.value                           
+    elem = ActiveForm::Element::SelectMinute.new :minute, :value => 80
+    assert_equal 59, elem.value
+    elem = ActiveForm::Element::SelectMinute.new :minute, :value => 80, :increment => 5
+    assert_equal 55, elem.value
+    elem = ActiveForm::Element::SelectMinute.new :minute, :value => 80, :increment => 15
+    assert_equal 45, elem.value
+  end
+  
+  def test_push_value_towards_increment_value
+    elem = ActiveForm::Element::SelectMinute.new :minute, :increment => 5, :value => 22
+    assert_equal 20, elem.value
+    elem = ActiveForm::Element::SelectMinute.new :minute, :increment => 10, :value => 26
+    assert_equal 30, elem.value
+  end
+  
+  def test_select_multiple
+    elem = ActiveForm::Element::SelectMinute.new :minute, :multiple => true, :increment => 15
+    elem.values = [12, 35, 46]
+    assert_equal [15, 30, 45], elem.export_value
+  end
+  
+end