use strict;
use Test;

BEGIN { 
	plan tests => 1, todo => [];
}

use XML::XPathScript;

sub test_xml {
	my( $xml, $style, $result, $comment ) = @_;
    my $xps = new XML::XPathScript( xml => $xml, stylesheet => $style );
	my $buffer;
	$xps->process( \$buffer );

	ok( $buffer, $result, $comment );
}

my $style = <<'EOT';
<%
	$t->{foo}{testcode} = sub{ return 'bar'; }
%><%= apply_templates() %>
EOT

test_xml( '<doc><foo><bar /><blah /></foo></doc>', 
		$style, 
		"<doc><bar></bar></doc>\n", 
		'testcode returning xpath' );