summaryrefslogtreecommitdiff
path: root/test/xmlrpc/test_marshal.rb
diff options
context:
space:
mode:
author(no author) <(no author)@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2005-05-12 08:35:15 +0000
committer(no author) <(no author)@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2005-05-12 08:35:15 +0000
commit3fa9a0549b38f8e2a31b50db6582cc2e8c16a41e (patch)
tree07279cfda03c78886f9df2b302bfe42c011743a8 /test/xmlrpc/test_marshal.rb
parent289a3196224056a4367341e4310517b112830626 (diff)
This commit was manufactured by cvs2svn to create tag
'v1_8_3_preview1'. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_8_3_preview1@8439 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'test/xmlrpc/test_marshal.rb')
-rw-r--r--test/xmlrpc/test_marshal.rb93
1 files changed, 0 insertions, 93 deletions
diff --git a/test/xmlrpc/test_marshal.rb b/test/xmlrpc/test_marshal.rb
deleted file mode 100644
index 38bc8c646f..0000000000
--- a/test/xmlrpc/test_marshal.rb
+++ /dev/null
@@ -1,93 +0,0 @@
-require 'test/unit'
-require "xmlrpc/marshal"
-
-class Test_Marshal < Test::Unit::TestCase
- # for test_parser_values
- class Person
- include XMLRPC::Marshallable
- attr_reader :name
- def initialize(name)
- @name = name
- end
- end
-
-
- def test1_dump_response
- assert_nothing_raised(NameError) {
- XMLRPC::Marshal.dump_response('arg')
- }
- end
-
- def test1_dump_call
- assert_nothing_raised(NameError) {
- XMLRPC::Marshal.dump_call('methodName', 'arg')
- }
- end
-
- def test2_dump_load_response
- value = [1, 2, 3, {"test" => true}, 3.4]
- res = XMLRPC::Marshal.dump_response(value)
-
- assert_equal(value, XMLRPC::Marshal.load_response(res))
- end
-
- def test2_dump_load_call
- methodName = "testMethod"
- value = [1, 2, 3, {"test" => true}, 3.4]
- exp = [methodName, [value, value]]
-
- res = XMLRPC::Marshal.dump_call(methodName, value, value)
-
- assert_equal(exp, XMLRPC::Marshal.load_call(res))
- end
-
- def test_parser_values
- v1 = [
- 1, -7778, # integers
- 1.0, 0.0, -333.0, 2343434343.0, # floats
- false, true, true, false, # booleans
- "Hallo", "with < and >", "" # strings
- ]
-
- v2 = [
- [v1, v1, v1],
- {"a" => v1}
- ]
-
- v3 = [
- XMLRPC::Base64.new("\001"*1000), # base64
- :aSymbol, :anotherSym # symbols (-> string)
- ]
- v3_exp = [
- "\001"*1000,
- "aSymbol", "anotherSym"
- ]
- person = Person.new("Michael")
-
- XMLRPC::XMLParser.each_installed_parser do |parser|
- m = XMLRPC::Marshal.new(parser)
-
- assert_equal( v1, m.load_response(m.dump_response(v1)) )
- assert_equal( v2, m.load_response(m.dump_response(v2)) )
- assert_equal( v3_exp, m.load_response(m.dump_response(v3)) )
-
- pers = m.load_response(m.dump_response(person))
-
- assert( pers.is_a?(Person) )
- assert( person.name == pers.name )
- end
-
- # missing, Date, Time, DateTime
- # Struct
- end
-
- def test_no_params_tag
- # bug found by Idan Sofer
-
- expect = %{<?xml version="1.0" ?><methodCall><methodName>myMethod</methodName><params/></methodCall>\n}
-
- str = XMLRPC::Marshal.dump_call("myMethod")
- assert_equal(expect, str)
- end
-
-end