rubyjedi-testunitxml 0.1.5

data/lib/test/unit/xml/xmlequalfilter.rb

@@ -0,0 +1,31 @@
+#! /usr/bin/ruby
+
+module Test
+  module Unit
+    module XML
+      
+      # This filter class accepts any node except text nodes
+      # that contain non-significant whitespace
+      class XmlEqualFilter
+        def accept(node)
+          case
+          when node.kind_of?(REXML::Text)
+            is_significant?(node.value)
+          when node.kind_of?(REXML::Entity)
+            false
+          when node.kind_of?(REXML::NotationDecl)
+            false
+          else
+            true
+          end
+        end
+        
+        private
+        
+        def is_significant?(string)
+          string =~ /^\s*$/ ? false : true
+        end
+      end
+    end
+  end
+end

data/lib/test/unit/xml.rb

@@ -0,0 +1,21 @@
+=begin rdoc
+This file mixes in XML assertions in the Test::Unit::TestCase
+class.
+
+See #xml_assertions.rb for information about the assertions
+that are mixed in.
+=end
+
+require 'test/unit/xml/xml_assertions'
+
+module Test
+  module Unit
+    
+    # The module Test::Unit::XML is mixed in into the class
+    # Test::Unit::TestCase
+    class TestCase
+      include Test::Unit::XML
+    end
+  end
+end
+

data/test/data/test1.xml

@@ -0,0 +1,23 @@
+<?xml version="1.0" standalone="yes" encoding="utf-8"?>
+<book xmlns="http://www.henrikmartensson.org/ns/testunitxml/test1">
+	<chapter id="a" type="">
+		<title>First Chapter</title>
+		<p>This <em type="medium">is</em> the first chapter.</p>
+		<section>
+			<title>First Chapter, First Section</title>
+			<?pi1?>
+			<?pi2 content?>
+			<?pi3 more content?>
+		</section>
+	</chapter>
+	<chapter id="b" type="" xmlns="http://www.henrikmartensson.org/ns/testunitxml/test2">
+		<title>Second Chapter</title>
+		<p>This is the second chapter.</p>
+		<t3:section xmlns:t3="http://www.henrikmartensson.org/ns/testunitxml/test3">
+			<t3:title>Second Chapter, Second Section</t3:title>
+			<p><![CDATA[This is a 
+			
+			CDATA section.]]></p>
+		</t3:section>
+	</chapter>
+</book>

data/test/tc_attributes_mixin.rb

@@ -0,0 +1,37 @@
+#! /usr/local/bin/ruby
+
+
+@@lib_path = File.join(File.dirname(__FILE__), "..", "lib")
+$:.unshift @@lib_path 
+
+require 'test/unit'
+require 'rexml/document'
+require 'test/unit/xml/attributes_mixin.rb'
+
+class TestAttributes < Test::Unit::TestCase
+
+  def setup
+    @ns_a = "urn:x-test:a"
+    @ns_b = "urn:x-test:b"
+    element_string = <<-"XMLEND"
+    <test xmlns:a="#{@ns_a}"
+          xmlns:b="#{@ns_b}"
+          a = "1"
+          b = '2'
+          a:c = "3"
+          a:d = '4'
+          a:e = "5"
+          b:f = "6"/>
+    XMLEND
+    @attributes = REXML::Document.new(element_string).root.attributes
+  end
+  
+  def test_get_attribute_ns
+    assert_equal("1", @attributes.get_attribute_ns("", "a").value)
+    assert_equal("2", @attributes.get_attribute_ns("", "b").value)
+    assert_equal("3", @attributes.get_attribute_ns(@ns_a, "c").value)
+    assert_equal("4", @attributes.get_attribute_ns(@ns_a, "d").value)
+    assert_equal("5", @attributes.get_attribute_ns(@ns_a, "e").value)
+    assert_equal("6", @attributes.get_attribute_ns(@ns_b, "f").value)
+  end
+end

data/test/tc_doctype_mixin.rb

@@ -0,0 +1,71 @@
+#! /usr/local/bin/ruby
+
+
+@@lib_path = File.join(File.dirname(__FILE__), "..", "lib")
+$:.unshift @@lib_path 
+
+require 'test/unit'
+require 'rexml/document'
+require 'test/unit/xml/doctype_mixin.rb'
+
+class TestDoctype < Test::Unit::TestCase
+
+  def setup
+    @sysid = "urn:x-test:sysid1"
+    @notid1 = "urn:x-test:notation1"
+    @notid2 = "urn:x-test:notation2"
+    document_string1 = <<-"XMLEND"
+    <!DOCTYPE r SYSTEM "#{@sysid}" [
+      <!NOTATION n1 SYSTEM "#{@notid1}">
+      <!NOTATION n2 SYSTEM "#{@notid2}">
+    ]>
+    <r/>
+    XMLEND
+    @doctype1 = REXML::Document.new(document_string1).doctype
+    
+    @pubid = "TEST_ID"
+    document_string2 = <<-"XMLEND"
+    <!DOCTYPE r PUBLIC "#{@pubid}">
+    <r/>
+    XMLEND
+    @doctype2 = REXML::Document.new(document_string2).doctype
+
+    document_string3 = <<-"XMLEND"
+    <!DOCTYPE r PUBLIC "#{@pubid}" "#{@sysid}">
+    <r/>
+    XMLEND
+    @doctype3 = REXML::Document.new(document_string3).doctype
+  
+  end
+   
+  def test_public
+    assert_equal(nil, @doctype1.public)
+    assert_equal(@pubid, @doctype2.public)
+    assert_equal(@pubid, @doctype3.public)
+  end
+  
+  def test_system
+    assert_equal(@sysid, @doctype1.system)
+    assert_equal(nil, @doctype2.system)
+    assert_equal(@sysid, @doctype3.system)
+  end
+
+  def test_notation
+    assert_equal(@notid1, @doctype1.notation("n1").system)
+    assert_equal(@notid2, @doctype1.notation("n2").system)
+  end
+  
+  def test_notations
+    notations = @doctype1.notations
+    assert_equal(2, notations.length)
+    assert_equal(@notid1, find_notation(notations, "n1").system)
+    assert_equal(@notid2, find_notation(notations, "n2").system)
+  end
+  
+  def find_notation(notations, name)
+    notations.find { |notation|
+      name == notation.name
+    }
+  end
+  
+end

data/test/tc_notationdecl_mixin.rb

@@ -0,0 +1,68 @@
+#! /usr/local/bin/ruby
+
+
+@@lib_path = File.join(File.dirname(__FILE__), "..", "lib")
+$:.unshift @@lib_path 
+
+require 'test/unit'
+require 'rexml/document'
+require 'test/unit/xml/doctype_mixin'
+require 'test/unit/xml/notationdecl_mixin'
+
+class TestNotationDecl < Test::Unit::TestCase
+
+  def setup
+    @pubid1 = "TEST1"
+    @pubid2 = "TEST2"
+    @sysid2 = "urn:x-henrikmartensson.org:test2"
+    @pubid3 = "TEST3"
+    @pubid4 = "TEST4"
+    @sysid4 = "urn:x-henrikmartensson.org:test4"
+    @pubid5 = "TEST5"
+    @sysid5 = "urn:x-henrikmartensson.org:test5"
+    @pubid6 = "TEST6"
+    @sysid6 = "urn:x-henrikmartensson.org:test6"
+    @sysid7 = "urn:x-henrikmartensson.org:test7"
+    doc_string = <<-"XMLEND"
+    <!DOCTYPE r SYSTEM "urn:x-henrikmartensson:test" [
+      <!NOTATION n1 PUBLIC "#{@pubid1}">
+      <!NOTATION n2 PUBLIC "#{@pubid2}" "#{@sysid2}">
+      <!NOTATION n3 PUBLIC '#{@pubid3}'>
+      <!NOTATION n4 PUBLIC '#{@pubid4}' '#{@sysid4}'>
+      <!NOTATION n5 PUBLIC "#{@pubid5}" '#{@sysid5}'>
+      <!NOTATION n6 PUBLIC '#{@pubid6}' "#{@sysid6}">
+      <!NOTATION n7 SYSTEM "#{@sysid7}">
+    ]>
+    <r/>
+    XMLEND
+    @doctype = REXML::Document.new(doc_string).doctype
+  end
+  
+  def test_name
+    assert_equal('n1', @doctype.notation('n1').name)
+  end
+  
+  def test_public
+    assert_equal(@pubid1, @doctype.notation('n1').public)
+    assert_equal(@pubid2, @doctype.notation('n2').public)
+    assert_equal(@pubid3, @doctype.notation('n3').public)
+    assert_equal(@pubid4, @doctype.notation('n4').public)
+    # The TEST5 and TEST6 assertions have been commented out because
+    # REXML 3.1.2 does not parse the notations correctly.
+    #assert_equal(@pubid5, @doctype.notation('n5').public)
+    #assert_equal(@pubid6, @doctype.notation('n6').public)
+    assert_nil(@doctype.notation('n7').public)
+  end
+  
+  def test_system
+    assert_equal(@sysid2, @doctype.notation('n2').system)
+    assert_nil(@doctype.notation('n3').system)
+    assert_equal(@sysid4, @doctype.notation('n4').system)
+    # The TEST5 and TEST6 assertions have been commented out because
+    # REXML 3.1.2 does not parse the notations correctly.
+    #assert_equal(@sysid5, @doctype.notation('n5').system)
+    #assert_equal(@sysid6, @doctype.notation('n6').system)
+    assert_equal(@sysid7, @doctype.notation('n7').system)
+  end
+
+end

data/test/tc_testunitxml.rb

@@ -0,0 +1,315 @@
+#! /usr/bin/ruby
+
+@@lib_path = File.join(File.dirname(__FILE__), "..", "lib")
+$:.unshift @@lib_path 
+
+require 'test/unit/xml'
+require 'rexml/document'
+require 'stringio'
+
+class TestTestUnitXml < Test::Unit::TestCase
+  TEST_1_PATH = "test/data/test1.xml"
+    
+  def setup
+    @file = File.new(TEST_1_PATH)
+    @doc1 = REXML::Document.new(@file)
+    @io1 = File.new(TEST_1_PATH)
+    @io2 = File.new(TEST_1_PATH)
+    @string1 = %Q{<t:root xmlns:t="urn:x-hm:test" xmlns:x="urn:x-hm:test2" id="a" t:type="test1"/>}
+    @element1 = REXML::Document.new(%Q{<t:root xmlns:t="urn:x-hm:test" xmlns:x="urn:x-hm:test2" id="a" t:type="test1"/>}).root
+    @element2 = REXML::Document.new(%Q{<root xmlns:t="urn:x-hm:test" xmlns:x="urn:x-hm:test2" id="a" t:type="test1"/>}).root
+    @element3 = REXML::Document.new(%Q{<t:root xmlns:t="urn:x-hm:other" xmlns:x="urn:x-hm:test2" id="a" t:type="test1"/>}).root
+    @element4 = REXML::Document.new(%Q{<t:root xmlns:t="urn:x-hm:test" xmlns:x="urn:x-hm:test2" id="a" x:type="test1"/>}).root
+    @element5 = REXML::Document.new(%Q{<t:root xmlns:t="urn:x-hm:test" xmlns:x="urn:x-hm:test2" id="a" t:type="test2"/>}).root
+    @element6 = REXML::Document.new(%Q{<t:root  id="a" xmlns:t="urn:x-hm:test" xmlns:x="urn:x-hm:test2" t:type="test1"/>}).root
+    @element7 = REXML::Document.new(%Q{<s:root xmlns:s="urn:x-hm:test" xmlns:x="urn:x-hm:test" id="a" s:type="test1"/>}).root
+    @element8 = REXML::Document.new(%Q{<t:root xmlns:t="urn:x-hm:test" id="a" t:type="test1"/>}).root
+    @text1 = REXML::Text.new(" Q")
+    @text2 = REXML::Text.new("  &#81;")
+    @text3 = REXML::Text.new("  Q ")
+    @cdata1 = REXML::CData.new("Test text")
+    @cdata2 = REXML::CData.new("Test \ntext")
+    @comment1 = REXML::Comment.new("This is a comment.")
+    @comment2 = REXML::Comment.new("This is another comment.")
+    @pi1 = REXML::Instruction.new('pi1', 'content')
+    @pi2 = REXML::Instruction.new('pi2', 'content')
+    @pi3 = REXML::Instruction.new('pi1', 'other content')
+    @whitespace1 = REXML::Document.new(%Q{<r><a>Some <b>text</b>.</a></r>})
+    @whitespace2 = REXML::Document.new(%Q{<r> <a>Some <b>text</b>.</a>\n  \n  </r>})
+    @whitespace3 = REXML::Document.new(%Q{<r><a>Some <b> text</b>.</a></r>})
+    # REXML:XMLDecl.new(version=DEFAULT_VERSION, encoding=nil, standalone=nil)   
+    @xml_decl1 = REXML::XMLDecl.new(1.0, "utf-8", "yes")
+    @xml_decl2 = REXML::XMLDecl.new(1.1, "utf-8", "yes")
+    @xml_decl3 = REXML::XMLDecl.new(1.0, "utf-16", "yes")
+    @xml_decl4 = REXML::XMLDecl.new(1.0, "utf-8", "no")
+  end
+  
+  def teardown
+  end
+    
+  def test_assert_xml_equal_document
+    assert_xml_equal(@doc1, @doc1, "Comparing two REXML::Document objects")
+  end
+  
+  def test_assert_xml_equal_io
+    assert_xml_equal(@io1, @io2, "Comparing two IO objects")
+  end
+
+  def test_assert_xml_equal_string
+    assert_xml_equal(@string1, @string1, "Comparing two XML strings")
+  end
+  
+  def test_assert_xml_equal_element
+    assert_instance_of(REXML::Element, @element1)
+    assert_xml_equal(@element1, @element1)
+    check_assertion_failure(@element1, @element2)
+    check_assertion_failure(@element1, @element3)
+    check_assertion_failure(@element1, @element4)
+    check_assertion_failure(@element1, @element5)
+    assert_xml_equal(@element1, @element6)
+    assert_xml_equal(@element1, @element7)
+    assert_xml_equal(@element1, @element8)
+  end
+  
+  def check_assertion_failure(expected, actual)
+    assert_raise(Test::Unit::AssertionFailedError) {
+      assert_xml_equal(expected, actual)
+    }
+  end
+  
+  def test_assert_xml_equal_text
+    assert_instance_of(REXML::Text, @text1)
+    assert_instance_of(REXML::Text, @text1)
+    assert_xml_equal(@text1, @text1)
+    assert_xml_equal(@text1, @text2)
+    check_assertion_failure(@text1, @text3)
+  end
+  
+  def test_assert_xml_equal_cdata
+    assert_instance_of(REXML::CData, @cdata1)
+    assert_instance_of(REXML::CData, @cdata2)
+    assert_xml_equal(@cdata1, @cdata1)
+    check_assertion_failure(@cdata1, @cdata2)
+  end
+  
+  def test_assert_xml_equal_comment
+    assert_instance_of(REXML::Comment, @comment1)
+    assert_instance_of(REXML::Comment, @comment2)
+    assert_xml_equal(@comment1, @comment1)
+    check_assertion_failure(@comment1, @comment2)
+  end
+
+  def test_assert_xml_equal_pi
+    assert_instance_of(REXML::Instruction, @pi1)
+    assert_instance_of(REXML::Instruction, @pi2)
+    assert_instance_of(REXML::Instruction, @pi3)
+    assert_xml_equal(@pi1, @pi1)
+    check_assertion_failure(@pi1, @pi2)
+    check_assertion_failure(@pi1, @pi3)
+  end
+  
+  def test_assert_xml_equal_whitespace
+    assert_xml_equal(@whitespace1, @whitespace1)
+    assert_xml_equal(@whitespace1, @whitespace2, "Check if extraneous whitespace is skipped")
+    check_assertion_failure(@whitespace1, @whitespace3)
+  end
+  
+  def test_assert_xml_equal_xmldecl
+    assert_instance_of(REXML::XMLDecl, @xml_decl1)
+    assert_xml_equal(@xml_decl1, @xml_decl1)
+    check_assertion_failure(@xml_decl1, @xml_decl2)
+  end
+  
+  def test_assert_xml_equal_doctype
+    string1 = <<-'XMLEND'
+    <!DOCTYPE r PUBLIC "TEST1" "http://www.henrikmartensson.org/dtd1">
+    <r/>
+    XMLEND
+    string2 = <<-'XMLEND'
+    <!DOCTYPE r PUBLIC "TEST1" "http://www.henrikmartensson.org/dtd2">
+    <r/>
+    XMLEND
+    string3 = <<-'XMLEND'
+    <!DOCTYPE r PUBLIC "TEST2" "http://www.henrikmartensson.org/dtd1">
+    <r/>
+    XMLEND
+    string4 = <<-'XMLEND'
+    <!DOCTYPE r SYSTEM "http://www.henrikmartensson.org/dtd1">
+    <r/>
+    XMLEND
+    string5 = <<-'XMLEND'
+    <!DOCTYPE r SYSTEM "urn:x-henrikmartensson.org:dtd1">
+    <r/>
+    XMLEND
+    string6 = <<-'XMLEND'
+    <!DOCTYPE r SYSTEM "urn:x-henrikmartensson.org:dtd2">
+    <r/>
+    XMLEND
+    assert_xml_equal(string1, string1)
+    assert_xml_equal(string1, string2)
+    check_assertion_failure(string1, string3)
+    check_assertion_failure(string1, string4)
+    check_assertion_failure(string1, string5)
+    assert_xml_equal(string5, string5)
+    check_assertion_failure(string5, string6)
+  end
+  
+  def test_assert_xml_equal_internal_entity_decl
+    string1 = <<-'XMLEND'
+    <!DOCTYPE r SYSTEM "http://www.henrikmartensson.org/dtd1" [
+      <!ENTITY internal1 "This is an internal entity">
+    ]>
+    <r/>
+    XMLEND
+    string2 = <<-'XMLEND'
+    <!DOCTYPE r SYSTEM "http://www.henrikmartensson.org/dtd1" [
+      <!ENTITY internal1 "This is another internal entity">
+    ]>
+    <r>&internal1;</r>
+    XMLEND
+    string3 = <<-'XMLEND'
+    <!DOCTYPE r SYSTEM "http://www.henrikmartensson.org/dtd1" [
+      <!ENTITY internal1 "This is an internal entity">
+      <!ENTITY internal2 "This is another internal entity">
+    ]>
+    <r>&internal1;</r>
+    XMLEND
+    string4 = <<-'XMLEND'
+    <!DOCTYPE r SYSTEM "http://www.henrikmartensson.org/dtd1" [
+      <!ENTITY internal2 "This is another internal entity">
+      <!ENTITY internal1 "This is an internal entity">
+    ]>
+    <r>&internal1;</r>
+    XMLEND
+    string5 = <<-'XMLEND'
+    <!DOCTYPE r SYSTEM "http://www.henrikmartensson.org/dtd1" [
+      <!ENTITY internal1 "This is an internal entity">
+      <!ENTITY internal2 "This is another internal entity">
+      <!ENTITY internal3 "This is a third internal entity">
+    ]>
+    <r>&internal1;</r>
+    XMLEND
+    assert_xml_equal(string1, string1)
+    check_assertion_failure(string1, string2)
+    check_assertion_failure(string1, string3)
+    check_assertion_failure(string3, string1)
+    assert_xml_equal(string3, string4,"Testing that entities may be declared in any order")
+  end
+  
+  def test_assert_xml_equal_external_entity_decl
+    string1 = <<-'XMLEND'
+    <!DOCTYPE r SYSTEM "http://www.henrikmartensson.org/dtd1" [
+      <!NOTATION pdf SYSTEM "pdf">
+      <!NOTATION word SYSTEM "word">
+      <!ENTITY external1 SYSTEM "urn:x-henrikmartensson.org:resource1" NDATA pdf>
+    ]>
+    <r/>
+    XMLEND
+    string2 = <<-'XMLEND'
+    <!DOCTYPE r SYSTEM "http://www.henrikmartensson.org/dtd1" [
+      <!NOTATION pdf SYSTEM "pdf">
+      <!NOTATION word SYSTEM "word">
+      <!ENTITY external1 SYSTEM "urn:x-henrikmartensson.org:resource1" NDATA word>
+   ]>
+    <r/>
+    XMLEND
+    string3 = <<-'XMLEND'
+    <!DOCTYPE r SYSTEM "http://www.henrikmartensson.org/dtd1" [
+      <!NOTATION pdf SYSTEM "pdf">
+      <!ENTITY external1 SYSTEM "urn:x-henrikmartensson.org:resource1" NDATA pdf>
+      <!NOTATION word SYSTEM "word">
+    ]>
+    <r/>
+    XMLEND
+    assert_xml_equal(string1, string1)
+    check_assertion_failure(string1, string2)
+    assert_xml_equal(string1, string3)
+  end
+  
+  def test_assert_xml_equal_notation_decl
+    string1 = <<-'XMLEND'
+    <!DOCTYPE r SYSTEM "http://www.henrikmartensson.org/dtd1" [
+      <!NOTATION pdf SYSTEM "pdf">
+    ]>
+    <r/>
+    XMLEND
+    string2 = <<-'XMLEND'
+    <!DOCTYPE r SYSTEM "http://www.henrikmartensson.org/dtd1" [
+      <!NOTATION pdf PUBLIC "pdf">
+    ]>
+    <r/>
+    XMLEND
+    string3 = <<-'XMLEND'
+    <!DOCTYPE r SYSTEM "http://www.henrikmartensson.org/dtd1" [
+      <!NOTATION pdf SYSTEM "word">
+    ]>
+    <r/>
+    XMLEND
+    assert_xml_equal(string1, string1)
+    check_assertion_failure(string1, string2)
+    check_assertion_failure(string1, string3)
+  end
+  
+  def test_assert_xml_equal_doctype_comment
+    string1 = <<-'XMLEND'
+    <!DOCTYPE r SYSTEM "http://www.henrikmartensson.org/dtd1" [
+      <!NOTATION pdf SYSTEM "pdf">
+      <!-- A comment -->
+    ]>
+    <r/>
+    XMLEND
+    string2 = <<-'XMLEND'
+    <!DOCTYPE r SYSTEM "http://www.henrikmartensson.org/dtd1" [
+      <!-- A comment -->
+      <!NOTATION pdf SYSTEM "pdf">
+    ]>
+    <r/>
+    XMLEND
+    string3 = <<-'XMLEND'
+    <!DOCTYPE r SYSTEM "http://www.henrikmartensson.org/dtd1" [
+      <!NOTATION pdf SYSTEM "pdf">
+      <!-- A different comment -->
+    ]>
+    <r/>
+    XMLEND
+    string4 = <<-'XMLEND'
+    <!DOCTYPE r SYSTEM "http://www.henrikmartensson.org/dtd1" [
+      <!-- A comment -->
+      <!-- Another comment -->
+    ]>
+    <r/>
+    XMLEND
+    string5 = <<-'XMLEND'
+    <!DOCTYPE r SYSTEM "http://www.henrikmartensson.org/dtd1" [
+      <!-- Another comment -->
+      <!-- A comment -->
+    ]>
+    <r/>
+    XMLEND
+    assert_xml_equal(string1, string2)
+    check_assertion_failure(string1, string3)
+    check_assertion_failure(string4, string5)
+  end
+  
+  def test_xml_not_equal
+    assert_xml_not_equal(@element1, @element2)
+    assert_xml_not_equal(@element1, @element3)
+    assert_xml_not_equal(@element1, @element4)
+    assert_xml_not_equal(@element1, @element5)
+  end
+  
+  def test_entity_in_attribute
+    # This test was propmpted by a bug report from
+    # Paul Battley
+    xml_string = '<root text="This &amp; that"/>'
+    doc_original = REXML::Document.new(xml_string)
+    doc_clone = doc_original.dup
+    assert_xml_equal(doc_original, doc_clone)
+    
+    xml_different = '<root text="this &amp; that"/>'
+    doc_different = REXML::Document.new(xml_different)
+    assert_xml_not_equal(doc_original, doc_different)
+  end
+  
+    
+end

data/test/tc_testunitxml2.rb

@@ -0,0 +1,34 @@
+#!/usr/bin/env ruby
+#
+#  Created by Henrik Mårtensson on 2007-02-17.
+#  Copyright (c) 2007. All rights reserved.
+@@lib_path = File.join(File.dirname(__FILE__), "..", "lib")
+$:.unshift @@lib_path 
+
+require "test/unit"
+
+require "test/unit/xml"
+
+class TestTestUnitXml2 < Test::Unit::TestCase
+  
+  # <?xml version="1.0" encoding="utf-8"?>
+  def test_soap_message
+    expected = <<-end_xml
+      <soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+      <soap:Body>
+      <TestThing><SomeStringValue>soaptastic</SomeStringValue></TestThing>
+      </soap:Body>
+      </soap:Envelope>
+    end_xml
+    actual = <<-end_xml
+      <soap:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+      <soap:Body>
+      <TestThing/>
+      </soap:Body>
+      </soap:Envelope>
+    end_xml
+    assert_xml_not_equal expected, actual, "Documents expected not to be equal, but were equal."
+  end
+  
+
+end

data/test/ts_testunitxml.rb

@@ -0,0 +1,12 @@
+#! /usr/bin/ruby
+
+@@lib_path = File.join(File.dirname(__FILE__), "..", "lib")
+$:.unshift @@lib_path 
+$:.unshift File.dirname(__FILE__)
+
+require 'test/unit'
+
+Dir.foreach(File.dirname(__FILE__)) { |file|
+  load file if file =~ /^tc.+\.rb$/
+}
+