rapuncel 0.0.4 → 0.0.5.RC1

data/lib/rapuncel/base.rb

@@ -1,7 +0,0 @@
-module Rapuncel
-  BUILDER_OPTIONS = {:encoding => 'UTF-8'}
-
-  def self.get_builder options = {}
-    Nokogiri::XML::Builder.new options
-  end
-end

data/lib/rapuncel/core_ext/array.rb

@@ -1,23 +0,0 @@
-class Array
-  def to_xml_rpc b = Rapuncel.get_builder
-    b.array do |b|
-      b.data do |b|
-        each do |array_entry|
-          b.value do |b|
-            array_entry.to_xml_rpc b
-          end
-        end
-      end
-    end
-
-    b.to_xml
-  end
-
-  def self.from_xml_rpc xml_node
-    values = xml_node.first_element_child.element_children
-
-    values.map do |value|
-      Object.from_xml_rpc value.first_element_child
-    end
-  end
-end

data/lib/rapuncel/core_ext/big_decimal.rb

@@ -1,7 +0,0 @@
-class BigDecimal
-  def to_xml_rpc b = Rapuncel.get_builder
-    b.double self.to_s
-
-    b.to_xml
-  end
-end

data/lib/rapuncel/core_ext/boolean.rb

@@ -1,29 +0,0 @@
-class TrueClass
-  def to_xml_rpc b = Rapuncel.get_builder
-    b.boolean "1"
-
-    b.to_xml
-  end
-end
-
-class FalseClass
-  def to_xml_rpc b = Rapuncel.get_builder
-    b.boolean "0"
-
-    b.to_xml
-  end
-end
-
-# this is to catch the from_xml_rpc call from Object
-class Rapuncel::Boolean
-  def self.from_xml_rpc xml_node
-
-    # DISCUSS: need convention here:
-    case xml_node.text.downcase
-    when '1'
-      true
-    else
-      false
-    end
-  end
-end

data/lib/rapuncel/core_ext/float.rb

@@ -1,11 +0,0 @@
-class Float
-  def self.from_xml_rpc xml_node
-    xml_node.text.strip.to_f #calling to_float on the text between the (hopefully correct) tags
-  end
-
-  def to_xml_rpc b = Rapuncel.get_builder
-    b.double to_s
-
-    b.to_xml
-  end
-end

data/lib/rapuncel/core_ext/hash.rb

@@ -1,32 +0,0 @@
-class Hash
-  # Hash will be translated into an XML-RPC "struct" object
-
-  def to_xml_rpc b = Rapuncel.get_builder
-    b.struct do |b|
-      self.each_pair do |key, value|
-        b.member do |b|
-          b.name key.to_s
-
-          b.value do |b|
-            value.to_xml_rpc b
-          end
-        end
-      end
-    end
-
-    b.to_xml
-  end
-
-  def self.from_xml_rpc xml_node
-    keys_and_values = xml_node.element_children
-
-    new.tap do |hash|
-      keys_and_values.each do |kv|
-        key = kv.first_element_child.text.strip.to_sym
-        value = Object.from_xml_rpc kv.last_element_child.first_element_child
-
-        hash[key] = value
-      end
-    end
-  end
-end

data/lib/rapuncel/core_ext/integer.rb

@@ -1,11 +0,0 @@
-class Integer
-  def to_xml_rpc b = Rapuncel.get_builder
-    b.int self.to_s
-
-    b.to_xml
-  end
-
-  def self.from_xml_rpc xml_node
-    xml_node.text.strip.to_i #calling to_i on the text between the i4 or int tags
-  end
-end

data/lib/rapuncel/core_ext/nil.rb

@@ -1,7 +0,0 @@
-class NilClass
-  def to_xml_rpc b = Rapuncel.get_builder
-    false.to_xml_rpc b
-
-    b.to_xml
-  end
-end

data/lib/rapuncel/core_ext/object.rb

@@ -1,49 +0,0 @@
-class Object
-  def to_xml_rpc b = Rapuncel.get_builder
-    if respond_to?(:acts_like?) && acts_like?(:time)
-      to_time.to_xml_rpc b
-    else
-      _collect_ivars_in_hash.to_xml_rpc b
-    end
-
-    b.to_xml
-  end
-
-  def self.from_xml_rpc xml_node
-    if xml_node.is_a? String
-      xml_node = Nokogiri::XML.parse(xml_node).root
-    end
-
-    return nil if xml_node.nil?
-
-    case xml_node.name
-    when 'i4', 'int'
-      Integer.from_xml_rpc xml_node
-    when 'array'
-      Array.from_xml_rpc xml_node
-    when 'struct'
-      Hash.from_xml_rpc xml_node
-    when 'double'
-      Float.from_xml_rpc xml_node
-    when 'boolean'
-      Rapuncel::Boolean.from_xml_rpc xml_node
-    when 'string'
-      String.from_xml_rpc xml_node
-    when 'dateTime.iso8601'
-      Time.from_xml_rpc xml_node
-    when 'base64'
-      raise 'Now its time to implement Base64'
-    else
-      raise "What is this? I didn't know #{xml_node.name} was part of the XMLRPC specification? Anyway, the value was: #{xml_node.text.strip}"
-    end
-  end
-
-  private
-  def _collect_ivars_in_hash
-    {}.tap do |hsh|
-      instance_variables.each do |ivar|
-        hsh[ivar[1..-1]] = instance_variable_get ivar
-      end
-    end
-  end
-end

data/lib/rapuncel/core_ext/string.rb

@@ -1,12 +0,0 @@
-class String
-  def to_xml_rpc b = Rapuncel.get_builder
-    b.string self
-
-    b.to_xml
-  end
-
-  def self.from_xml_rpc xml_node
-    xml_node.text.gsub(/(\r\n|\r)/, "\n") #just give back the string between the 'string' tags
-    # DISCUSS: to strip or not to strip
-  end
-end

data/lib/rapuncel/core_ext/symbol.rb

@@ -1,7 +0,0 @@
-class Symbol
-  def to_xml_rpc b = Rapuncel.get_builder
-    b.string to_s
-
-    b.to_xml
-  end
-end

data/lib/rapuncel/core_ext/time.rb

@@ -1,14 +0,0 @@
-require 'time'
-
-class Time
-
-  def to_xml_rpc b=Rapuncel.get_builder
-    b.send "dateTime.iso8601", self.iso8601
-
-    b.to_xml
-  end
-
-  def self.from_xml_rpc xml_node
-    Time.parse xml_node.text.strip #make a Time object of this string which is hopefully in the right format
-  end
-end

data/test/functional/client_test.rb

@@ -1,54 +0,0 @@
-require 'functional_test_helper'
-
-class FunctionalClientTest < FunctionalTest
-  test "Simple XMLRPC call" do
-    client = Rapuncel::Client.new :port => 9485, :raise_on => :both
-    proxy = client.proxy_for 'num'
-
-    result = proxy.add 40, 2
-
-    assert_equal 42, result
-  end
-  
-  test "Fault rpc call without raise" do
-    client = Rapuncel::Client.new :port => 9485
-    proxy = client.proxy_for 'num'
-    
-    assert_nothing_raised Rapuncel::Response::Exception do
-      proxy.add 20, 20, 2
-    end
-    
-    assert_kind_of Hash, proxy.add(20, 20, 2)    
-  end
-
-  test "Fault rpc call" do
-    client = Rapuncel::Client.new :port => 9485, :raise_on => :both
-    proxy = client.proxy_for 'num'
-    
-    assert_raise Rapuncel::Response::Fault do
-      proxy.add 20, 20, 2
-    end
-  end
-  
-  test "Error rpc connection" do
-    client = Rapuncel::Client.new :host => 'www.cice-online.net', :port => 80, :path => '/hullahoobahubbahooo', :raise_on => :both
-    proxy = client.proxy
-    
-    assert_raise Rapuncel::Response::Error do
-      proxy.foo :bar, :baz
-    end
-  end
-  
-  test "Error rpc connection without raise" do
-    client = Rapuncel::Client.new :host => 'www.google.de', :port => 80, :path => '/hullahoobahubbahooo'
-    proxy = client.proxy
-    
-    assert_nothing_raised Rapuncel::Response::Error do
-      proxy.foo :bar, :baz
-    end
-    
-    err = proxy.foo(:bar, :baz)
-    assert_kind_of Hash, err
-    assert_equal 404, err[:http_code]
-  end
-end

data/test/functional_test_helper.rb

@@ -1,13 +0,0 @@
-require 'test_helper'
-require 'test_server'
-
-class FunctionalTest < ActiveSupport::TestCase
-  def setup
-    @test_server = TestServer.new
-    @test_server.start
-  end
-
-  def teardown
-    @test_server.stop
-  end
-end

data/test/test_helper.rb

@@ -1,38 +0,0 @@
-lib_dir = File.join File.dirname(__FILE__), '..', 'lib'
-$:.unshift lib_dir
-
-require 'rubygems'
-require 'active_support'
-require 'test/unit'
-require 'mocha'
-require 'rapuncel'
-require 'nokogiri'
-require 'ruby-debug'
-
-class ActiveSupport::TestCase
-  def assert_select xml, xpath, eq, count = nil
-    doc = Nokogiri::XML.parse xml, nil, nil, Nokogiri::XML::ParseOptions::STRICT
-    res = doc.xpath xpath
-
-    eq.nil? && assert(res.blank?) && return
-
-    case eq
-    when Integer
-      assert_equal eq, res.size
-    when String
-      eq = eq.strip
-
-      if count
-        assert_equal count, res.to_a.select{ |node|
-          node.text.strip == eq
-        }.size
-      else
-        assert res.to_a.all?{ |node|
-          node.text.strip == eq
-        }
-      end
-    else
-      raise "Third argument should be String or Integer"
-    end
-  end
-end

data/test/unit/array_test.rb

@@ -1,97 +0,0 @@
-require 'test_helper'
-
-class ArrayTest < ActiveSupport::TestCase
-
-  test "an array of 10 entries should have 10x /array/data/value" do
-    arr = (1..10).to_a.map &:to_s
-    xml = arr.to_xml_rpc
-
-    assert_select xml, '/array/data/value', 10
-  end
-
-
-
-  test "An array, converted to xml and parsed back should be itself" do
-    def test_array_conversion arr
-      xml = arr.to_xml_rpc
-
-      xml_node = Nokogiri::XML(xml).children.first
-
-      reparsed = Array.from_xml_rpc xml_node
-
-      reparsed
-    end
-    
-    arr1 = (1..10).to_a
-    arr2 = arr1.map &:to_s
-
-    arr3 = [arr1, arr2]
-
-    arr4 = ["hello", arr3]
-
-    reparsed1 = test_array_conversion arr1
-    reparsed2 = test_array_conversion arr2
-    reparsed3 = test_array_conversion arr3
-    reparsed4 = test_array_conversion arr4
-
-    [reparsed1, reparsed2, reparsed3, reparsed4].zip([arr1, arr2, arr3, arr4]).each do |b|
-      assert_equal *b
-    end
-
-  end
-
-  test "real world repsonse" do
-    response_body = <<-XML
-      <array><data>
-      <value><struct>
-      <member>
-      <name>state</name>
-      <value><string>uninstalled</string></value>
-      </member>
-      <member>
-      <name>name</name>
-      <value><string>account_cancel</string></value>
-      </member>
-      <member>
-      <name>id</name>
-      <value><int>1</int></value>
-      </member>
-      </struct></value>
-      <value><struct>
-      <member>
-      <name>state</name>
-      <value><string>uninstalled</string></value>
-      </member>
-      <member>
-      <name>name</name>
-      <value><string>document_ftp</string></value>
-      </member>
-      <member>
-      <name>id</name>
-      <value><int>3</int></value>
-      </member>
-      </struct></value>
-      <value><struct>
-      <member>
-      <name>state</name>
-      <value><string>uninstalled</string></value>
-      </member>
-      <member>
-      <name>name</name>
-      <value><string>mrp_repair</string></value>
-      </member>
-      <member>
-      <name>id</name>
-      <value><int>2</int></value>
-      </member>
-      </struct></value>
-      </data></array>
-    XML
-
-    arr = Object.from_xml_rpc response_body
-
-    assert_kind_of Array, arr
-    assert_equal 3, arr.size
-  end
-
-end

data/test/unit/boolean_test.rb

@@ -1,34 +0,0 @@
-require 'test_helper'
-
-class BooleanTest < ActiveSupport::TestCase
-
-  test "true must evaluate to 1" do
-    assert_select true.to_xml_rpc, '/boolean', 1
-    assert_select true.to_xml_rpc, '/boolean', '1'
-  end
-
-  test "false must evaluate to 0" do
-    assert_select false.to_xml_rpc, '/boolean', 1
-    assert_select false.to_xml_rpc, '/boolean', '0'
-  end
-
-  test "true.to_xml_rpc reparsed must be true" do
-    xml=true.to_xml_rpc
-    xml_node = Nokogiri::XML(xml).children.first
-
-    assert Rapuncel::Boolean.from_xml_rpc(xml_node) #I assume assert takes a boolean?
-    assert Rapuncel::Boolean.from_xml_rpc(xml_node) == true #is this different? just in case the other function gives back something non nil/false which is not necessarily true
-  end
-
-  test "false.to_xml_rpc reparsed must be false" do
-    xml=false.to_xml_rpc
-    xml_node = Nokogiri::XML(xml).children.first
-
-    assert !Rapuncel::Boolean.from_xml_rpc(xml_node)
-  end
-
-  test "anything else should evaluate to what now?" do
-    assert true
-  end
-
-end