File: gtester-to-junit-4.xsl

package info (click to toggle)
feedreader 2.10.0-1.1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, sid
  • size: 11,580 kB
  • sloc: ansic: 11,948; xml: 879; php: 177; python: 35; sh: 32; makefile: 28
file content (120 lines) | stat: -rw-r--r-- 4,646 bytes parent folder | download | duplicates (2)
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
<?xml version="1.0"?>
<!-- created by R. Tyler Croy and improved by André Klitzing -->
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
  <xsl:output indent="yes" method="xml" omit-xml-declaration="no" cdata-section-elements="system-out" />

  <xsl:template name="strreplace">
    <!-- Based on this code: http://geekswithblogs.net/Erik/archive/2008/04/01/120915.aspx -->
    <xsl:param name="string" />
    <xsl:param name="token" />
    <xsl:param name="newtoken" />
    <xsl:choose>
      <xsl:when test="contains($string, $token)">
        <xsl:value-of select="substring-before($string, $token)" />
        <xsl:value-of select="$newtoken" />
        <xsl:call-template name="strreplace">
          <xsl:with-param name="string" select="substring-after($string, $token)" />
          <xsl:with-param name="token" select="$token" />
          <xsl:with-param name="newtoken" select="$newtoken" />
        </xsl:call-template>
      </xsl:when>
      <xsl:otherwise>
        <xsl:value-of select="$string" />
      </xsl:otherwise>
    </xsl:choose>
  </xsl:template>

  <xsl:template name="remove-lf-left">
    <!-- Based on this code: http://dpawson.co.uk/xsl/sect2/N8321.html#d11325e833 -->
    <xsl:param name="astr" />
    <xsl:choose>
      <xsl:when test="starts-with($astr,'&#xA;') or starts-with($astr,'&#xD;')">
        <xsl:call-template name="remove-lf-left">
          <xsl:with-param name="astr" select="substring($astr, 2)" />
        </xsl:call-template>
      </xsl:when>
      <xsl:otherwise>
        <xsl:value-of select="$astr" />
      </xsl:otherwise>
    </xsl:choose>
  </xsl:template>

  <xsl:template name="sysout">
    random-seed: <xsl:value-of select="random-seed" />
    <xsl:for-each select="testcase">
      <xsl:variable name="classname">
        <xsl:call-template name="strreplace">
          <xsl:with-param name="string" select="substring-after(@path, '/')" />
          <xsl:with-param name="token" select="'/'" />
          <xsl:with-param name="newtoken" select="'.'" />
        </xsl:call-template>
      </xsl:variable>
      Start test '<xsl:value-of select="$classname" />':
      ---------------------------------------------------------------------
      <xsl:for-each select="message">
        <xsl:call-template name="remove-lf-left">
          <xsl:with-param name="astr" select="." />
        </xsl:call-template>
      </xsl:for-each>
      ---------------------------------------------------------------------
      End test '<xsl:value-of select="$classname" />'
    </xsl:for-each>
  </xsl:template>

  <xsl:template match="/">
    <testsuites>
      <xsl:for-each select="gtester">

        <xsl:for-each select="testbinary">
          <testsuite>
            <xsl:attribute name="name">
              <xsl:value-of select="@path" />
            </xsl:attribute>
            <xsl:attribute name="tests">
              <xsl:value-of select="count(testcase)" />
            </xsl:attribute>
            <xsl:attribute name="time">
              <xsl:value-of select="sum(testcase/duration)" />
            </xsl:attribute>
            <xsl:attribute name="failures">
              <xsl:value-of select="count(testcase/status[@result='failed'])" />
            </xsl:attribute>

            <xsl:for-each select="testcase">
              <testcase>
                <xsl:variable name="classname">
                  <xsl:call-template name="strreplace">
                    <xsl:with-param name="string" select="substring-after(@path, '/')" />
                    <xsl:with-param name="token" select="'/'" />
                    <xsl:with-param name="newtoken" select="'.'" />
                  </xsl:call-template>
                </xsl:variable>
                <xsl:attribute name="classname">
                  <xsl:value-of select="$classname" />
                </xsl:attribute>
                <xsl:attribute name="name">
                  <xsl:value-of select="$classname" />
                </xsl:attribute>
                <xsl:attribute name="time">
                  <xsl:value-of select="duration" />
                </xsl:attribute>
                <xsl:if test="status[@result = 'failed']">
                  <failure>
                    <xsl:value-of select="error" />
                  </failure>
                </xsl:if>
              </testcase>
            </xsl:for-each>

            <system-out>
              <xsl:call-template name="sysout" />
            </system-out>
            <system-err></system-err>
          </testsuite>
        </xsl:for-each>

      </xsl:for-each>
    </testsuites>
  </xsl:template>

</xsl:stylesheet>