use strict;
use warnings;

use Test::More tests => 2;
use blib;

my $perl = $^X;
my $example = 't/edge1.xml';
my $result;
my $expected;

$result= `$perl $example`;
$expected = '1, 2, 3, 4, 5, 6, 7, 8, 9, 10';
like($result, qr($expected), "all perl document: [$expected]");
#print $result;

$example = 't/edge2.xml';

$result= `$perl $example`;
$expected = 'Just text.';
like($result, qr($expected), "all text document: [$expected]");
print $result;