use strict;
use warnings;
use Test::More tests => 5; # last test to print
use XML::XPathScript;
my $xps = XML::XPathScript->new;
my $result = $xps->transform( '<doc>hello</doc>', 'fluff' );
is $result => 'fluff', '$xps->transform()';
$result = $xps->transform( '<doc><t>hello</t></doc>', '<%~ /doc/t %>' );
is $result => '<t>hello</t>' ;
# same stylesheet, different xml
$result = $xps->transform( '<doc><t>world!</t></doc>', undef );
is $result => '<t>world!</t>' ;
# same stylesheet, different xml
$result = $xps->transform( '<doc><t>foo</t></doc>' );
is $result => '<t>foo</t>' ;
# same xml document, different stylesheet
$result = $xps->transform( undef, '<%~ / %>' );
is $result => '<doc><t>foo</t></doc>' ;