1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
|
# Features covered: XSLT Transformations
#
# This file contains a collection of tests for the TclXSLT package.
# This file tests the parser's performance on tranformations.
# Sourcing this file into Tcl runs the tests and generates output
# for errors. No output means no errors were found.
#
# Copyright (c) 2008 Explain
# http://www.explain.com.au/
# Copyright (c) 2001-2003 Zveno Pty Ltd.
#
# $Id: transform.test,v 1.4 2003/12/03 20:20:39 balls Exp $
package require tcltest
source [file join [tcltest::workingDirectory] tclxsltutils.tcl]
testPackage xslt
namespace eval ::xslt::transformTest {
namespace import -force ::tcltest::*
variable SETUP {
variable style1 [dom::parse {<xsl:stylesheet version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="text"/>
<xsl:template match="/">
<xsl:value-of select='name(/*)'/>
</xsl:template>
</xsl:stylesheet>
}]
set xml1 [dom::parse <Test/>]
set xml2 [dom::parse <AnotherTest/>]
}
variable SETUP2 {
eval $SETUP
set ssheet [xslt::compile $style1]
}
variable CLEANUP {
dom::destroy $style1
dom::destroy $xml1
dom::destroy $xml2
}
variable CLEANUP2 {
eval $CLEANUP
rename $ssheet {}
}
test transform-1.1 {Compile and destroy stylesheet} -setup $SETUP -body {
set s1 [xslt::compile $style1]
rename $s1 {}
} -cleanup $CLEANUP -result {}
test transform-1.2 {Compile stylesheet} -setup $SETUP -body {
variable s1 [xslt::compile $style1]
string equal [info commands $s1] {}
} -cleanup {
eval $CLEANUP
rename $s1 {}
} -result 0
test transform-1.3 {-method option, default} -setup {
set stydoc [dom::parse {<xsl:stylesheet version='1.0'
xmlns:xsl='http://www.w3.org/1999/XSL/Transform'>
</xsl:stylesheet>
}]
set ssheet [xslt::compile $stydoc]
} -body {
$ssheet cget -method
} -cleanup {
dom::destroy $stydoc
rename $ssheet {}
} -result {}
test transform-1.4 {-method option, text} -setup $SETUP2 -body {
$ssheet cget -method
} -cleanup $CLEANUP2 -result text
test transform-1.5 {-method option, html} -setup {
set stydoc [dom::parse {<xsl:stylesheet version='1.0'
xmlns:xsl='http://www.w3.org/1999/XSL/Transform'>
<xsl:output method='html'/>
</xsl:stylesheet>
}]
set ssheet [xslt::compile $stydoc]
} -body {
$ssheet cget -method
} -cleanup {
dom::destroy $stydoc
rename $ssheet {}
} -result html
test transform-1.5 {-method option, xml} -setup {
set stydoc [dom::parse {<xsl:stylesheet version='1.0'
xmlns:xsl='http://www.w3.org/1999/XSL/Transform'>
<xsl:output method='xml'/>
</xsl:stylesheet>
}]
set ssheet [xslt::compile $stydoc]
} -body {
$ssheet cget -method
} -cleanup {
dom::destroy $stydoc
rename $ssheet {}
} -result xml
test transform-1.6 {configure -method} -match glob -setup {
set stydoc [dom::parse {<xsl:stylesheet version='1.0'
xmlns:xsl='http://www.w3.org/1999/XSL/Transform'>
<xsl:output method='xml'/>
</xsl:stylesheet>
}]
set ssheet [xslt::compile $stydoc]
} -body {
expectError {
$ssheet configure -method html
}
} -cleanup {
dom::destroy $stydoc
rename $ssheet {}
} -result {*read-only*}
test transform-1.7 {error: too many arguments} -setup $SETUP -match glob -body {
expectError {
::xslt::compile $style1 somethingelse
}
} -cleanup $CLEANUP -result {wrong # args*}
# In-memory tests
test transform-2.1 {Single, simple XSLT Transformation} -setup $SETUP2 -body {
set result [$ssheet transform $xml1]
dom::serialize $result -method text
} -cleanup $CLEANUP2 -result {Test}
test transform-2.2 {Multiple simple XSLT Transformations} -setup $SETUP2 -body {
set result1 [$ssheet transform $xml1]
set result2 [$ssheet transform $xml2]
list [::dom::serialize $result1 -method text] \
[::dom::serialize $result2 -method text]
} -cleanup $CLEANUP2 -result [list Test AnotherTest]
test transform-2.3 {Complex XSLT Transformation} -setup {
set ch [open [file join [workingDirectory] transform-1.3.xsl]]
set ssheetdoc [::dom::parse [read $ch]]
close $ch
set ch [open [file join [workingDirectory] transform-1.3.xml]]
set source [::dom::parse [read $ch]]
close $ch
set ch [open [file join [workingDirectory] transform-1.3-result.html]]
set expectedxml [read $ch]
close $ch
} -body {
set ssheet [xslt::compile $ssheetdoc]
set result [$ssheet transform $source]
string equal [dom::serialize $result -method html] $expectedxml
} -cleanup {
dom::destroy $ssheetdoc
dom::destroy $source
dom::destroy $result
rename $ssheet {}
catch {unset expectedxml}
} -result 1
# Parameters
test transform-5.1 {Pass parameters} -setup {
eval $SETUP
set styledoc [::dom::parse {<xsl:stylesheet
version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="text"/>
<xsl:param name="test">wrong value</xsl:param>
<xsl:template match="/">
<xsl:value-of select="$test"/>
</xsl:template>
</xsl:stylesheet>
}]
set style [xslt::compile $styledoc]
} -body {
set result [$style transform $xml1 test {'correct value'}]
::dom::serialize $result -method text
} -cleanup {
eval $CLEANUP
dom::destroy $styledoc
dom::destroy $result
rename $style {}
} -result {correct value}
test transform-5.2 {Pass parameter, calculate result} -setup {
# Create a large source document
set sourcexml {<?xml version="1.0"?>
<Test>
}
for {set i 0} {$i < 1000} {incr i} {
append sourcexml " <value/>\n"
}
append sourcexml {
</Test>
}
set source [::dom::parse $sourcexml]
set styledoc [::dom::parse {<xsl:stylesheet
version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="text"/>
<xsl:strip-space elements='*'/>
<xsl:param name="test" select="'10'"/>
<xsl:template match="value">
<!--
<xsl:message>Processing value <xsl:value-of select="position()"/></xsl:message>
-->
<xsl:call-template name="recurse">
<xsl:with-param name="value" select="$test"/>
</xsl:call-template>
</xsl:template>
<xsl:template name="recurse">
<xsl:param name="value" select="'0'"/>
<xsl:choose>
<xsl:when test="$value = 0">
</xsl:when>
<xsl:otherwise>
<xsl:text>ooooXXXXoooo</xsl:text>
<xsl:call-template name="recurse">
<xsl:with-param name="value" select="$value - 1"/>
</xsl:call-template>
</xsl:otherwise>
</xsl:choose>
</xsl:template>
</xsl:stylesheet>
}]
set style [xslt::compile $styledoc]
} -body {
set result [$style transform $source test '2']
expr {[string length [dom::serialize $result -method text]] == 1000 * 2 * [string length "ooooXXXXoooo"]}
} -cleanup {
unset sourcexml
dom::destroy $source
dom::destroy $styledoc
dom::destroy $result
rename $style {}
} -result 1
test transform-5.3 {get parameters} -setup {
set stydoc [dom::parse {<xsl:stylesheet version='1.0'
xmlns:xsl='http://www.w3.org/1999/XSL/Transform'>
<xsl:param name='firstParameter' select='"firstValue"'/>
<xsl:param name='secondParameter'>
second value
</xsl:param>
<xsl:variable name='thirdVariable' select='"thirdValue"'/>
</xsl:stylesheet>
}]
set style [xslt::compile $stydoc]
} -body {
$style get parameters
} -cleanup {
dom::destroy $stydoc
rename $style {}
} -result {{firstParameter {} {"firstValue"}} {secondParameter {} {}}}
test transform-6.1 {-message} -setup {
variable msg {}
proc message text {
variable msg
append msg $text
}
set src [dom::parse <Test>value</Test>]
set stydoc [dom::parse {<xsl:stylesheet
version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match='/'>
<xsl:message>Testing message command</xsl:message>
</xsl:template>
</xsl:stylesheet>
}]
set ssheet [xslt::compile $stydoc]
} -body {
$ssheet configure -messagecommand [namespace code message]
set result [$ssheet transform $src]
set msg
} -cleanup {
dom::destroy $src
dom::destroy $stydoc
rename $ssheet {}
catch {unset msg}
} -result {Testing message command
}
test transform-7.1 {error while compiling} -match glob -setup {
set srcdoc [dom::parse <Test>whatever</Test>]
set stydoc [dom::parse {
<xsl:stylesheet version='1.0'
xmlns:xsl='http://www.w3.org/not/the/XSLT/namespace/URI'>
</xsl:stylesheet>
}]
} -body {
expectError {
xslt::compile $stydoc
}
} -cleanup {
dom::destroy $srcdoc
dom::destroy $stydoc
} -result {*document is not a stylesheet*}
cleanupTests
}
namespace delete ::xslt::transformTest
return
|
