X-Git-Url: http://erislabs.net/gitweb/?p=liburi-template-perl.git;a=blobdiff_plain;f=t%2Fcases%2Ftransform-json-tests.xslt;fp=t%2Fcases%2Ftransform-json-tests.xslt;h=d956b6bdb656757766c50ccfbcc35f8b72372d08;hp=0000000000000000000000000000000000000000;hb=39817159a196a6acb7ce58266633ad6ea8490864;hpb=81c7f1b85cb98976fe96ad4f8a11037b2cb3de35

diff --git a/t/cases/transform-json-tests.xslt b/t/cases/transform-json-tests.xslt
new file mode 100644
index 0000000..d956b6b
--- /dev/null
+++ b/t/cases/transform-json-tests.xslt
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="utf-8"?>
+
+<xsl:stylesheet version="2.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
+
+	<xsl:include href="json2xml.xslt"/>
+
+	<!-- the input test files need to be supplied as a sequence of file names only (no extension) -->
+	<xsl:param name="tests" select="('extended-tests', 'negative-tests', 'spec-examples-by-section', 'spec-examples')"/>
+	<xsl:param name="json-ext" select="'json'"/>
+	<xsl:param name="xml-ext" select="'xml'"/>
+	
+	<!-- run this stylesheet with any input to generate the XML test files at output. -->
+	<!-- (a popular way of doing this is to supply the XSLT to itself as the input file.) -->
+	
+	<xsl:template match="/">
+		<xsl:for-each select="$tests">
+			<xsl:variable name="file" select="current()"/>
+			<xsl:variable name="json">
+				<json>
+					<xsl:value-of select="unparsed-text(concat($file, '.', $json-ext))"/>
+				</json>
+			</xsl:variable>
+			<xsl:variable name="xml">
+				<xsl:apply-templates select="$json/json"/>
+			</xsl:variable>
+			<xsl:result-document href="{$file}.{$xml-ext}" method="xml" indent="yes">
+				<tests>
+					<xsl:for-each select="$xml/json/object/field">
+						<test name="{@name}">
+							<xsl:if test="exists(object/field[1][@name eq 'level'])">
+								<xsl:attribute name="level" select="object/field[1][@name eq 'level']/integer/text()"/>
+							</xsl:if>
+							<variables>
+								<xsl:for-each select="object/field[@name eq 'variables']/object/field">
+									<variable name="{@name}">
+										<xsl:copy-of select="*"/>
+									</variable>
+								</xsl:for-each>
+							</variables>
+							<testcases>
+								<xsl:for-each select="object/field[@name eq 'testcases']/array/array">
+									<testcase template="{*[1]}" result="{*[2]}"/>
+								</xsl:for-each>									</testcases>
+						</test>
+					</xsl:for-each>
+				</tests>
+			</xsl:result-document>
+		</xsl:for-each>
+	</xsl:template>
+
+</xsl:stylesheet>
\ No newline at end of file