rtiss_soap4r 1.6.1 → 2.0.4

data/test/soap/literalArrayMapping/amazonEcDriver.rb

@@ -1,173 +0,0 @@
-# encoding: ASCII-8BIT
-require 'amazonEc.rb'
-
-require 'soap/rpc/driver'
-
-class AWSECommerceServicePortType < ::SOAP::RPC::Driver
-  DefaultEndpointUrl = "http://soap.amazon.com/onca/soap?Service=AWSECommerceService"
-  MappingRegistry = ::SOAP::Mapping::Registry.new
-
-  Methods = [
-    [ "http://soap.amazon.com",
-      "help",
-      [ [:in, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "Help"], true],
-        [:out, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "HelpResponse"], true] ],
-      { :request_style =>  :document, :request_use =>  :literal,
-        :response_style => :document, :response_use => :literal }
-    ],
-    [ "http://soap.amazon.com",
-      "itemSearch",
-      [ [:in, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "ItemSearch"], true],
-        [:out, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "ItemSearchResponse"], true] ],
-      { :request_style =>  :document, :request_use =>  :literal,
-        :response_style => :document, :response_use => :literal }
-    ],
-    [ "http://soap.amazon.com",
-      "itemLookup",
-      [ [:in, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "ItemLookup"], true],
-        [:out, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "ItemLookupResponse"], true] ],
-      { :request_style =>  :document, :request_use =>  :literal,
-        :response_style => :document, :response_use => :literal }
-    ],
-    [ "http://soap.amazon.com",
-      "browseNodeLookup",
-      [ [:in, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "BrowseNodeLookup"], true],
-        [:out, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "BrowseNodeLookupResponse"], true] ],
-      { :request_style =>  :document, :request_use =>  :literal,
-        :response_style => :document, :response_use => :literal }
-    ],
-    [ "http://soap.amazon.com",
-      "listSearch",
-      [ [:in, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "ListSearch"], true],
-        [:out, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "ListSearchResponse"], true] ],
-      { :request_style =>  :document, :request_use =>  :literal,
-        :response_style => :document, :response_use => :literal }
-    ],
-    [ "http://soap.amazon.com",
-      "listLookup",
-      [ [:in, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "ListLookup"], true],
-        [:out, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "ListLookupResponse"], true] ],
-      { :request_style =>  :document, :request_use =>  :literal,
-        :response_style => :document, :response_use => :literal }
-    ],
-    [ "http://soap.amazon.com",
-      "customerContentSearch",
-      [ [:in, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "CustomerContentSearch"], true],
-        [:out, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "CustomerContentSearchResponse"], true] ],
-      { :request_style =>  :document, :request_use =>  :literal,
-        :response_style => :document, :response_use => :literal }
-    ],
-    [ "http://soap.amazon.com",
-      "customerContentLookup",
-      [ [:in, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "CustomerContentLookup"], true],
-        [:out, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "CustomerContentLookupResponse"], true] ],
-      { :request_style =>  :document, :request_use =>  :literal,
-        :response_style => :document, :response_use => :literal }
-    ],
-    [ "http://soap.amazon.com",
-      "similarityLookup",
-      [ [:in, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "SimilarityLookup"], true],
-        [:out, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "SimilarityLookupResponse"], true] ],
-      { :request_style =>  :document, :request_use =>  :literal,
-        :response_style => :document, :response_use => :literal }
-    ],
-    [ "http://soap.amazon.com",
-      "sellerLookup",
-      [ [:in, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "SellerLookup"], true],
-        [:out, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "SellerLookupResponse"], true] ],
-      { :request_style =>  :document, :request_use =>  :literal,
-        :response_style => :document, :response_use => :literal }
-    ],
-    [ "http://soap.amazon.com",
-      "cartGet",
-      [ [:in, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "CartGet"], true],
-        [:out, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "CartGetResponse"], true] ],
-      { :request_style =>  :document, :request_use =>  :literal,
-        :response_style => :document, :response_use => :literal }
-    ],
-    [ "http://soap.amazon.com",
-      "cartCreate",
-      [ [:in, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "CartCreate"], true],
-        [:out, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "CartCreateResponse"], true] ],
-      { :request_style =>  :document, :request_use =>  :literal,
-        :response_style => :document, :response_use => :literal }
-    ],
-    [ "http://soap.amazon.com",
-      "cartAdd",
-      [ [:in, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "CartAdd"], true],
-        [:out, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "CartAddResponse"], true] ],
-      { :request_style =>  :document, :request_use =>  :literal,
-        :response_style => :document, :response_use => :literal }
-    ],
-    [ "http://soap.amazon.com",
-      "cartModify",
-      [ [:in, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "CartModify"], true],
-        [:out, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "CartModifyResponse"], true] ],
-      { :request_style =>  :document, :request_use =>  :literal,
-        :response_style => :document, :response_use => :literal }
-    ],
-    [ "http://soap.amazon.com",
-      "cartClear",
-      [ [:in, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "CartClear"], true],
-        [:out, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "CartClearResponse"], true] ],
-      { :request_style =>  :document, :request_use =>  :literal,
-        :response_style => :document, :response_use => :literal }
-    ],
-    [ "http://soap.amazon.com",
-      "transactionLookup",
-      [ [:in, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "TransactionLookup"], true],
-        [:out, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "TransactionLookupResponse"], true] ],
-      { :request_style =>  :document, :request_use =>  :literal,
-        :response_style => :document, :response_use => :literal }
-    ],
-    [ "http://soap.amazon.com",
-      "sellerListingSearch",
-      [ [:in, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "SellerListingSearch"], true],
-        [:out, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "SellerListingSearchResponse"], true] ],
-      { :request_style =>  :document, :request_use =>  :literal,
-        :response_style => :document, :response_use => :literal }
-    ],
-    [ "http://soap.amazon.com",
-      "sellerListingLookup",
-      [ [:in, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "SellerListingLookup"], true],
-        [:out, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "SellerListingLookupResponse"], true] ],
-      { :request_style =>  :document, :request_use =>  :literal,
-        :response_style => :document, :response_use => :literal }
-    ],
-    [ "http://soap.amazon.com",
-      "multiOperation",
-      [ [:in, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "MultiOperation"], true],
-        [:out, "body", ["::SOAP::SOAPElement", "http://webservices.amazon.com/AWSECommerceService/2006-06-07", "MultiOperationResponse"], true] ],
-      { :request_style =>  :document, :request_use =>  :literal,
-        :response_style => :document, :response_use => :literal }
-    ]
-  ]
-
-  def initialize(endpoint_url = nil)
-    endpoint_url ||= DefaultEndpointUrl
-    super(endpoint_url, nil)
-    self.mapping_registry = MappingRegistry
-    init_methods
-  end
-
-private
-
-  def init_methods
-    Methods.each do |definitions|
-      opt = definitions.last
-      if opt[:request_style] == :document
-        add_document_operation(*definitions)
-      else
-        add_rpc_operation(*definitions)
-        qname = definitions[0]
-        name = definitions[2]
-        if qname.name != name and qname.name.capitalize == name.capitalize
-          ::SOAP::Mapping.define_singleton_method(self, qname.name) do |*arg|
-            __send__(name, *arg)
-          end
-        end
-      end
-    end
-  end
-end
-

data/test/soap/literalArrayMapping/amazonresponse.xml

@@ -1,100 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
-  <SOAP-ENV:Body>
-    <ItemSearchResponse xmlns="http://webservices.amazon.com/AWSECommerceService/2006-06-07">
-      <OperationRequest>
-        <HTTPHeaders>
-          <Header Name="UserAgent" Value="SOAP4R/1.5.5 (/114, ruby 1.8.4 (2005-12-24) [i686-linux])">
-          </Header>
-        </HTTPHeaders>
-        <RequestId>00000000000000000000</RequestId>
-        <Arguments>
-          <Argument Name="Service" Value="AWSECommerceService">
-          </Argument>
-        </Arguments>
-        <RequestProcessingTime>0.17442512512207</RequestProcessingTime>
-      </OperationRequest>
-      <Items>
-        <Request>
-          <IsValid>True</IsValid>
-        </Request>
-        <TotalResults>11</TotalResults>
-        <TotalPages>2</TotalPages>
-        <Item>
-          <ASIN>B000AMF800</ASIN>
-          <DetailPageURL>the_url_is_too_long</DetailPageURL>
-          <ItemAttributes>
-            <Artist>Andreas Bieber, Pia Douwes, Thomas Borchert, Felix Martin Uwe</Artist>
-            <Manufacturer>Ar-Express (Sony BMG)</Manufacturer>
-            <ProductGroup>Music</ProductGroup>
-            <Title>Musical Stars</Title>
-          </ItemAttributes>
-          <OfferSummary>
-            <LowestNewPrice>
-              <Amount>852</Amount>
-              <CurrencyCode>EUR</CurrencyCode>
-              <FormattedPrice>EUR 8,52</FormattedPrice>
-            </LowestNewPrice>
-            <LowestUsedPrice>
-              <Amount>852</Amount>
-              <CurrencyCode>EUR</CurrencyCode>
-              <FormattedPrice>EUR 8,52</FormattedPrice>
-            </LowestUsedPrice>
-            <TotalNew>12</TotalNew>
-            <TotalUsed>2</TotalUsed>
-            <TotalCollectible>0</TotalCollectible>
-            <TotalRefurbished>0</TotalRefurbished>
-          </OfferSummary>
-          <Tracks>
-            <Disc Number="1">
-              <Track Number="1">Totale Finsternis (Tanz der Vampire)</Track>
-              <Track Number="2">Ich mir (Elisabeth)</Track>
-              <Track Number="3">The Winner Takes It All ("Mamma Mia")</Track>
-              <Track Number="4">Cindy (Cindy)</Track>
-              <Track Number="5">Beauty And The Beast (Disney's Beauty &amp; The Best)</Track>
-              <Track Number="6">Somewhere Out There (American Tail)</Track>
-              <Track Number="7">Mamma Mia - Musicalstars singen Abba-Hits</Track>
-              <Track Number="8">Dies ist die Stunde (Jekyll &amp; Hyde)</Track>
-              <Track Number="9">Bring ihn heim (Les )</Track>
-              <Track Number="10">New Hampshire Nights (An Unfinished Song)</Track>
-              <Track Number="11">The Door Is Open</Track>
-              <Track Number="12">Pinball Wizard (Tommy)</Track>
-              <Track Number="13">Ocean Of Love (Poe: Pech und Schwefel)</Track>
-            </Disc>
-            <Disc Number="2">
-              <Track Number="1">Written In The Stars ("Aida"</Track>
-              <Track Number="2">I Am (Hero)</Track>
-              <Track Number="3">Waterloo - Musicalstars singen Abba-Hits</Track>
-              <Track Number="4">Don't Cry For Me Argentina (Evita)</Track>
-              <Track Number="5">Gib mir Kraft (Bonifatius: Das Musical)</Track>
-              <Track Number="6">Break The Silence (Paradise Of Pain)</Track>
-              <Track Number="7">Irgendetwas fehlt (Letterland)</Track>
-              <Track Number="8">A Dangerous Game (Jekyll &amp; Hyde)</Track>
-              <Track Number="9">I Am A Mirror (Freudiana)</Track>
-              <Track Number="10">Easy Terms (Blood Brothers)</Track>
-              <Track Number="11">The Shades Of Night (Elisabeth)</Track>
-              <Track Number="12">Gold von den Sternen (Mozart!)</Track>
-              <Track Number="13">Die Musik der Nacht (Das Phantom der Oper)</Track>
-            </Disc>
-            <Disc Number="3">
-              <Track Number="1">Schlag ein (Poe: Pech und Schwefel) - Edited Version</Track>
-              <Track Number="2">Ein Leben lang (Bonifatius: Das Musical)</Track>
-              <Track Number="3">Memory (Cats)</Track>
-              <Track Number="4">Any Fool Could Se / Oh, Paris (Paris)</Track>
-              <Track Number="5">Does Your Mother Know (Mamma Mia)</Track>
-              <Track Number="6">Out Of My Pain</Track>
-              <Track Number="7">Lullaby From Faraway</Track>
-              <Track Number="8">Die unstillbare Gier (Tanz der Vampire)</Track>
-              <Track Number="9">Make A Wish Come True (Make-A-Wish-Foundation Song)</Track>
-              <Track Number="10">Somewhere In Heaven (Arena)</Track>
-              <Track Number="11">Are We Really Angels</Track>
-              <Track Number="12">Lost My Mind (Peggy: Das Musical)</Track>
-              <Track Number="13">Our Time (Merrily We Roll Along)</Track>
-              <Track Number="14">Follow Your Star</Track>
-            </Disc>
-          </Tracks>
-        </Item>
-      </Items>
-    </ItemSearchResponse>
-  </SOAP-ENV:Body>
-</SOAP-ENV:Envelope>

data/test/soap/literalArrayMapping/test_definedarray.rb

@@ -1,35 +0,0 @@
-# encoding: ASCII-8BIT
-require 'helper'
-require 'testutil'
-require 'soap/mapping'
-require 'soap/processor'
-require 'soap/rpc/element'
-
-
-module SOAP
-module Marshal
-
-
-class TestDefinedArray < Test::Unit::TestCase
-  DIR = File.dirname(File.expand_path(__FILE__))
-
-  def pathname(filename)
-    File.join(DIR, filename)
-  end
-
-  def setup
-    TestUtil.require(DIR, 'amazonEcDriver.rb')
-  end
-
-  def test_amazonresponse
-    drv = AWSECommerceServicePortType.new
-    drv.wiredump_dev = STDOUT if $DEBUG
-    drv.test_loopback_response << File.read(pathname('amazonresponse.xml'))
-    obj = drv.itemSearch(ItemSearch.new)
-    assert_equal(3, obj.items.item.tracks.disc.size)
-  end
-end
-
-
-end
-end

data/test/soap/marshal/marshaltestlib.rb

@@ -1,498 +0,0 @@
-# encoding: ASCII-8BIT
-module MarshalTestLib
-  # include this module to a Test::Unit::TestCase and definde encode(o) and
-  # decode(s) methods.  e.g.
-  #
-  # def encode(o)
-  #   SOAPMarshal.dump(o)
-  # end
-  #
-  # def decode(s)
-  #   SOAPMarshal.load(s)
-  # end
-
-  NegativeZero = (-1.0 / (1.0 / 0.0))
-
-  module Mod1; end
-  module Mod2; end
-
-  def marshaltest(o1)
-    str = encode(o1)
-    print str, "\n" if $DEBUG
-    o2 = decode(str)
-    o2
-  end
-
-  def marshal_equal(o1, msg = nil)
-    msg = msg ? msg + "(#{ caller[0] })" : caller[0]
-    o2 = marshaltest(o1)
-    assert_equal(o1.class, o2.class, msg)
-    
-    iv1 = o1.instance_variables.sort
-    iv2 = o2.instance_variables.sort
-    assert_equal(iv1, iv2)
-    
-    val1 = iv1.map {|var| o1.instance_eval( "#{var}" )}
-    val2 = iv1.map {|var| o2.instance_eval( "#{var}" )}
-    assert_equal(val1, val2, msg)
-    
-    if block_given?
-      assert_equal(yield(o1), yield(o2), msg)
-    else
-      assert_equal(o1, o2, msg)
-    end
-  end
-
-  class MyObject; def initialize(v) @v = v end; attr_reader :v; end
-  def test_object
-    o1 = Object.new
-    o1.instance_eval { @iv = 1 }
-    marshal_equal(o1) {|o| o.instance_eval { @iv }}
-  end
-
-  def test_object_subclass
-    marshal_equal(MyObject.new(2)) {|o| o.v}
-  end
-
-  def test_object_extend
-    o1 = Object.new
-    o1.extend(Mod1)
-    marshal_equal(o1) { |o|
-      (class << self; self; end).ancestors
-    }
-    o1.extend(Mod2)
-    marshal_equal(o1) { |o|
-      (class << self; self; end).ancestors
-    }
-  end
-
-  def test_object_subclass_extend
-    o1 = MyObject.new(2)
-    o1.extend(Mod1)
-    marshal_equal(o1) { |o|
-      (class << self; self; end).ancestors
-    }
-    o1.extend(Mod2)
-    marshal_equal(o1) { |o|
-      (class << self; self; end).ancestors
-    }
-  end
-
-  class MyArray < Array
-    def initialize(v, *args)
-      super(args)
-      @v = v
-    end
-  end
-  def test_array
-    marshal_equal(5)
-    marshal_equal([1,2,3])
-  end
-
-  def test_array_subclass
-    marshal_equal(MyArray.new(0, 1, 2, 3))
-  end
-
-  def test_array_ivar
-    o1 = Array.new
-    o1.instance_eval { @iv = 1 }
-    marshal_equal(o1) {|o| o.instance_eval { @iv }}
-  end
-
-  class MyException < Exception; def initialize(v, *args) super(*args); @v = v; end; attr_reader :v; end
-  def test_exception
-    marshal_equal(Exception.new('foo')) {|o| o.message}
-    marshal_equal(assert_raise(NoMethodError) {no_such_method()}) {|o| o.message}
-  end
-
-  def test_exception_subclass
-    marshal_equal(MyException.new(20, "bar")) {|o| [o.message, o.v]}
-  end
-
-  def test_false
-    marshal_equal(false)
-  end
-
-  class MyHash < Hash; def initialize(v, *args) super(*args); @v = v; end end
-  def test_hash
-    marshal_equal({1=>2, 3=>4})
-  end
-
-  def test_hash_default
-    h = Hash.new(:default)
-    h[5] = 6
-    marshal_equal(h)
-  end
-
-  def test_hash_subclass
-    h = MyHash.new(7, 8)
-    h[4] = 5
-    marshal_equal(h)
-  end
-
-  def test_hash_default_proc
-    h = Hash.new {}
-    assert_raises(TypeError) { marshaltest(h) }
-  end
-
-  def test_hash_ivar
-    o1 = Hash.new
-    o1.instance_eval { @iv = 1 }
-    marshal_equal(o1) {|o| o.instance_eval { @iv }}
-  end
-
-  def test_hash_extend
-    o1 = Hash.new
-    o1.extend(Mod1)
-    marshal_equal(o1) { |o|
-      (class << self; self; end).ancestors
-    }
-    o1.extend(Mod2)
-    marshal_equal(o1) { |o|
-      (class << self; self; end).ancestors
-    }
-  end
-
-  def test_hash_subclass_extend
-    o1 = MyHash.new(2)
-    o1.extend(Mod1)
-    marshal_equal(o1) { |o|
-      (class << self; self; end).ancestors
-    }
-    o1.extend(Mod2)
-    marshal_equal(o1) { |o|
-      (class << self; self; end).ancestors
-    }
-  end
-
-  def test_bignum
-    marshal_equal(-0x4000_0000_0000_0001)
-    marshal_equal(-0x4000_0001)
-    marshal_equal(0x4000_0000)
-    marshal_equal(0x4000_0000_0000_0000)
-  end
-
-  def test_fixnum
-    marshal_equal(-0x4000_0000)
-    marshal_equal(-0x3fff_ffff)
-    marshal_equal(-1)
-    marshal_equal(0)
-    marshal_equal(1)
-    marshal_equal(0x3fff_ffff)
-  end
-
-  def test_fixnum_ivar
-    o1 = 1
-    o1.instance_eval { @iv = 2 }
-    marshal_equal(o1) {|o| o.instance_eval { @iv }}
-  ensure
-    1.instance_eval { remove_instance_variable("@iv") }
-  end
-
-  def test_fixnum_ivar_self
-    o1 = 1
-    o1.instance_eval { @iv = 1 }
-    marshal_equal(o1) {|o| o.instance_eval { @iv }}
-  ensure
-    1.instance_eval { remove_instance_variable("@iv") }
-  end
-
-  def test_float
-    marshal_equal(-1.0)
-    marshal_equal(0.0)
-    marshal_equal(1.0)
-  end
-
-  def test_float_inf_nan
-    marshal_equal(1.0/0.0)
-    marshal_equal(-1.0/0.0)
-    marshal_equal(0.0/0.0) {|o| o.nan?}
-    marshal_equal(NegativeZero) {|o| 1.0/o}
-  end
-
-  def test_float_ivar
-    o1 = 1.23
-    o1.instance_eval { @iv = 1 }
-    marshal_equal(o1) {|o| o.instance_eval { @iv }}
-  end
-
-  def test_float_ivar_self
-    o1 = 5.5
-    o1.instance_eval { @iv = o1 }
-    marshal_equal(o1) {|o| o.instance_eval { @iv }}
-  end
-
-  def test_float_extend
-    o1 = 0.0/0.0
-    o1.extend(Mod1)
-    marshal_equal(o1) { |o|
-      (class << self; self; end).ancestors
-    }
-    o1.extend(Mod2)
-    marshal_equal(o1) { |o|
-      (class << self; self; end).ancestors
-    }
-  end
-
-  class MyRange < Range; def initialize(v, *args) super(*args); @v = v; end end
-  def test_range
-    marshal_equal(1..2)
-    marshal_equal(1...3)
-  end
-
-  def test_range_subclass
-    marshal_equal(MyRange.new(4,5,8, false))
-  end
-
-  class MyRegexp < Regexp; def initialize(v, *args) super(*args); @v = v; end end
-  def test_regexp
-    marshal_equal(/a/)
-    marshal_equal(/A/i)
-    marshal_equal(/A/mx)
-  end
-
-  def test_regexp_subclass
-    marshal_equal(MyRegexp.new(10, "a"))
-  end
-
-  class MyString < String; def initialize(v, *args) super(*args); @v = v; end end
-  def test_string
-    marshal_equal("abc")
-  end
-
-  def test_string_ivar
-    o1 = ""
-    o1.instance_eval { @iv = 1 }
-    marshal_equal(o1) {|o| o.instance_eval { @iv }}
-  end
-
-  def test_string_subclass
-    marshal_equal(MyString.new(10, "a"))
-  end
-
-  def test_string_subclass_cycle
-    str = MyString.new(10, "b")
-    str.instance_eval { @v = str }
-    marshal_equal(str) { |o|
-      assert_equal(o.__id__, o.instance_eval { @v }.__id__)
-      o.instance_eval { @v }
-    }
-  end
-
-  def test_string_subclass_extend
-    o = "abc"
-    o.extend(Mod1)
-    str = MyString.new(o, "c")
-    marshal_equal(str) { |o|
-      assert(o.instance_eval { @v }).kind_of?(Mod1)
-    }
-  end
-
-  MyStruct = Struct.new("MyStruct", :a, :b)
-  if RUBY_VERSION < "1.8.0"
-    # Struct#== is not defined in ruby/1.6
-    class MyStruct
-      def ==(rhs)
-	return true if __id__ == rhs.__id__
-	return false unless rhs.is_a?(::Struct) 
-	return false if self.class != rhs.class
-	members.each do |member|
-	  return false if self.__send__(member) != rhs.__send__(member)
-	end
-	return true
-      end
-    end
-  end
-  class MySubStruct < MyStruct; def initialize(v, *args) super(*args); @v = v; end end
-  def test_struct
-    marshal_equal(MyStruct.new(1,2))
-  end
-
-  def test_struct_subclass
-    if RUBY_VERSION < "1.8.0"
-      # Substruct instance cannot be dumped in ruby/1.6
-      # ::Marshal.dump(MySubStruct.new(10, 1, 2)) #=> uninitialized struct
-      return false
-    end
-    marshal_equal(MySubStruct.new(10,1,2))
-  end
-
-  def test_struct_ivar
-    o1 = MyStruct.new
-    o1.instance_eval { @iv = 1 }
-    marshal_equal(o1) {|o| o.instance_eval { @iv }}
-  end
-
-  def test_struct_subclass_extend
-    o1 = MyStruct.new
-    o1.extend(Mod1)
-    marshal_equal(o1) { |o|
-      (class << self; self; end).ancestors
-    }
-    o1.extend(Mod2)
-    marshal_equal(o1) { |o|
-      (class << self; self; end).ancestors
-    }
-  end
-
-  def test_symbol
-    marshal_equal(:a)
-    marshal_equal(:a?)
-    marshal_equal(:a!)
-    marshal_equal(:a=)
-    marshal_equal(:|)
-    marshal_equal(:^)
-    marshal_equal(:&)
-    marshal_equal(:<=>)
-    marshal_equal(:==)
-    marshal_equal(:===)
-    marshal_equal(:=~)
-    marshal_equal(:>)
-    marshal_equal(:>=)
-    marshal_equal(:<)
-    marshal_equal(:<=)
-    marshal_equal(:<<)
-    marshal_equal(:>>)
-    marshal_equal(:+)
-    marshal_equal(:-)
-    marshal_equal(:*)
-    marshal_equal(:/)
-    marshal_equal(:%)
-    marshal_equal(:**)
-    marshal_equal(:~)
-    marshal_equal(:+@)
-    marshal_equal(:-@)
-    marshal_equal(:[])
-    marshal_equal(:[]=)
-    marshal_equal(:`)   #`
-    marshal_equal("a b".intern)
-  end
-
-  class MyTime < Time; def initialize(v, *args) super(*args); @v = v; end end
-  def test_time
-    # once there was a bug caused by usec overflow.  try a little harder.
-    10.times do
-      t = Time.now
-      marshal_equal(t,t.usec.to_s) {|t| t.tv_usec }
-    end
-  end
-
-  def test_time_subclass
-    marshal_equal(MyTime.new(10)) {|t| t.tv_usec }
-  end
-
-  def test_time_ivar
-    o1 = Time.now
-    o1.instance_eval { @iv = 1 }
-    marshal_equal(o1) {|o| o.instance_eval { @iv }}
-  end
-
-  def test_true
-    marshal_equal(true)
-  end
-
-  def test_nil
-    marshal_equal(nil)
-  end
-
-  def test_share
-    o = [:share]
-    o1 = [o, o]
-    o2 = marshaltest(o1)
-    assert_same(o2.first, o2.last)
-  end
-
-  class CyclicRange < Range
-    def <=>(other); true; end
-  end
-  def test_range_cyclic
-    return unless CyclicRange.respond_to?(:allocate) # test for 1.8
-    o1 = CyclicRange.allocate
-    o1.instance_eval { initialize(o1, o1) }
-    o2 = marshaltest(o1)
-    assert_same(o2, o2.begin)
-    assert_same(o2, o2.end)
-  end
-
-  def test_singleton
-    o = Object.new
-    def o.m() end
-    assert_raises(TypeError) { marshaltest(o) }
-    o = Object.new
-    c = class << o
-      @v = 1
-      class C; self; end
-    end
-    assert_raises(TypeError) { marshaltest(o) }
-    assert_raises(TypeError) { marshaltest(c) }
-    assert_raises(TypeError) { marshaltest(ARGF) } unless (RUBY_VERSION.to_f >= 1.9) # Rubyjedi: ARGF is no longer a singleton in Ruby 1.9 and above
-    assert_raises(TypeError) { marshaltest(ENV) }
-  end
-
-  def test_extend
-    o = Object.new
-    o.extend Mod1
-    marshal_equal(o) { |obj| obj.kind_of? Mod1 }
-    o = Object.new
-    o.extend Mod1
-    o.extend Mod2
-    marshal_equal(o) {|obj| class << obj; ancestors end}
-    o = Object.new
-    o.extend Module.new
-    assert_raises(TypeError) { marshaltest(o) }
-  end
-
-  def test_extend_string
-    o = ""
-    o.extend Mod1
-    marshal_equal(o) { |obj| obj.kind_of? Mod1 }
-    o = ""
-    o.extend Mod1
-    o.extend Mod2
-    marshal_equal(o) {|obj| class << obj; ancestors end}
-    o = ""
-    o.extend Module.new
-    assert_raises(TypeError) { marshaltest(o) }
-  end
-
-  def test_anonymous
-    c = Class.new
-    assert_raises(TypeError) { marshaltest(c) }
-    o = c.new
-    assert_raises(TypeError) { marshaltest(o) }
-    m = Module.new
-    assert_raises(TypeError) { marshaltest(m) }
-  end
-
-  def test_string_empty
-    marshal_equal("")
-  end
-
-  def test_string_crlf
-    marshal_equal("\r\n")
-  end
-
-  def test_string_escape
-    marshal_equal("<;;>&\r'\";;>")
-  end
-
-  MyStruct2 = Struct.new(:a, :b)
-  if RUBY_VERSION < "1.8.0"
-    # Struct#== is not defined in ruby/1.6
-    class MyStruct2
-      def ==(rhs)
-	return true if __id__ == rhs.__id__
-	return false unless rhs.is_a?(::Struct) 
-	return false if self.class != rhs.class
-	members.each do |member|
-	  return false if self.__send__(member) != rhs.__send__(member)
-	end
-	return true
-      end
-    end
-  end
-  def test_struct_toplevel
-    o = MyStruct2.new(1,2)
-    marshal_equal(o)
-  end
-end