use strict;
use warnings;

use Test::More tests => 2;                      # last test to print

use XML::XPathScript;

my $xps = XML::XPathScript->new;

# can we set arguments?
$xps->set_xml( '<doc></doc>' );
$xps->set_stylesheet( '<%= $foo . ":" . $bar %>' );
$xps->compile( qw/ $foo $bar / );
is $xps->transform( undef, undef, [ 'un', 'deux' ] ), 'un:deux';

# access them via @_?
$xps->set_stylesheet( '<%= join ":", @_[1,2] %>' );

is $xps->transform( undef, undef, [ 'trois', 'quatre' ] ),
    'trois:quatre';