t/xsl_cond.t - metacpan.org

# $Id: xsl_cond.t,v 1.3 2001/12/17 11:32:09 gellyfish Exp $
# check test attributes && the interface

use Test::More tests => 25;
use strict;
use vars qw($DEBUGGING);

$DEBUGGING = 0;

use_ok('XML::XSLT');

# element tests
eval 
{
   my $parser =  XML::XSLT->new (<<EOS, debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="title='foo'">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="title='foo'">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p><title>foo</title>some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

warn $@ if $DEBUGGING;
ok(!$@,"text node string eq");

eval 
{
   my $parser =  XML::XSLT->new (<<EOS, debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="title != 'foo'">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="title != 'foo'">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p><title>bar</title>some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

ok(!$@,"text node string ne");

eval 
{
   my $parser =  XML::XSLT->new (<<EOS, debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="title &lt; 'b'">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="title &lt; 'b'">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p><title>a</title>some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

warn $@ if $DEBUGGING;
ok(!$@,"text node string lt");

eval 
{
   my $parser =  XML::XSLT->new (<<EOS, debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="title > 'b'">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="title > 'b'">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p><title>c</title>some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

warn $@ if $DEBUGGING;
ok(!$@,"text node string gt");

eval 
{
   my $parser =  XML::XSLT->new (<<EOS, debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="title >= 'b'">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="title >= 'b'">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p><title>c</title>some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

warn $@ if $DEBUGGING;
ok(!$@,"text node string ge");

eval 
{
   my $parser =  XML::XSLT->new (<<EOS, debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="title &lt;= 'b'">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="title &lt;= 'b'">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p><title>b</title>some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

warn $@ if $DEBUGGING;
ok(!$@,"text node string le");

eval 
{
   my $parser =  XML::XSLT->new (<<EOS, debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="title = 42">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="title = 42">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p><title>42</title>some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

ok(!$@,"text node numeric eq");


eval 
{
   my $parser =  XML::XSLT->new (<<EOS, debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="title != 42">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="title != 42">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p><title>43</title>some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

warn $@ if $DEBUGGING;
ok(!$@,"text node numeric ne");

eval 
{
   my $parser =  XML::XSLT->new (<<EOS, debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="title &lt; 42">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="title &lt; 42">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p><title>41</title>some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

warn $@ if $DEBUGGING;
ok(!$@,"text node numeric lt");

eval 
{
   my $parser =  XML::XSLT->new (<<EOS, debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="title > 42">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="title > 42">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p><title>43</title>some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

warn $@ if $DEBUGGING;
ok(!$@,"text node numeric gt");


eval 
{
   my $parser =  XML::XSLT->new (<<EOS, debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="title >= 42">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="title >= 42">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p><title>43</title>some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

warn $@ if $DEBUGGING;
ok(!$@,"text node numeric ge");

eval 
{
   my $parser =  XML::XSLT->new (<<EOS, debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="title &lt;= 42">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="title &lt;= 42">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p><title>41</title>some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

warn $@ if $DEBUGGING;
ok(!$@,"text node numeric le");

# attribute tests

eval 
{
   my $parser =  XML::XSLT->new (<<'EOS', debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="@title='foo'">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="@title='foo'">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p title="foo">some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

warn $@ if $DEBUGGING;
ok(!$@,"attribute string eq");

eval 
{
   my $parser =  XML::XSLT->new (<<'EOS', debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="@title != 'foo'">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="@title != 'foo'">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p title="bar">some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

ok(!$@,"attribute string ne");

eval 
{
   my $parser =  XML::XSLT->new (<<'EOS', debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="@title &lt; 'b'">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="@title &lt; 'b'">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p title="a">some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

warn $@ if $DEBUGGING;
ok(!$@,"attribute string lt");

eval 
{
   my $parser =  XML::XSLT->new (<<'EOS', debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="@title > 'b'">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="@title > 'b'">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p title="c">some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

warn $@ if $DEBUGGING;
ok(!$@,"attribute string gt");

eval 
{
   my $parser =  XML::XSLT->new (<<'EOS', debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="@title >= 'b'">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="@title >= 'b'">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p title="c">some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

warn $@ if $DEBUGGING;
ok(!$@,"attribute string ge");

eval 
{
   my $parser =  XML::XSLT->new (<<'EOS', debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="@title &lt;= 'b'">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="@title &lt;= 'b'">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p title="b">some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

warn $@ if $DEBUGGING;
ok(!$@,"attribute string le");

eval 
{
   my $parser =  XML::XSLT->new (<<'EOS', debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="@title = 42">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="@title = 42">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p title="42">some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

ok(!$@,"attribute numeric eq");


eval 
{
   my $parser =  XML::XSLT->new (<<'EOS', debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="@title != 42">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="@title != 42">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p title="43">some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

warn $@ if $DEBUGGING;
ok(!$@,"attribute numeric ne");

eval 
{
   my $parser =  XML::XSLT->new (<<'EOS', debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="@title &lt; 42">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="@title &lt; 42">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p title="41">some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

warn $@ if $DEBUGGING;
ok(!$@,"attribute numeric lt");

eval 
{
   my $parser =  XML::XSLT->new (<<'EOS', debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="@title > 42">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="@title > 42">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p title="43">some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

warn $@ if $DEBUGGING;
ok(!$@,"attribute numeric gt");


eval 
{
   my $parser =  XML::XSLT->new (<<'EOS', debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="@title >= 42">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="@title >= 42">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p title="42">some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

warn $@ if $DEBUGGING;
ok(!$@,"attribute numeric ge");

eval 
{
   my $parser =  XML::XSLT->new (<<'EOS', debug => $DEBUGGING);
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="doc"><doc><xsl:apply-templates/></doc></xsl:template>
<xsl:template match="p"><xsl:choose>
 <xsl:when test="@title &lt;= 42">o</xsl:when>
 <xsl:otherwise>not ok</xsl:otherwise>
</xsl:choose><xsl:if test="@title &lt;= 42">k</xsl:if></xsl:template>
</xsl:stylesheet>
EOS

   $parser->transform(\<<EOX);
<?xml version="1.0"?><doc><p title="41">some random text</p></doc>
EOX

   my $outstr =  $parser->toString();

   warn $outstr if $DEBUGGING;


   my $correct = '<doc>ok</doc>';

   $parser->dispose();

   die "$outstr ne $correct\n" unless $outstr eq $correct;
};

warn $@ if $DEBUGGING;
ok(!$@,"attribute numeric le");
	Global
`s`	Focus search bar
`?`	Bring up this help dialog
	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)
	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse
	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)