active_form 0.0.1

data/test/facets/test_select_month_element.rb

@@ -0,0 +1,79 @@
+require 'test_helper'
+
+class TestSelectMonthElement < Test::Unit::TestCase
+  
+  def test_element_to_html
+    elem = ActiveForm::Element::SelectMonth.new :month
+    assert_equal [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12], elem.collect(&:value)
+    expected = ["January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"]
+    assert_equal expected, elem.collect(&:label)
+    
+    elem = ActiveForm::Element::SelectMonth.new :month, :use_month_numbers => true
+    assert_equal [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12], elem.collect(&:value)
+    expected = ["01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"]
+    assert_equal expected, elem.collect(&:label)
+    
+    elem = ActiveForm::Element::SelectMonth.new :month, :use_short_month => true
+    assert_equal [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12], elem.collect(&:value)
+    expected = ["Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"]
+    assert_equal expected, elem.collect(&:label)
+    
+    elem = ActiveForm::Element::SelectMonth.new :month, :use_short_month => true, :add_month_numbers => true
+    assert_equal [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12], elem.collect(&:value)
+    expected = ["01 - Jan", "02 - Feb", "03 - Mar", "04 - Apr", "05 - May", "06 - Jun", "07 - Jul", "08 - Aug", "09 - Sep", "10 - Oct", "11 - Nov", "12 - Dec"]
+    assert_equal expected, elem.collect(&:label)
+    
+    elem = ActiveForm::Element::SelectMonth.new :month, :increment => 3
+    assert_equal [1, 4, 7, 10], elem.collect(&:value)
+    assert_equal ["January", "April", "July", "October"], elem.collect(&:label)
+  end
+  
+  def test_subset
+    elem = ActiveForm::Element::SelectMonth.new :month, :subset => [1, 2, 3, 10, 11, 12]
+    assert_equal [1, 2, 3, 10, 11, 12], elem.collect(&:value)
+    assert_equal ["January", "February", "March", "October", "November", "December"], elem.collect(&:label)
+  end
+  
+  def test_assign_value
+    elem = ActiveForm::Element::SelectMonth.new :month, :value => 9
+    assert_equal 9, elem.value
+    elem = ActiveForm::Element::SelectMonth.new :month, :value => Date.new(2004, 9, 22)
+    assert_equal 9, elem.value
+    elem = ActiveForm::Element::SelectMonth.new :month, :value => Time.local(2004, 9, 22, 13, 15, 5)
+    assert_equal 9, elem.value
+  end
+  
+  def test_push_value_towards_increment_value
+    elem = ActiveForm::Element::SelectMonth.new :month, :increment => 3, :value => 6
+    assert_equal [1, 4, 7, 10], elem.collect(&:value)
+    assert_equal 7, elem.value
+  end
+  
+  def test_out_of_range_value
+    elem = ActiveForm::Element::SelectMonth.new :month, :value => -5
+    assert_equal 1, elem.value                           
+    elem = ActiveForm::Element::SelectMonth.new :month, :value => 28
+    assert_equal 12, elem.value
+  end
+  
+  def test_assign_value_and_return_as_string
+    elem = ActiveForm::Element::SelectMonth.new :month, :value => 3
+    assert_equal "March", elem.to_monthname
+    elem = ActiveForm::Element::SelectMonth.new :month, :value => 9, :type_cast => :string
+    assert_equal "September", elem.to_monthname
+    assert_equal "September", elem.export_value
+    elem = ActiveForm::Element::SelectMonth.new :month, :value => Date.new(2006, 9, 11), :type_cast => :string, :use_short_month => true
+    assert_equal "Sep", elem.to_monthname
+    assert_equal "Sep", elem.export_value
+  end
+  
+  def test_select_multiple
+    elem = ActiveForm::Element::SelectMonth.new :month, :multiple => true
+    elem.values = [1, 3, 5]
+    assert_equal [1, 3, 5], elem.export_value    
+    elem = ActiveForm::Element::SelectMonth.new :month, :multiple => true, :type_cast => :string
+    elem.values = [1, 3, 5]
+    assert_equal ["January", "March", "May"], elem.export_value
+  end
+  
+end

data/test/facets/test_select_numeric_range_element.rb

@@ -0,0 +1,14 @@
+require 'test_helper'
+
+class TestSelectNumericRangeElement < Test::Unit::TestCase
+  
+  def test_select_multiple
+    elem = ActiveForm::Element::SelectNumericRange.new :numbers, :range => (0..10), :increment => 2, :multiple => true
+    assert_equal [0, 2, 4, 6, 8, 10], elem.collect(&:value)
+    elem.values = [4, 6]
+    assert_equal [4, 6], elem.export_value
+    elem.values = [1, 7]
+    assert_equal [2, 8], elem.export_value   
+  end
+  
+end

data/test/facets/test_select_second_element.rb

@@ -0,0 +1,48 @@
+require 'test_helper'
+
+class TestSelectSecondElement < Test::Unit::TestCase
+  
+  def test_element_to_html
+    elem = ActiveForm::Element::SelectSecond.new :seconds
+    assert_equal [*(0..59)], elem.collect(&:value)
+    assert_equal [*('00'..'59')], elem.collect(&:label)
+    
+    elem = ActiveForm::Element::SelectSecond.new :seconds, :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::SelectSecond.new :seconds, :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::SelectSecond.new :seconds, :value => 22
+    assert_equal 22, elem.value
+    elem = ActiveForm::Element::SelectSecond.new :seconds, :value => Date.new(2004, 1, 1)
+    assert_equal 0, elem.value
+    elem = ActiveForm::Element::SelectSecond.new :seconds, :value => Time.local(2004, 1, 1, 13, 15, 5)
+    assert_equal 5, elem.value
+  end
+  
+  def test_out_of_range_value
+    elem = ActiveForm::Element::SelectSecond.new :seconds, :value => -5
+    assert_equal 0, elem.value                           
+    elem = ActiveForm::Element::SelectSecond.new :seconds, :value => 80
+    assert_equal 59, elem.value
+  end
+  
+  def test_push_value_towards_increment_value
+    elem = ActiveForm::Element::SelectSecond.new :seconds, :increment => 5, :value => 22
+    assert_equal 20, elem.value
+    elem = ActiveForm::Element::SelectSecond.new :seconds, :increment => 10, :value => 26
+    assert_equal 30, elem.value
+  end
+  
+  def test_select_multiple
+    elem = ActiveForm::Element::SelectSecond.new :seconds, :multiple => true, :increment => 30
+    elem.values = [12, 35, 46]
+    assert_equal [0, 30], elem.export_value
+  end
+  
+end

data/test/facets/test_select_time_element.rb

@@ -0,0 +1,148 @@
+require 'test_helper'
+
+class TestSelectTimeElement < Test::Unit::TestCase
+  
+  def test_format
+    form = ActiveForm::compose :form do |f|
+      f.select_time_element :start, :format => [:hour, :minute, :second], :minute_increment => 5
+    end
+    assert_equal [:hour, :minute, :second], form[:start].collect(&:name) 
+    form[:start].value = '13:52:05'
+    
+    expected = { "hour" => 13, "minute" => 50, "second" => 5 }
+    assert_equal expected, form[:start].export_value
+    
+    form[:start].value = '13:52'
+    expected = { "hour" => 13, "minute" => 50, "second" => 0 }
+    assert_equal expected, form[:start].export_value
+  end
+  
+  def test_assign_value_and_export_value
+    form = ActiveForm::compose :form do |f|
+      f.select_time_element :start, :minute_increment => 5
+    end
+    assert_equal [:hour, :minute], form[:start].collect(&:name)    
+    expected = { "hour" => 13, "minute" => 50 }
+    
+    form[:start].value = { :hour => 13, :minute => 52 }
+    assert_equal expected, form[:start].export_value    
+    
+    form[:start].value = Time.local(2004, 1, 1, 13, 52, 5)
+    assert_equal expected, form[:start].export_value
+    
+    form[:start].value = '2004-01-01 13:52:05'
+    assert_equal expected, form[:start].export_value
+    
+    form[:start].value = '13:52:05'
+    assert_equal expected, form[:start].export_value
+    
+    form[:start].value = '13:52'
+    assert_equal expected, form[:start].export_value
+  end
+  
+  def test_default_value
+    elem = ActiveForm::Element::SelectTime.new :time, :format => [:hour, :minute, :second]
+    expected = {"hour"=>12, "minute"=>0, "second"=>0}
+    assert_equal expected, elem.export_value
+    
+    elem = ActiveForm::Element::SelectTime.new :time, :format => [:hour, :minute, :second], :now => Time.local(2004, 1, 1, 13, 52, 5)
+    expected = {"hour"=>13, "minute"=>52, "second"=>5}
+    assert_equal expected, elem.value
+    assert_equal expected, elem.export_value
+  end
+  
+  def test_export_value_as_casted
+    elem = ActiveForm::Element::SelectTime.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::SelectTime.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::SelectTime.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::SelectTime.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::SelectTime.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
+  end
+  
+  def test_update_from_params
+    form = ActiveForm::compose :form do |f|
+      f.select_time_element :start, :minute_increment => 5
+    end
+    form.update_from_params({ 'form' => { 'start' => { 'hour' => '9', 'minute' => '22' } } })
+    expected = { 'hour' => 9, 'minute' => 20 }
+    assert_equal expected, form[:start].export_value
+    form.update_from_params({ 'form' => { 'start' => '2004-01-01 13:52:05' } })
+    expected = { 'hour' => 13, 'minute' => 50 }
+    assert_equal expected, form[:start].export_value  
+    form.update_from_params({ 'form' => { 'start' => '13:52:05' } })
+    expected = { 'hour' => 13, 'minute' => 50 }
+    assert_equal expected, form[:start].export_value
+  end
+  
+  def test_assign_with_now
+    form = ActiveForm::compose :form do |f|
+      f.select_time_element :start, :format => [:hour, :minute], :minute_increment => 5, :now => Time.local(2004, 1, 1, 13, 52, 5)
+    end
+    form[:start].value = { :hour => 10, :minute => 22 }
+    expected = {"minute"=>20, "hour"=>10}
+    assert_equal expected, form[:start].export_value
+    
+    form = ActiveForm::compose :form do |f|
+      f.select_time_element :start, :format => [:hour, :minute, :second], :second_increment => 10, :now => Time.local(2004, 1, 1, 13, 52, 5)
+    end
+    form[:start].value = { :hour => 10, :minute => 22, :second => 28 }
+    expected = {"second"=>30, "minute"=>22, "hour"=>10}
+    assert_equal expected, form[:start].export_value   
+    form[:start].value = Time.local(2004, 1, 1, 13, 52, 5)
+    expected = {"second"=>10, "minute"=>52, "hour"=>13}
+    assert_equal expected, form[:start].export_value 
+  end
+  
+  def test_include_empty
+    form = ActiveForm::compose :form do |f|
+      f.select_time_element :start, :format => [:hour, :minute, :second]
+    end
+    assert_equal [false], form[:start].collect(&:include_empty?).uniq
+    form[:start].include_empty = true
+    assert_equal [true], form[:start].collect(&:include_empty?).uniq
+  end
+  
+  def test_element_to_html
+    form = ActiveForm::compose :form do |f|
+      f.select_time_element :start, :format => [:hour, :minute, :second], :hour_increment => 4, :minute_increment => 20, :second_increment => 20
+    end
+    expected = %|<div class="active_select_time" id="form_start">
+  <span class="elem_select_hour" id="elem_form_start_hour">
+    <select class="elem_select_hour" id="form_start_hour" name="form[start][hour]">
+      <option value="0">00</option>
+      <option value="4">04</option>
+      <option value="8">08</option>
+      <option selected="selected" value="12">12</option>
+      <option value="16">16</option>
+      <option value="20">20</option>
+    </select>
+  </span>
+  <span class="elem_select_minute" id="elem_form_start_minute">
+    <select class="elem_select_minute" id="form_start_minute" name="form[start][minute]">
+      <option selected="selected" value="0">00</option>
+      <option value="20">20</option>
+      <option value="40">40</option>
+    </select>
+  </span>
+  <span class="elem_select_second" id="elem_form_start_second">
+    <select class="elem_select_second" id="form_start_second" name="form[start][second]">
+      <option selected="selected" value="0">00</option>
+      <option value="20">20</option>
+      <option value="40">40</option>
+    </select>
+  </span>
+</div>\n|
+    assert_equal expected, form[:start].to_html
+  end
+  
+end

data/test/facets/test_select_weekday_element.rb

@@ -0,0 +1,71 @@
+require 'test_helper'
+
+class TestSelectWeekdayElement < Test::Unit::TestCase
+  
+  def test_element_to_html
+    elem = ActiveForm::Element::SelectWeekday.new :day
+    assert_equal [*(0..6)], elem.collect(&:value)
+    assert_equal ["Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"], elem.collect(&:label)
+    
+    elem = ActiveForm::Element::SelectWeekday.new :day, :use_short_day => true
+    assert_equal [*(0..6)], elem.collect(&:value)
+    assert_equal ["Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"], elem.collect(&:label)
+  end
+  
+  def test_only_weekdays
+    elem = ActiveForm::Element::SelectWeekday.new :day, :weekdays_only => true
+    assert_equal [*(1..5)], elem.collect(&:value)
+    assert_equal ["Monday", "Tuesday", "Wednesday", "Thursday", "Friday"], elem.collect(&:label)
+  end
+  
+  def test_only_weekends
+    elem = ActiveForm::Element::SelectWeekday.new :day, :weekend_only => true
+    assert_equal [6, 0], elem.collect(&:value)
+    assert_equal ["Saturday", "Sunday"], elem.collect(&:label)
+  end
+  
+  def test_subset
+    elem = ActiveForm::Element::SelectWeekday.new :day, :subset => [1, 2, 3]
+    assert_equal [1, 2, 3], elem.collect(&:value)
+    assert_equal ["Monday", "Tuesday", "Wednesday"], elem.collect(&:label)
+  end
+
+  def test_out_of_range_value
+    elem = ActiveForm::Element::SelectWeekday.new :day, :value => -5
+    assert_equal 0, elem.value                           
+    elem = ActiveForm::Element::SelectWeekday.new :day, :value => 9
+    assert_equal 6, elem.value
+  end
+
+  def test_assign_value
+    elem = ActiveForm::Element::SelectWeekday.new :day, :value => 1
+    assert_equal 1, elem.value
+    elem = ActiveForm::Element::SelectWeekday.new :day, :value => Date.new(2006, 9, 11)
+    assert_equal 1, elem.value
+    elem = ActiveForm::Element::SelectWeekday.new :day, :value => Date.new(2006, 9, 12)
+    assert_equal 2, elem.value
+    elem = ActiveForm::Element::SelectWeekday.new :day, :value => Time.local(2006, 9, 11, 13, 15, 5)
+    assert_equal 1, elem.value
+  end
+  
+  def test_assign_value_and_return_as_string
+    elem = ActiveForm::Element::SelectWeekday.new :day, :value => 3
+    assert_equal "Wednesday", elem.to_dayname
+    elem = ActiveForm::Element::SelectWeekday.new :day, :value => 3, :type_cast => :string
+    assert_equal "Wednesday", elem.to_dayname
+    assert_equal "Wednesday", elem.export_value
+    elem = ActiveForm::Element::SelectWeekday.new :day, :value => Date.new(2006, 9, 11), :type_cast => :string
+    assert_equal "Monday", elem.to_dayname
+    assert_equal "Monday", elem.export_value
+  end
+  
+  def test_select_multiple
+    elem = ActiveForm::Element::SelectWeekday.new :day, :multiple => true
+    elem.values = [0, 3, 5]
+    assert_equal [0, 3, 5], elem.export_value    
+    elem = ActiveForm::Element::SelectWeekday.new :day, :multiple => true, :type_cast => :string
+    elem.values = [0, 3, 5]
+    assert_equal ["Sunday", "Wednesday", "Friday"], elem.export_value
+  end
+    
+end

data/test/facets/test_select_year_element.rb

@@ -0,0 +1,73 @@
+require 'test_helper'
+
+class TestSelectYearElement < Test::Unit::TestCase
+  
+  def test_element_to_html
+    elem = ActiveForm::Element::SelectYear.new :year
+    default_range = Range.new(Time.now.year - 5,  Time.now.year + 5)
+    assert_equal [*default_range], elem.collect(&:value)
+    assert_equal default_range.map(&:to_s), elem.collect(&:label)
+    
+    elem = ActiveForm::Element::SelectYear.new :year, :range => (2000..2010)
+    default_range = Range.new(2000, 2010)
+    assert_equal [*default_range], elem.collect(&:value)
+    assert_equal default_range.map(&:to_s), elem.collect(&:label)
+     
+    elem = ActiveForm::Element::SelectYear.new :year, :range => (2000..2010), :increment => 5
+    assert_equal [2000, 2005, 2010], elem.collect(&:value)
+    assert_equal ['2000', '2005', '2010'], elem.collect(&:label)
+  end
+  
+  def test_define_start_and_end_year
+    elem = ActiveForm::Element::SelectYear.new :year, :start_year => 2000, :end_year => 2006
+    range = Range.new(2000, 2006)
+    assert_equal [*range], elem.collect(&:value)
+    assert_equal range.map(&:to_s), elem.collect(&:label)    
+  end
+  
+  def test_include_empty
+    elem = ActiveForm::Element::SelectYear.new :year, :range => (2000..2010)
+    assert_equal 2000, elem.options.first.value
+    elem = ActiveForm::Element::SelectYear.new :year, :range => (2000..2010), :include_empty => true
+    assert_equal :blank, elem.options.first.value
+  end
+  
+  def test_assign_value
+    elem = ActiveForm::Element::SelectYear.new :year, :value => 2006
+    assert_equal 2006, elem.value
+    elem = ActiveForm::Element::SelectYear.new :year, :value => Date.new(2004, 9, 22)
+    assert_equal 2004, elem.value
+    elem = ActiveForm::Element::SelectYear.new :year, :value => Time.local(2004, 9, 22, 13, 15, 5)
+    assert_equal 2004, elem.value
+  end
+  
+  def test_update_from_params
+    form = ActiveForm::compose :form do |f|
+      f.select_year_element :anno, :range => (2000..2010)
+    end
+    form.params = { 'form' => { 'anno' => '1996' } }
+    assert_equal 2000, form[:anno].value
+    form.params = { 'form' => { 'anno' => '2006' } }
+    assert_equal 2006, form[:anno].value
+    form.params = { 'form' => { 'anno' => '2012' } }
+    assert_equal 2010, form[:anno].value
+  end
+  
+  def test_out_of_range_value
+    elem = ActiveForm::Element::SelectYear.new :year, :value => 2
+    assert_equal Time.now.year - 5, elem.value                           
+    elem = ActiveForm::Element::SelectYear.new :year, :value => 3000
+    assert_equal Time.now.year + 5, elem.value    
+    elem = ActiveForm::Element::SelectYear.new :year, :value => 1996, :range => (2000..2005)
+    assert_equal 2000, elem.value                           
+    elem = ActiveForm::Element::SelectYear.new :year, :value => 2006, :range => (2000..2005)
+    assert_equal 2005, elem.value
+  end
+  
+  def test_select_multiple
+    elem = ActiveForm::Element::SelectYear.new :year, :multiple => true, :range => (2000..2005)
+    elem.values = [1996, 2002, 2006]
+    assert_equal [2000, 2002, 2005], elem.export_value
+  end
+  
+end

data/test/fixtures/author.rb

@@ -0,0 +1,11 @@
+class Author < ActiveRecord::Base
+  
+  has_and_belongs_to_many :books
+
+  acts_as_dropdown
+  
+  def name
+    "#{first_name} #{last_name}"
+  end
+  
+end