test/xmlrpc/test_parser.rb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77

$LOAD_PATH.unshift '../../lib'
require 'test/unit'
require "xmlrpc/parser"

module GenericParserTest
  def setup
    @xml1 = File.readlines("data/xml1.xml").to_s
    @expected1 = File.readlines("data/xml1.expected").to_s.chomp

    @xml2 = File.readlines("data/bug_covert.xml").to_s
    @expected2 = File.readlines("data/bug_covert.expected").to_s.chomp

    @xml3 = File.readlines("data/bug_bool.xml").to_s
    @expected3 = File.readlines("data/bug_bool.expected").to_s.chomp

    @xml4 = File.readlines("data/value.xml").to_s
    @expected4 = File.readlines("data/value.expected").to_s.chomp

    @cdata_xml = File.readlines("data/bug_cdata.xml").to_s.chomp
    @cdata_expected = File.readlines("data/bug_cdata.expected").to_s.chomp

    @fault_doc = File.readlines("data/fault.xml").to_s
  end

  # test parseMethodResponse --------------------------------------------------
  
  def test_parseMethodResponse1
    assert_equal(@expected1, @p.parseMethodResponse(@xml1).inspect)
  end

  def test_parseMethodResponse2
    assert_equal(@expected2, @p.parseMethodResponse(@xml2).inspect)
  end

  def test_parseMethodResponse3
    assert_equal(@expected3, @p.parseMethodResponse(@xml3).inspect)
  end

  def test_cdata
    assert_equal(@cdata_expected, @p.parseMethodResponse(@cdata_xml).inspect)
  end

  # test parseMethodCall ------------------------------------------------------

  def test_parseMethodCall
    assert_equal(@expected4, @p.parseMethodCall(@xml4).inspect)
  end

  # test fault ----------------------------------------------------------------

  def test_fault
    flag, fault = @p.parseMethodResponse(@fault_doc)
     assert_equal(flag, false)
     unless fault.is_a? XMLRPC::FaultException
       assert(false, "must be an instance of class XMLRPC::FaultException")
     end
     assert_equal(fault.faultCode, 4)
     assert_equal(fault.faultString, "an error message")
  end
end

# create test class for each installed parser 
XMLRPC::XMLParser.each_installed_parser do |parser|
  klass = parser.class
  name = klass.to_s.split("::").last

  eval %{
    class Test_#{name} < Test::Unit::TestCase
      include GenericParserTest

      def setup
        super
        @p = #{klass}.new
      end
    end
  }
end