scxml 0.1.0

data/test/scxml/Xalan_Conformance_Tests/select/select76.xml

@@ -0,0 +1,6 @@
+<?xml version="1.0"?> 
+<Q level="0">bad0
+  <Q level="1">bad1
+    <Q level="2">bad2</Q>
+  </Q>
+</Q>

data/test/scxml/Xalan_Conformance_Tests/select/select76.xsl

@@ -0,0 +1,17 @@
+<?xml version="1.0"?>
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
+
+  <!-- FileName: select76 -->
+  <!-- Document: http://www.w3.org/TR/xslt -->
+  <!-- DocVersion: 19991116 -->
+  <!-- Section: 5.2 -->
+  <!-- Creator: David Marston -->
+  <!-- Purpose: Try /{name} to match the document element. -->
+
+<xsl:template match="/Q">
+  <out>
+    <xsl:value-of select="@level"/>
+  </out>
+</xsl:template>
+
+</xsl:stylesheet>

data/test/scxml/Xalan_Conformance_Tests/select/select81.txt

@@ -0,0 +1,9 @@
+# FileName: select81 
+# Document: http://www.w3.org/TR/xpath 
+# DocVersion: 19991116 
+# Section: 2.5 
+# Creator: Joe Kesselman 
+# Purpose: Try absolute path when current node is in middle of tree 
+/para/font[@color='green']
+..//text()
+//text()

data/test/scxml/Xalan_Conformance_Tests/select/select81.xml

@@ -0,0 +1,6 @@
+<?xml version="1.0"?>
+<para>
+  <font color='red'>Hello</font>
+  <font color='green'>There</font>
+  <font color='blue'>World</font>
+</para>

data/test/scxml/Xalan_Conformance_Tests/select/select81.xsl

@@ -0,0 +1,24 @@
+<?xml version="1.0"?>
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
+
+  <!-- FileName: select81 -->
+  <!-- Document: http://www.w3.org/TR/xpath -->
+  <!-- DocVersion: 19991116 -->
+  <!-- Section: 2.5 -->
+  <!-- Creator: Joe Kesselman -->
+  <!-- Purpose: Try absolute path when current node is in middle of tree -->
+
+<xsl:output method="xml" indent="no" encoding="UTF-8"/>
+
+<xsl:template match="/">
+  <out>
+    <xsl:apply-templates select="/para/font[@color='green']" />
+  </out>
+</xsl:template>
+
+<xsl:template match="font">
+  <rel><xsl:apply-templates select="..//text()" /></rel>
+  <abs><xsl:apply-templates select="//text()" /></abs>
+</xsl:template>
+
+</xsl:stylesheet>

data/test/scxml/Xalan_Conformance_Tests/select/select82.txt

@@ -0,0 +1,9 @@
+# FileName: select82 
+# Document: http://www.w3.org/TR/xpath 
+# DocVersion: 19991116 
+# Section: 2.5 
+# Creator: David Marston 
+# Purpose: Test //* to get all elements 
+/doc/b/bb/bbb
+//*" mode="list
+name()

data/test/scxml/Xalan_Conformance_Tests/select/select82.xml

@@ -0,0 +1,5 @@
+<?xml version="1.0"?>
+<doc>1<a>in-a</a>2<!-- upper comment -->
+  <b>3<bb>4<bbb>5</bbb>6</bb>7</b>
+  <!-- lower comment -->8<c>in-c</c>9
+</doc>

data/test/scxml/Xalan_Conformance_Tests/select/select82.xsl

@@ -0,0 +1,28 @@
+<?xml version="1.0"?>
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
+
+  <!-- FileName: select82 -->
+  <!-- Document: http://www.w3.org/TR/xpath -->
+  <!-- DocVersion: 19991116 -->
+  <!-- Section: 2.5 -->
+  <!-- Creator: David Marston -->
+  <!-- Purpose: Test //* to get all elements -->
+
+<xsl:output method="xml" indent="no" encoding="UTF-8"/>
+
+<xsl:template match="/">
+  <out>
+    <xsl:apply-templates select="/doc/b/bb/bbb" />
+  </out>
+</xsl:template>
+
+<xsl:template match="bbb">
+  <list><xsl:apply-templates select="//*" mode="list"/></list>
+</xsl:template>
+
+<xsl:template match="*" mode="list">
+  <xsl:value-of select="name()" />
+  <xsl:text>|</xsl:text>
+</xsl:template>
+
+</xsl:stylesheet>

data/test/scxml/Xalan_Conformance_Tests/select/select83.txt

@@ -0,0 +1,10 @@
+# FileName: select83 
+# Document: http://www.w3.org/TR/xpath 
+# DocVersion: 19991116 
+# Section: 2.5 
+# Creator: David Marston 
+# Purpose: Test //@x to get all attributes of a certain name 
+/doc/b/bb/bbb
+//@x
+name(..)
+.

data/test/scxml/Xalan_Conformance_Tests/select/select83.xml

@@ -0,0 +1,10 @@
+<?xml version="1.0"?>
+<doc x="on-doc">
+  <a x="on-a">in-a</a>
+  <b x="on-b">
+    <bb NO="on-bb">
+      <bbb x="on-bbb"/>
+    </bb>
+  </b>
+  <c x="on-c">in-c</c>
+</doc>

data/test/scxml/Xalan_Conformance_Tests/select/select83.xsl

@@ -0,0 +1,32 @@
+<?xml version="1.0"?>
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
+
+  <!-- FileName: select83 -->
+  <!-- Document: http://www.w3.org/TR/xpath -->
+  <!-- DocVersion: 19991116 -->
+  <!-- Section: 2.5 -->
+  <!-- Creator: David Marston -->
+  <!-- Purpose: Test //@x to get all attributes of a certain name -->
+
+<xsl:output method="xml" indent="no" encoding="UTF-8"/>
+
+<xsl:template match="/">
+  <out>
+    <xsl:apply-templates select="/doc/b/bb/bbb" />
+  </out>
+</xsl:template>
+
+<xsl:template match="bbb">
+  <list><xsl:apply-templates select="//@x"/></list>
+</xsl:template>
+
+<xsl:template match="@x">
+  <xsl:text>
+Node </xsl:text>
+  <xsl:value-of select="name(..)" />
+  <xsl:text> has </xsl:text>
+  <xsl:value-of select="." />
+  <xsl:text> in @x</xsl:text>
+</xsl:template>
+
+</xsl:stylesheet>

data/test/scxml/Xalan_Conformance_Tests/select/select84.txt

@@ -0,0 +1,11 @@
+# FileName: select84 
+# Document: http://www.w3.org/TR/xpath 
+# DocVersion: 19991116 
+# Section: 2.5 
+# Creator: David Marston 
+# Purpose: Test //@* to get all attributes in the tree 
+/doc/b/bb/bbb
+//@*
+name(..)
+.
+name(.)

data/test/scxml/Xalan_Conformance_Tests/select/select84.xml

@@ -0,0 +1,10 @@
+<?xml version="1.0"?>
+<doc d="on-doc">
+  <a aa="on-a">in-a</a>
+  <b x="on-b">
+    <bb y="on-bb">
+      <bbb z="on-bbb"/>
+    </bb>
+  </b>
+  <c cc="on-c">in-c</c>
+</doc>

data/test/scxml/Xalan_Conformance_Tests/select/select84.xsl

@@ -0,0 +1,33 @@
+<?xml version="1.0"?>
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
+
+  <!-- FileName: select84 -->
+  <!-- Document: http://www.w3.org/TR/xpath -->
+  <!-- DocVersion: 19991116 -->
+  <!-- Section: 2.5 -->
+  <!-- Creator: David Marston -->
+  <!-- Purpose: Test //@* to get all attributes in the tree -->
+
+<xsl:output method="xml" indent="no" encoding="UTF-8"/>
+
+<xsl:template match="/">
+  <out>
+    <xsl:apply-templates select="/doc/b/bb/bbb" />
+  </out>
+</xsl:template>
+
+<xsl:template match="bbb">
+  <list><xsl:apply-templates select="//@*"/></list>
+</xsl:template>
+
+<xsl:template match="@*">
+  <xsl:text>
+Node </xsl:text>
+  <xsl:value-of select="name(..)" />
+  <xsl:text> has </xsl:text>
+  <xsl:value-of select="." />
+  <xsl:text> in @</xsl:text>
+  <xsl:value-of select="name(.)" />
+</xsl:template>
+
+</xsl:stylesheet>

data/test/scxml/document_test.rb

@@ -0,0 +1,231 @@
+require File.join(File.dirname(__FILE__), '../scxml_test_helper')
+
+class DocumentTest < Test::Unit::TestCase
+	include SCXML
+	include Benchmark
+
+	#
+	# initialization tests
+	#
+	
+	def test_initialize
+		cases = [
+			"<root></root>",
+			"<root><inner></inner></root>",
+			"\n<root>\n  <inner>\n    a\n  </inner>\n</root>\n"]
+		
+		cases.each do |str|
+			doc = Document.new(str)
+			assert_equal str, doc.string
+			assert_equal 'root', doc.root.name, "#{doc.string} => #{doc.content_range}"
+		end
+	end
+
+	def test_initialize_with_blank_string
+		doc = Document.new('')
+		assert_equal '', doc.content
+		assert_equal nil, doc.root.name
+	end
+	
+	def test_initialize_removing_whitespace
+		cases = {
+			"\n<root>\n  <inner>\n    a\n  </inner>\n</root>\n" => "<root><inner>a</inner></root>"}
+		
+		cases.each_pair do |str, expected|
+			doc = Document.new(str, :remove_whitespace => true)
+			assert_equal expected, doc.content
+			assert_equal 'root', doc.root.name
+		end
+	end
+	
+
+	#
+	# content tests
+	#
+	
+	def test_content
+		cases = {
+			%Q{<?xml version="1.0"?>\n<doc>\n</doc>.\n} => "<doc>\n</doc>",
+			%Q{<?xml version="1.0"?>\n<doc/>\n} => "<doc/>",
+			%Q{<doc><a></a></doc>} => "<doc><a></a></doc>",
+			%Q{<doc><a/></doc>} => "<doc><a/></doc>",
+			%Q{} => ""}
+		
+		cases.each_pair do |string, expected|
+			doc = Document.new(string)
+			assert_equal expected, doc.content,"#{doc.string} => #{doc.content_range}"
+		end
+	end
+	
+	#
+	# nodes test
+	#
+
+	def test_node_names
+		cases = {
+			%Q{<?xml version="1.0"?>\n<doc>\n</doc>\n} => ['doc'],
+			%Q{<doc><a></a></doc>} => ['doc', 'a'],
+			# test results unique when in sequence
+			%Q{<doc><a></a><a></a></doc>} => ['doc', 'a'],
+			# test results unique when nested
+			%Q{<doc><a><a></a></a></doc>} => ['doc', 'a']}
+		
+		cases.each_pair do |string, expected|
+			doc = Document.new(string)
+			assert_equal expected, doc.node_names, string
+		end
+	end
+	
+	#
+	# tableize tests
+	#
+	
+	def table_xml
+		input = ""
+		x = Builder::XmlMarkup.new :target => input
+		x.root {
+		  x.headers {
+			0.upto(2) { |j|  x.header("header #{j}") }
+		  }
+		  x.rows {
+		    0.upto(2) { |i|
+		      x.row('i'=>i) {
+		        x.cols {
+		          0.upto(2) { |j|  x.col("#{i}#{j}", 'j'=>j) }
+			}
+		      }
+		    }
+		  }
+		}
+		input
+	end
+	
+	def test_tableize
+		doc = Document.new(table_xml)
+		table = doc.tableize(:row => '//row', :col => 'cols/col')
+		
+		expected = "00\t01\t02\n" + "10\t11\t12\n" + "20\t21\t22\n"
+		assert_equal expected, table
+	end
+	
+	def test_tableize_with_index
+		doc = Document.new(table_xml)
+		table = doc.tableize(:row => '//row', :col => 'cols/col', :index => true)
+		
+		expected = "0\t00\t01\t02\n" + "1\t10\t11\t12\n" + "2\t20\t21\t22\n"
+		assert_equal expected, table
+	end
+	
+	def test_tableize_with_headers
+		doc = Document.new(table_xml)
+		table = doc.tableize(
+			:row => '//row',
+			:col => 'cols/col',
+			:header_row => '/root/headers',
+			:header_col => 'header')
+		
+		expected = "header 0\theader 1\theader 2\n" + "00\t01\t02\n" + "10\t11\t12\n" + "20\t21\t22\n"
+		assert_equal expected, table
+	end
+	
+	def test_tableize_with_block
+		doc = Document.new(table_xml)
+		table = doc.tableize(
+			:row => '//row',
+			:col => 'cols/col',
+			:header_row => '/root/headers',
+			:header_col => 'header') do |row, cols|
+				if row.name == 'headers'
+					cols.collect {|col| col.content}
+				else
+					cols.collect {|col| "col #{col.attributes['j']}"}
+				end
+			end
+			
+		expected = "header 0\theader 1\theader 2\n" + "col 0\tcol 1\tcol 2\n" + "col 0\tcol 1\tcol 2\n" + "col 0\tcol 1\tcol 2\n"
+		assert_equal expected, table	
+	end
+
+	#
+	# Xalan tests
+	#
+	
+	def ds
+		@ds ||= Prosperity::DirectoryStructure.new(
+					File.join( File.dirname(__FILE__), 'Xalan_Conformance_Tests' ), 
+					:predicate => 'predicate',
+					:select => 'select',
+					:result => 'REF_OUT')
+	end
+	
+	def xalan_base(type, n)
+		"#{type}#{n < 10 ? 0 : ''}#{n}"
+	end
+	
+	def xalan_root
+		File.join(File.dirname(__FILE__), 'Xalan_Conformance_Tests')
+	end
+	
+	def test_file(type, base)
+		File.join(xalan_root, type, base +'.txt')
+	end
+	
+	def xml_file(type, base)
+		File.join(xalan_root, type, base +'.xml')
+	end
+	
+	def expected_file(type, base)
+		File.join(xalan_root, 'REF_OUT', type, base +'.out')
+	end
+	
+	def xalan_test(type, n, &block)
+		base = xalan_base(type, n)
+		statements = File.read(test_file(type, base)).split(/\r?\n/).select {|line| line =~ /^[^#]/}
+		xml = File.read(xml_file(type, base))
+		
+		result = yield(xml, *statements)
+		expected = File.read(expected_file(type, base))
+		
+		assert_equal expected.strip, result.strip, "#{base} => [#{statements.join(',')}]"
+		#%Q{<?xml version="1.0" encoding="UTF-8"?>}
+	end
+	
+	def test_xalan_select
+		# THESE TESTS ARE INCOMPLETELY IMPLEMENTED
+		# only the cases named below are actually run. 
+		select_cases = [1]#[1, 2, 3, 4, 12, 13, 41, 42, 45, 51, 52, 56, 57, 58, 60, 62, 63, 76, 81, 83, 82, 84]
+
+		select_cases.each do |n|
+			xalan_test('select', n) do |xml, xpath|
+				doc = Document.new(xml)
+				selected = doc.select(xpath)
+				
+				result = ""
+				xml = Builder::XmlMarkup.new( :target => result, :indent => 2 )
+				xml.instruct! :xml, :version => "1.0", :encoding => "UTF-8"
+				
+				if selected.length > 1
+					xml.out do
+						selected.each do |s|
+							if s.kind_of?(Element) 
+								xml.tag!(s.name, s.content, s.attributes)
+							else
+								xml << s.to_s
+							end
+						end
+					end
+				else
+					s = selected.first
+					if s.kind_of?(Element) 
+						xml.out do
+							xml.tag!(s.name, s.content, s.attributes)
+						end
+					else
+						xml.out( s.to_s )
+					end
+				end
+				result
+			end
+		end
+	end
+end