active_form 0.0.1

data/test/validators/test_validates_as_alpha.rb

@@ -0,0 +1,26 @@
+require 'test_helper'
+
+class TestValidatesAsAlpha < Test::Unit::TestCase
+  
+  def test_validator_defaults
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_as_alpha
+    end
+    assert elem.validate
+    elem.value = 123
+    assert !elem.validate
+    assert_equal ["Mystring: should contain alphabetical characters only"], elem.errors.collect(&:message)
+    assert_equal ["Mystring: should contain alphabetical characters only"], elem.gather_validation_advice.collect(&:message)
+  end
+  
+  def test_validator_check
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_as_alpha
+    end
+    invalid = [123, '%a$', '_', 'Foo Bar']
+    valid = [nil, '', ' ','abc', 'AbC']
+    invalid.each { |value| elem.value = value; assert !elem.validate }
+    valid.each { |value| elem.value = value; assert elem.validate }
+  end
+  
+end

data/test/validators/test_validates_as_alphanum.rb

@@ -0,0 +1,26 @@
+require 'test_helper'
+
+class TestValidatesAsAlphanum < Test::Unit::TestCase
+  
+  def test_validator_defaults
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_as_alphanum
+    end
+    assert elem.validate
+    elem.value = 'Foo Bar'
+    assert !elem.validate
+    assert_equal ["Mystring: should contain alphabetical characters or numbers only"], elem.errors.collect(&:message)
+    assert_equal ["Mystring: should contain alphabetical characters or numbers only"], elem.gather_validation_advice.collect(&:message)
+  end
+  
+  def test_validator_check
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_as_alphanum
+    end
+    invalid = ['%a$', '_', 'Foo Bar']
+    valid = [nil, '', ' ', 123, 'abc', 'AbC', 'abc1234']
+    invalid.each { |value| elem.value = value; assert !elem.validate }
+    valid.each { |value| elem.value = value; assert elem.validate }
+  end
+  
+end

data/test/validators/test_validates_as_digits.rb

@@ -0,0 +1,26 @@
+require 'test_helper'
+
+class TestValidatesAsDigits < Test::Unit::TestCase
+  
+  def test_validator_defaults
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_as_digits
+    end
+    assert elem.validate
+    elem.value = 'abc123'
+    assert !elem.validate
+    assert_equal ["Mystring: should contain digits (0-9) only"], elem.errors.collect(&:message)
+    assert_equal ["Mystring: should contain digits (0-9) only"], elem.gather_validation_advice.collect(&:message)
+  end
+  
+  def test_validator_check
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_as_digits
+    end
+    invalid = ['123a', '%a$', '_', 'Foo Bar']
+    valid = [nil, '', ' ', 123, '45']
+    invalid.each { |value| elem.value = value; assert !elem.validate }
+    valid.each { |value| elem.value = value; assert elem.validate }
+  end
+  
+end

data/test/validators/test_validates_as_email.rb

@@ -0,0 +1,29 @@
+require 'test_helper'
+
+class TestValidatesAsEmail < Test::Unit::TestCase
+  
+  def test_validator_defaults
+    elem = ActiveForm::Element::build(:text, :mystring) { |e| e.validates_as_email }
+    assert elem.validate
+    elem.value = 'abc'
+    assert !elem.validate
+    assert_equal ["Mystring: is not a valid email address"], elem.errors.collect(&:message)
+    assert_equal ["Mystring: is not a valid email address"], elem.gather_validation_advice.collect(&:message)
+  end
+  
+  def test_validator_check
+    elem = ActiveForm::Element::build(:text, :mystring) { |e| e.validates_as_email }
+    invalid = ['123a', '%a$', '_', 'Foo Bar']
+    valid = [nil, '', ' ', 'info@loobmedia.com', 'info@looboommediaz.com']
+    invalid.each { |value| elem.value = value; assert !elem.validate }
+    valid.each { |value| elem.value = value; assert elem.validate }
+  end
+  
+  def test_validate_with_resolve
+    # this is hard to test with some ISP's
+    elem = ActiveForm::Element::build(:text, :mystring) { |e| e.validates_as_email :resolve => true }
+    elem.value = 'info@loobmedia.com'
+    assert elem.validate
+  end
+  
+end

data/test/validators/test_validates_as_number.rb

@@ -0,0 +1,26 @@
+require 'test_helper'
+
+class TestValidatesAsNumber < Test::Unit::TestCase
+  
+  def test_validator_defaults
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_as_number
+    end
+    assert elem.validate
+    elem.value = 'abc'
+    assert !elem.validate
+    assert_equal ["Mystring: should be numeric"], elem.errors.collect(&:message)
+    assert_equal ["Mystring: should be numeric"], elem.gather_validation_advice.collect(&:message)
+  end
+  
+  def test_validator_check
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_as_number
+    end
+    invalid = ['123a', '%a$', '_', 'Foo Bar']
+    valid = [nil, '', ' ', 123, '45', '123,45', '1.5', 1.25]
+    invalid.each { |value| elem.value = value; assert !elem.validate }
+    valid.each { |value| elem.value = value; assert elem.validate }
+  end
+  
+end

data/test/validators/test_validates_as_uri.rb

@@ -0,0 +1,128 @@
+require 'test_helper'
+
+class TestValidatesAsUri < Test::Unit::TestCase
+  
+  def test_validator_defaults
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_as_uri
+    end
+    assert elem.validate
+    elem.value = 'http://www.loobmedia.com/placeholder/background.gif'
+    assert elem.validate
+    
+    elem.value = 'loobmedia.com'
+    assert !elem.validate
+    assert_equal ["Mystring: is not a valid location"], elem.errors.collect(&:message)
+    assert_equal ["Mystring: is not a valid location"], elem.gather_validation_advice.collect(&:message)
+  end
+  
+  def test_validator_options
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_as_uri :schemes => 'http', :hosts => [/^(www\.)?loob/], :content_types => 'text/'
+    end
+    assert_equal ['http'], elem.validators.first.uri_validator.schemes
+    assert_equal [/^(www\.)?loob/], elem.validators.first.uri_validator.hosts
+    assert_equal ['text/'], elem.validators.first.uri_validator.content_types
+    
+    elem.value = 'http://loobmedia.com'
+    assert elem.validate
+    elem.value = 'http://www.loobmedia.com'
+    assert elem.validate
+    elem.value = 'http://www.loob.be'
+    assert elem.validate
+      
+    elem.value = 'http://www.loobmedia.com/placeholder/background.gif'
+    assert !elem.validate
+    assert_equal ["Mystring: is not a valid location"], elem.errors.collect(&:message)
+    
+    elem.value = 'http://www.atelierfabien.be'
+    assert !elem.validate
+    assert_equal ["Mystring: is not a valid location"], elem.errors.collect(&:message)
+  end  
+  
+  def test_validator_options_with_block
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_as_uri do |v|
+        v.schemes = 'http'
+        v.hosts = [/^(www\.)?loob/]
+        v.content_types = 'text/'
+      end
+    end
+    assert_equal ['http'], elem.validators.first.uri_validator.schemes
+    assert_equal [/^(www\.)?loob/], elem.validators.first.uri_validator.hosts
+    assert_equal ['text/'], elem.validators.first.uri_validator.content_types   
+  end
+  
+  def test_validator_message
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_as_uri :msg => "%1$s: is not a valid location (%3$s)"
+    end
+    elem.value = 'loobmedia.com'
+    assert !elem.validate
+    assert_equal ["Mystring: is not a valid location (Not Accessible)"], elem.errors.collect(&:message)
+  end  
+  
+  def test_set_validation_messages
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_as_uri :msg => "%1$s: is not a valid url", :schemes => 'http', :hosts => [/^(www\.)?loob/], :content_types => 'text/' do |v|
+        v.messages[:invalid_scheme] = '%s: only HTTP requests are accepted'
+        v.messages[:invalid_host] = '%s: only urls starting with `loob` are accepted'
+        v.messages[:invalid_content_type] = '%s: only text content accepted'
+      end
+    end
+    
+    assert_equal ["invalid_content_type", "invalid_host", "invalid_scheme", "uri"], elem.gather_validation_advice.collect(&:code)
+    
+    assert_equal [
+      "Mystring: only text content accepted", 
+      "Mystring: only urls starting with `loob` are accepted", 
+      "Mystring: only HTTP requests are accepted", 
+      "Mystring: is not a valid url"], elem.gather_validation_advice.collect(&:message)
+    
+    elem.value = 'http://www.loobmedia.com'
+    assert elem.validate  
+    
+    elem.value = 'ftp://www.loobmedia.com'
+    assert !elem.validate 
+    assert_equal ["Mystring: only HTTP requests are accepted"], elem.errors.collect(&:message)  
+     
+    elem.value = 'http://www.loobmedia.com/placeholder/background.gif'
+    assert !elem.validate
+    assert_equal ["Mystring: only text content accepted"], elem.errors.collect(&:message)    
+    elem.value = 'http://www.atelierfabien.be'
+    assert !elem.validate
+    assert_equal ["Mystring: only urls starting with `loob` are accepted"], elem.errors.collect(&:message) 
+  end
+  
+  def test_localized_validation_messages
+    translations = { 
+      'form_elem_a_label' => 'Link',
+      'form_elem_a_validates_uri' => '%s: geef een geldige en actieve url',
+      'form_elem_a_validates_invalid_scheme' => '%s: enkel HTTP-locaties worden geaccepteerd', 
+      'form_elem_a_validates_invalid_host' => '%s: alleen loob hosts worden geaccepteerd',
+      'form_elem_a_validates_invalid_content_type' => '%s: alleen tekst data wordt geaccepteerd'
+    }
+    
+    form = ActiveForm::compose :form do |f|
+      f.define_localizer { |formname, elemname, key| translations[ [formname, elemname, key].compact.join('_') ] }            
+      f.text_element :elem_a, :label => 'URL' do |e|
+        e.validates_as_uri :msg => "%1$s: is not a valid url", :schemes => 'http', :hosts => [/^(www\.)?loob/], :content_types => 'text/' do |v|
+          v.messages[:invalid_scheme] = '%s: only HTTP requests are accepted'
+          v.messages[:invalid_host] = '%s: only urls starting with `loob` are accepted'
+          v.messages[:invalid_content_type] = '%s: only text content accepted'
+        end
+      end
+    end
+    
+    assert_equal [
+      "Link: alleen tekst data wordt geaccepteerd",
+      "Link: alleen loob hosts worden geaccepteerd",
+      "Link: enkel HTTP-locaties worden geaccepteerd",
+      "Link: geef een geldige en actieve url"], form[:elem_a].gather_validation_advice.collect(&:message)
+    
+    form[:elem_a].value = 'http://www.loobmedia.com/placeholder/background.gif'
+    assert !form.validate
+    assert_equal 'Link: alleen tekst data wordt geaccepteerd', form[:elem_a].errors[0].message
+  end
+  
+end

data/test/validators/test_validates_with_format.rb

@@ -0,0 +1,26 @@
+require 'test_helper'
+
+class TestValidatesWithFormat < Test::Unit::TestCase
+  
+  def test_validator_defaults
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_with_format :regexp => /^[a-z]{3}/
+    end
+    assert elem.validate
+    elem.value = '123 abcd'
+    assert !elem.validate
+    assert_equal ["Mystring: has an invalid format"], elem.errors.collect(&:message)
+    assert_equal ["Mystring: has an invalid format"], elem.gather_validation_advice.collect(&:message)
+  end
+  
+  def test_validator_check
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_with_format :regexp => /^[a-z]{3}/
+    end
+    invalid = [123, '%a$', 'AbC', 'abCde', '_', 'Foo Bar']
+    valid = [nil, '', ' ', 'abcdef', 'abc abc', 'zxf 99']
+    invalid.each { |value| elem.value = value; assert !elem.validate }
+    valid.each { |value| elem.value = value; assert elem.validate }
+  end
+  
+end

data/test/validators/test_validates_within_length_range.rb

@@ -0,0 +1,46 @@
+require 'test_helper'
+
+class TestValidatesWithinLengthRange < Test::Unit::TestCase
+  
+  def test_validator_defaults
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_within_length_range
+    end
+    assert elem.validate
+    assert_equal [], elem.errors.collect(&:message)
+    assert_equal ["Mystring: length should be within 0 and 1 characters"], elem.gather_validation_advice.collect(&:message)
+  end
+  
+  def test_validator_with_range
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_within_length_range :range => (3..9)
+    end
+    assert !elem.validate
+    assert_equal ["Mystring: length should be within 3 and 9 characters"], elem.errors.collect(&:message)
+    assert_equal ["Mystring: length should be within 3 and 9 characters"], elem.gather_validation_advice.collect(&:message)
+    testvalues = { 'ab' => false, 'abc' => true, 'abcdefghi' => true, 'abcdefghij' => false }
+    testvalues.each { |(value, expected)| elem.value = value; assert_equal expected, elem.validate }
+  end
+  
+  def test_validator_with_array
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_within_length_range :range => [3, 5, 8, 13]
+    end
+    assert !elem.validate
+    assert_equal ["Mystring: length should be within 3 and 13 characters"], elem.errors.collect(&:message)
+    testvalues = { 'ab' => false, 'abc' => true, 'abcde' => true, 'abcdefghi' => false }
+    testvalues.each { |(value, expected)| elem.value = value; assert_equal expected, elem.validate }
+  end
+  
+  def test_custom_validation_message
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_within_length_range :range => (3..9) do |v|
+        v.message = "%1$s: length should be within %3$s and %4$s characters but was %5$s"
+      end
+    end
+    elem.value = 'ab'
+    assert !elem.validate
+    assert_equal ["Mystring: length should be within 3 and 9 characters but was 2"], elem.errors.collect(&:message)
+  end
+  
+end

data/test/validators/test_validates_within_set.rb

@@ -0,0 +1,46 @@
+require 'test_helper'
+
+class TestValidatesWithinSet < Test::Unit::TestCase
+  
+  def test_validator_defaults
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_within_set
+    end
+    assert !elem.validate
+    assert_equal ["Mystring: invalid value"], elem.errors.collect(&:message)
+    assert_equal ["Mystring: invalid value"], elem.gather_validation_advice.collect(&:message)
+  end
+  
+  def test_validator_with_range
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_within_set :set => ['a', 'b', 'c']
+    end
+    assert !elem.validate
+    assert_equal ["Mystring: invalid value"], elem.errors.collect(&:message)
+    assert_equal ["Mystring: invalid value"], elem.gather_validation_advice.collect(&:message)
+    testvalues = { 'a' => true, 'b' => true, 'c' => true, 'd' => false, 'foo' => false }
+    testvalues.each { |(value, expected)| elem.value = value; assert_equal expected, elem.validate }
+  end
+  
+  def test_validator_with_array
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_within_set :set => ('a'..'c')
+    end
+    assert !elem.validate
+    assert_equal ["Mystring: invalid value"], elem.errors.collect(&:message)
+    testvalues = { 'a' => true, 'b' => true, 'c' => true, 'd' => false, 'foo' => false }
+    testvalues.each { |(value, expected)| elem.value = value; assert_equal expected, elem.validate }
+  end
+  
+  def test_custom_validation_message
+    elem = ActiveForm::Element::build(:text, :mystring) do |e|
+      e.validates_within_set :set => (3..9) do |v|
+        v.message = "%1$s: value is not within these values: %3$s"
+      end
+    end
+    elem.value = 'abc'
+    assert !elem.validate
+    assert_equal ["Mystring: value is not within these values: 3, 4, 5, 6, 7, 8, 9"], elem.errors.collect(&:message)
+  end
+  
+end

data/test/validators/test_validates_within_time_range.rb

@@ -0,0 +1,53 @@
+require 'test_helper'
+
+class TestValidatesWithinTimeRange < Test::Unit::TestCase
+  
+  def test_validator_defaults
+    elem = ActiveForm::Element::build(:select_date, :mydate) do |e|
+      e.validates_within_time_range
+    end
+    assert elem.validate
+  end
+  
+  def test_validation_within_time_range
+    elem = ActiveForm::Element::build(:select_date, :mydate) do |e|
+      e.validates_within_time_range :range => (Time.local(2006, 8, 1)..Time.local(2006, 12, 31))
+    end
+    elem.value = Time.local(2006, 9, 11)
+    assert elem.validate
+    elem.value = Time.local(2006, 5, 5)
+    assert !elem.validate
+    assert_equal ["Mydate: specify a valid time or date between August 01, 2006 00:00 and December 31, 2006 00:00"], elem.errors.collect(&:message)
+    elem.value = Date.new(2006, 9, 11)
+    assert elem.validate
+    elem.value = '2006-9-11'
+    assert elem.validate
+  end
+  
+  def test_validation_within_date_range
+    elem = ActiveForm::Element::build(:select_date, :mydate) do |e|
+      e.validates_within_time_range :range => (Date.new(2006, 8, 1)..Date.new(2006, 12, 31))
+    end
+    elem.value = Date.new(2006, 9, 11)
+    assert elem.validate
+    elem.value = Date.new(2006, 5, 5)
+    assert !elem.validate
+    assert_equal ["Mydate: specify a valid time or date between August  1, 2006 and December 31, 2006"], elem.errors.collect(&:message)
+    elem.value = Time.local(2006, 9, 11)
+    assert elem.validate
+    elem.value = '2006-9-11'
+    assert elem.validate
+  end
+  
+  def test_validation_within_specific_array_of_dates
+    elem = ActiveForm::Element::build(:select_date, :mydate) do |e|
+      e.validates_within_time_range :range => [Date.new(2006, 8, 1), Date.new(2006, 9, 11)], :message => '%s: specify either August 1 or September 11'
+    end
+    elem.value = Date.new(2006, 9, 11)
+    assert elem.validate   
+    elem.value = Date.new(2006, 5, 5)
+    assert !elem.validate
+    assert_equal ["Mydate: specify either August 1 or September 11"], elem.errors.collect(&:message)
+  end
+  
+end