use strict;
use warnings;
use Test::More tests => 9;

BEGIN {
    use_ok( 'XML::XPathScript' );
}

sub test_file {
    my $filename = shift;

    print "testing $filename\n";

    local $/ = undef;

    open my $xml, "$filename.xml" or die;

    my $xps = XML::XPathScript->new(xml => join( '', <$xml> ), 
                                    stylesheetfile => "$filename.xps" );

    my $doc;
    $xps->process( \$doc );

    open my $expected, "$filename.expected" 
        or die "can't open file $filename.expected: $!";

    is( $doc, <$expected>, "t/testdocs/$filename.xml" );
}

chdir "t/testdocs" or die "can't change dir to t/testdocs\n";
opendir my $dir, "." or die;
my @files = readdir $dir;
test_file( $_ ) for grep { s/\.xml$// } @files;