#!/usr/bin/env ruby
#
#  Copyright (c) 2007 Ritchie Young. All rights reserved.
#
# This file is part of RubySync.
# 
# RubySync is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
# 
# RubySync is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied
# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License along with RubySync; if not, write to the
# Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA

#
# Performs end-to-end tests of the memory based testing connectors.
#
[File.dirname(__FILE__) + '/../lib', File.dirname(__FILE__)].each do |lib_path|
  $:.unshift lib_path unless $:.include?(lib_path) || $:.include?(File.expand_path(lib_path))
end
require 'ruby_sync_test'
require 'hashlike_tests'
require 'ruby_sync/connectors/xml_connector'


class XmlTestAConnector < RubySync::Connectors::XmlConnector
  dbm_path "/tmp/rubysync_a"
  filename "/tmp/rubysync_a.xml"
end

class XmlTestBConnector < RubySync::Connectors::XmlConnector
  dbm_path "/tmp/rubysync_b"
  filename "/tmp/rubysync_b.xml"
end

class XmlTestConnector <  RubySync::Connectors::XmlConnector
  filename "/tmp/rubysync_test.xml"
end

class XmlTestPipeline < RubySync::Pipelines::BasePipeline
  
  allow_in
  allow_out
  
  client :xml_test_a
  vault :xml_test_b
end

class TcXmlConnectors < Test::Unit::TestCase
  
  include RubySyncTest
  include HashlikeTests

  alias_method :old_setup, :setup
  def setup
    old_setup
    @tc = XmlTestConnector.new
    File.delete_if_exists [@client.filename, @vault.filename, @tc.filename]
    xml_test_document
    @tc.started
  end
  
  alias_method :old_teardown, :teardown
  def teardown
    @tc.stopped
  end
  
  def testPipeline
    XmlTestPipeline
  end
  
  
  #  def test_with_xml()
  #    File.delete(@client.filename)   
  #      mrA = {
  #        'sn' => "A",
  #        'givenName' => 'Mr'
  #      }
  #    @client.with_xml do |content|
  #      assert_equal({}, content)
  #      content['a'] = mrA
  #    end
  #    @client.with_xml do |content|
  #      assert_equal(mrA, content['a'])
  #    end
  #  end

  
  def test_xml_delete
    assert_not_nil @tc['ctd']
    assert_equal ['Dummy'],@tc["ctd"]['sn']
    @tc.delete "ctd"
    assert_nil @tc['ctd']
  end
  
  def test_to_xml
    entry = {
      'sn'=>['Smith'],
      'givenName'=>%w/Bobby Earl/
    }
    
    xml = @tc.to_xml('bob', entry)
    doc = REXML::Document.new()
    doc << xml
    assert_equal doc, xml.document
    values = []
    xml.each_element("attr[@name='sn']/value") {|e| values << e.text}
    assert_equal as_array(entry['sn']), values
    values = []
    xml.each_element("attr[@name='givenName']/value") {|e| values << e.text}
    assert_equal entry['givenName'], values
    assert_equal entry, @tc.to_entry(xml)
  end
  
  def xml_test_document
    File.open(@tc.filename, "w") do |f|
      f.write <<END
<?xml version="1.0"?>
<entries>
  <entry id="ritchie">
    <attr name="sn">
      <value>Young</value>
    </attr>
    <attr name="givenName">
      <value>Ritchie</value>
    </attr>
    <attr name="hobbies">
      <value>Juggling</value>
      <value>Running</value>
      <value>Skipping</value>
    </attr>
  </entry>
  <entry id="ctd">
    <attr name="sn">
      <value>Dummy</value>
    </attr>
    <attr name="givenName">
      <value>Crash</value>
      <value>Test</value>
    </attr>
    <attr name="hobbies">
      <value>Falling</value>
      <value>Crashing</value>
      <value>Burning</value>
    </attr>
  </entry>
</entries>
END
    end
  end
end