From 6d7472b0d691862d8fb3547b1fa44775bf3923f4 Mon Sep 17 00:00:00 2001
From: James Shaw <jshaw@netsurf-browser.org>
Date: Sat, 11 Aug 2007 23:13:31 +0000
Subject: Implement assertSize

svn path=/trunk/dom/; revision=3505
---
 test/transform/test-to-c.xsl | 68 ++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 66 insertions(+), 2 deletions(-)

(limited to 'test')

diff --git a/test/transform/test-to-c.xsl b/test/transform/test-to-c.xsl
index f530264..5f23deb 100644
--- a/test/transform/test-to-c.xsl
+++ b/test/transform/test-to-c.xsl
@@ -1,4 +1,10 @@
 <?xml version="1.0" encoding="ISO-8859-1"?>
+<!-- 
+This file is part of libdom.
+Licensed under the MIT License,
+               http://www.opensource.org/licenses/mit-license.php
+Copyright 2007 James Shaw <jshaw@netsurf-browser.org>
+-->
 <!--   
 This transform generates C source code from a language independent
 test representation.
@@ -155,6 +161,7 @@ Language construct templates
 ================================
 -->
 
+<!-- a variable declaration -->
 <xsl:template match="*[local-name() = 'var']" mode="body">
 	<xsl:text>	</xsl:text>
 	<xsl:call-template name="produce-var-type-declaration">
@@ -164,6 +171,11 @@ Language construct templates
 </xsl:template>
 
 <xsl:template match="*[local-name() = 'if']" mode="body">
+	<!--
+	Apply condition template in before-invocation mode
+	to give it a chance to set up temporary variables (such as DOMStrings)
+	-->
+	<xsl:apply-templates select="*[1]" mode="before-invocation"/>
 	<xsl:text>
 	if (</xsl:text><xsl:apply-templates select="*[1]" mode="body"/><xsl:text>) {
 	</xsl:text>
@@ -179,6 +191,14 @@ Language construct templates
 </xsl:text>
 </xsl:template>
 
+<xsl:template match="*[local-name() = 'equals']" mode="before-invocation">
+	<!-- FIXME: implement -->
+</xsl:template>
+
+<xsl:template match="*[local-name() = 'notEquals']" mode="before-invocation">
+	<!-- FIXME: implement -->
+</xsl:template>
+
 <xsl:template match="*[local-name() = 'equals']" mode="body">
 	<xsl:message terminate="yes"><!-- FIXME: implement -->equals not implemented</xsl:message>
 </xsl:template>
@@ -561,6 +581,7 @@ Assert templates
 </xsl:text>
 </xsl:template>
 
+<!-- TODO: implement nested elements, such as <or> -->
 <xsl:template match="*[local-name() = 'assertTrue']" mode="body">
 	<!-- TODO: what does the @id string do, and do we need it here? -->
 	<xsl:text>
@@ -589,7 +610,12 @@ test itself.
 
 	<xsl:variable name="actual" select="@actual"/>
 	
-	<xsl:variable name="var-type" select="$vardefs[@name = $actual]/@type"/>
+	<xsl:variable name="var-type">
+		<xsl:call-template name="get-idltype">
+			<xsl:with-param name="vardefs" select="$vardefs"/>
+			<xsl:with-param name="var-name" select="$actual"/>
+		</xsl:call-template>
+	</xsl:variable>
 	
 	<xsl:choose>
 		<xsl:when test="$var-type = 'DOMString'">
@@ -638,10 +664,39 @@ test itself.
 </xsl:template>
 
 <xsl:template match="*[local-name() = 'assertSize']" mode="body">
-	<xsl:message terminate="yes"><!-- FIXME: implement -->assertSize not implemented</xsl:message>
+	<xsl:variable name="vardefs" select="//*[local-name() = 'var']"/>
+	
+	<xsl:variable name="collection" select="@collection"/>
+	
+	<xsl:variable name="current-position"><xsl:number level="any" count="*"/></xsl:variable>
+	
+	<xsl:text>
+	unsigned long len_</xsl:text>
+	<xsl:value-of select="$current-position"/>
+	<xsl:text>;</xsl:text>
+	<xsl:text>
+	err = </xsl:text>
+	<xsl:call-template name="get-ctype">
+		<xsl:with-param name="type" select="$vardefs[@name = $collection]/@type"/>
+	</xsl:call-template>
+	<xsl:text>_get_length(</xsl:text>
+	<xsl:value-of select="$collection"/>
+	<xsl:text>, &amp;len_</xsl:text>
+	<xsl:value-of select="$current-position"/>
+	<xsl:text>);</xsl:text>
+	
+	<xsl:text>
+	assert(err == DOM_NO_ERR);
+	assert(len_</xsl:text>
+	<xsl:value-of select="$current-position"/>
+	<xsl:text> == </xsl:text>
+	<xsl:value-of select="@size"/>
+	<xsl:text>);</xsl:text>
 </xsl:template>
 
+<!-- TODO: difficult, because it contains nested elements -->
 <xsl:template match="*[local-name() = 'assertDOMException']" mode="body">
+
 	<xsl:message terminate="yes"><!-- FIXME: implement -->assertDOMException not implemented</xsl:message>
 </xsl:template>
 
@@ -721,6 +776,15 @@ Helper templates
 </xsl:text>
 </xsl:template>
 
+<xsl:template name="get-idltype">
+	<xsl:param name="vardefs"/>
+	
+	<!-- variable name -->
+	<xsl:param name="var-name"/>
+	
+	<xsl:value-of select="$vardefs[@name = $var-name]/@type"/>
+</xsl:template>
+
 <xsl:template name="get-ctype">
 	<!--
 	a type (e.g. Document, dom_node_type or int)
-- 
cgit v1.2.3