require 'test/unit'
require 'rubygems'
require File.join(File.dirname(__FILE__), '../init')

class CoercedTest < Test::Unit::TestCase
  def test_is_a_feature
    assert_equal 1, 1.must.be.coerced(Integer)
    assert_equal 1, 1.must.be.coerced(Integer, String)
    assert_equal 1, 1.must.be.coerced(String, Numeric)

    assert_raises(Invalid)     { "1".must.be.coerced(Integer) }
    assert_raises(Invalid)     { "1".must.be.coerced(Integer, Range) }
    assert_raises(NotImplementedError) { "1".must.be.coerced(Integer){raise NotImplementedError} }
  end

  def test_coecing_succeeded
    assert_equal 1,   1.must.be.coerced(Integer, String=>proc{|i|i.to_i})
    assert_equal 1, "1".must.be.coerced(Integer, String=>proc{|i|i.to_i})
    assert_equal 1, "1".must.be.coerced(Integer, String=>proc{|i|i.to_i}, Range=>proc{|i|i.first})
    assert_equal 1, "1".must.be.coerced(Integer, Range, String=>proc{|i|i.to_i}, Range=>proc{|i|i.first})
    assert_equal 1, "1".must.be.coerced(File, Integer, Range, String=>proc{|i|i.to_i}, Range=>proc{|i|i.first})
  end

  def test_coecing_failed
    assert_raises(Invalid)     { "1".must.be.coerced(Integer, String=>proc{|i| /a/}) }
    assert_raises(NotImplementedError) { "1".must.be.coerced(Integer, String=>proc{|i| /a/}){raise NotImplementedError} }
  end

  def test_cascaded_coecing_succeeded
    assert_equal 1,    1.must.be.coerced(Integer, Symbol=>:to_s, String=>:to_i)
    assert_equal 1,  "1".must.be.coerced(Integer, Symbol=>:to_s, String=>:to_i)
    assert_equal 1, :"1".must.be.coerced(Integer, Symbol=>:to_s, String=>:to_i)
  end

  def test_detect_livelock
    assert_raises(Invalid){ "1".must.be.coerced(Integer, Symbol=>:to_s, String=>:intern)}
    assert_raises(Invalid){:"1".must.be.coerced(Integer, Symbol=>:to_s, String=>:intern)}
  end
end