#!/usr/bin/perl
use warnings;
use strict;

use Test::More tests => 1;
use XML::LibXML;
use XML::LibXSLT;

my $source = XML::LibXML->load_xml(string => <<'__END_XML__');
<?xml version="1.0" encoding="UTF-8"?>
<r xmlns="http://1.net/ns0"/>
__END_XML__

my $style_doc = XML::LibXML->load_xml(string => <<'__END_XML__');
<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet version="1.0"
                xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
                xmlns="http://1.net/ns1"
>
<xsl:template match="*">
<xsl:element name="{name()}">
</xsl:element>
</xsl:template>
</xsl:stylesheet>
__END_XML__

my $style = XML::LibXSLT->new->parse_stylesheet($style_doc);
is($style->transform($source)->toString, <<'__END_XML__', 'Namespace changed');
<?xml version="1.0"?>
<r xmlns="http://1.net/ns1"/>
__END_XML__