require File.join(File.dirname(__FILE__), "..", "helper")

class TestXmlToHash < Test::Unit::TestCase

  context "Calling xml_to_hash" do
    setup do
      ApricotEatsGorilla.setup do |s|
        s.sort_keys = true
        s.disable_tag_names_to_lower_camel_case = false
        s.disable_hash_keys_to_snake_case = false
        s.disable_hash_keys_to_symbol = false
      end
    end

    context "with a SOAP response example and a custom root node" do
      should "return a Hash containing the XML content" do
        xml = '<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
          <soap:Body>
            <ns2:authenticateResponse xmlns:ns2="http://v1_0.ws.example.com/">
              <return>
                <authValue>
                  <token>secret</token>
                  <client>example</client>
                </authValue>
              </return>
            </ns2:authenticateResponse>
          </soap:Body>
        </soap:Envelope>'
        expected = { :auth_value => { :token => "secret", :client => "example" } }

        result = ApricotEatsGorilla.xml_to_hash(xml, "//return")
        assert_equal expected, result
      end
    end

    context "with XML containing 'true' and 'false' Strings" do
      should "convert these Strings into actual Boolean objects" do
        xml = "<root><yes>true</yes><no>false</no><text>something</text></root>"
        expected = { :yes => true, :no => false, :text => "something" }

        result = ApricotEatsGorilla.xml_to_hash(xml)
        assert_equal expected, result
      end
    end

    context "with XML containing empty element tags" do
      should "convert empty element tags to nil" do
        xml = "<contact><name>Jungle Julia</name><email /><phone/></contact>"
        expected = { :name => "Jungle Julia", :email => nil, :phone => nil }

        result = ApricotEatsGorilla.xml_to_hash(xml)
        assert_equal expected, result
      end
    end

    context "with XML containing nodes with attributes" do
      should "return a Hash without tag attributes" do
        xml = '<root><user id="123">example</user></root>'
        expected = { :user => "example" }

        result = ApricotEatsGorilla.xml_to_hash(xml)
        assert_equal expected, result
      end
    end

    context "with XML containing multiple custom root nodes" do
      should "return an Array containing the values of each root node" do
        xml = '<root><return><id>123</id></return><return><id>456</id></return></root>'
        expected = [{ :id => "123" }, { :id => "456" }]

        result = ApricotEatsGorilla.xml_to_hash(xml, "//return")
        assert_equal expected, result
      end
    end

    context "with XML containing no subnodes at custom root node" do
      should "return the plain content of the custom root node" do
        xml = '<root><return>123</return></root>'
        expected = "123"

        result = ApricotEatsGorilla.xml_to_hash(xml, "//return")
        assert_equal expected, result
      end
    end

    context "with XML containing no subnodes in multiple custom root nodes" do
      should "return an Array containing the values of each root node" do
        xml = '<root><return>123</return><return>456</return></root>'
        expected = ["123", "456"]

        result = ApricotEatsGorilla.xml_to_hash(xml, "//return")
        assert_equal expected, result
      end
    end

    context "with XML containing several subnodes with the same name and text content" do
      should "return a Hash containing one key and an array of Strings" do
        xml = '<root><return><items>123</items><items>456</items></return></root>'
        expected = { :items => ["123", "456"] }
        
        result = ApricotEatsGorilla[xml, "//return"]
        assert_equal expected, result
      end
    end

    context "with XML containing lowerCamelCase nodes" do
      should "convert lowerCamelCase nodes to snake_case" do
        xml = "<contact><firstName>Jungle</firstName><lastName>Julia</lastName></contact>"
        expected = { :first_name => "Jungle", :last_name => "Julia" }

        result = ApricotEatsGorilla.xml_to_hash(xml)
        assert_equal expected, result
      end

      context "and converting lowerCamelCase Hash keys to snake_case turned off" do
        setup { ApricotEatsGorilla.disable_hash_keys_to_snake_case = true }

        should "not convert lowerCamelCase Hash keys to snake_case" do
          xml = "<contact><firstName>Jungle</firstName><lastName>Julia</lastName></contact>"
          expected = { :firstName => "Jungle", :lastName => "Julia" }

          result = ApricotEatsGorilla.xml_to_hash(xml)
          assert_equal expected, result
        end
      end
    end

    context "with some XML" do
      should "convert Hash keys to Symbols" do
        xml = "<contact><name>Jungle Julia</name><address/></contact>"
        expected = { :name => "Jungle Julia", :address => nil }

        result = ApricotEatsGorilla.xml_to_hash(xml)
        assert_equal expected, result
      end

      context "and converting Hash keys to Symbols turned off" do
        setup { ApricotEatsGorilla.disable_hash_keys_to_symbol = true }

        should "not convert Hash keys to Symbols" do
          xml = "<contact><name>Jungle Julia</name><address/></contact>"
          expected = { "name" => "Jungle Julia", "address" => nil }

          result = ApricotEatsGorilla.xml_to_hash(xml)
          assert_equal expected, result
        end
      end
    end
  end

end