#!/usr/bin/env ruby

require 'test/unit'
require 'pp'
require 'vpim/field'

Field=Vpim::DirectoryInfo::Field

class TestField < Test::Unit::TestCase

  def test_encode_decode_text()
    enc_in = "+\\\\+\\n+\\N+\\,+\\;+\\a+\\b+\\c+"
    dec = Vpim.decode_text(enc_in)
    #puts("<#{enc_in}> => <#{dec}>")
    assert_equal("+\\+\n+\n+,+;+a+b+c+", dec)
    enc_out = Vpim.encode_text(dec)
    should_be = "+\\\\+\\n+\\n+\\,+\\;+a+b+c+"
    # Note a, b, and c are allowed to be escaped, but shouldn't be and 
    # aren't in output
    #puts("<#{dec}> => <#{enc_out}>")
    assert_equal(should_be, enc_out)

  end

  def test_field4
    line = 't;e=a,b: 4 '
    part = Field.decode0(line)
    assert_equal("4", part[ 3 ])
  end

  def test_field3
    line = 't;e=a,b:4'
    part = Field.decode0(line)
    assert_equal("4", part[ 3 ])
    assert_equal( {'E' => [ 'a','b' ] }, part[ 2 ])
  end

  def test_field2
    line = 'tel;type=work,voice,msg:+1 313 747-4454'
    part = Field.decode0(line)
    assert_equal("+1 313 747-4454", part[ 3 ])
    assert_equal( {'TYPE' => [ 'work','voice','msg' ] }, part[ 2 ])
  end

  def test_field1
    line = 'ORGANIZER;CN="xxxx, xxxx [SC100:370:EXCH]":MAILTO:xxxx@americasm01.nt.com'
    parts = Field.decode0(line)

    assert_equal(nil, parts[0])
    assert_equal('ORGANIZER', parts[1])
    assert_equal({ 'CN' => [ "xxxx, xxxx [SC100:370:EXCH]" ] }, parts[2])
    assert_equal('MAILTO:xxxx@americasm01.nt.com', parts[3])
  end

=begin this can not be done :-(
  def test_case_equiv
    line = 'ORGANIZER;CN="xxxx, xxxx [SC100:370:EXCH]":MAILTO:xxxx@americasm01.nt.com'
    field = Field.decode(line)
    assert_equal(true, field.name?('organIZER'))
    assert_equal(true, field === 'organIZER')

    b = nil
    case field
    when 'organIZER'
      b = true
    end

    assert_equal(true, b)
  end
=end

  def test_field0
    assert_equal('name:', line = Field.encode0(nil, 'name'))
    assert_equal([ nil, 'NAME', {}, ''], Field.decode0(line))

    assert_equal('name:value', line = Field.encode0(nil, 'name', {}, 'value'))
    assert_equal([ nil, 'NAME', {}, 'value'], Field.decode0(line))

    assert_equal('name;encoding=B:dmFsdWU=', line = Field.encode0(nil, 'name', { 'encoding'=>:b64 }, 'value'))
    assert_equal([ nil, 'NAME', { 'ENCODING'=>['B']}, ['value'].pack('m').chomp ], Field.decode0(line))

    assert_equal('group.name:value', line = Field.encode0('group', 'name', {}, 'value'))
    assert_equal([ 'GROUP', 'NAME', {}, 'value'], Field.decode0(line))
  end

  def tEst_invalid_fields
    [
      'g.:',
      ':v',
    ].each do |line|
      assert_raises(Vpim::InvalidEncodingError) { Field.decode0(line) }
    end
  end

  def test_date_encode
    assert_equal("DTSTART:20040101\n", Field.create('DTSTART',  Date.new(2004, 1, 1) ).to_s)
    assert_equal("DTSTART:20040101\n", Field.create('DTSTART', [Date.new(2004, 1, 1)]).to_s)
  end

  def test_field_modify
    f = Field.create('name')

    assert_equal('', f.value)
    f.value = ''
    assert_equal('', f.value)
    f.value = 'z'
    assert_equal('z', f.value)

    f.group = 'z.b'
    assert_equal('Z.B', f.group)
    assert_equal("z.b.NAME:z\n", f.encode)

    assert_raises(TypeError) { f.value = :group }

    assert_equal('Z.B', f.group)

    assert_equal("z.b.NAME:z\n", f.encode)

    assert_raises(TypeError) { f.group = :group }

    assert_equal("z.b.NAME:z\n", f.encode)
    assert_equal('Z.B', f.group)

    f['p0'] = "hi julie"

    assert_equal("Z.B.NAME;P0=hi julie:z\n", f.encode)
    assert_equal(['hi julie'], f.param('p0'))
    assert_equal(['hi julie'], f['p0'])
    assert_equal('NAME', f.name)
    assert_equal('Z.B', f.group)

    # FAIL   assert_raises(ArgumentError) { f.group = 'z.b:' }

    assert_equal('Z.B', f.group)

    f.value = 'some text'
    
    assert_equal('some text', f.value)
    assert_equal('some text', f.value_raw)

    f['encoding'] = :b64

    assert_equal('some text', f.value)
    assert_equal([ 'some text' ].pack('m*').chomp, f.value_raw)
  end

  def test_field_wrapping
    assert_equal("0:x\n",             Vpim::DirectoryInfo::Field.create('0', 'x' * 1).encode(4))
    assert_equal("0:xx\n",            Vpim::DirectoryInfo::Field.create('0', 'x' * 2).encode(4))
    assert_equal("0:xx\n x\n",        Vpim::DirectoryInfo::Field.create('0', 'x' * 3).encode(4))
    assert_equal("0:xx\n xx\n",       Vpim::DirectoryInfo::Field.create('0', 'x' * 4).encode(4))
    assert_equal("0:xx\n xxxx\n",     Vpim::DirectoryInfo::Field.create('0', 'x' * 6).encode(4))
    assert_equal("0:xx\n xxxx\n x\n", Vpim::DirectoryInfo::Field.create('0', 'x' * 7).encode(4))
  end
end