The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use Test::More tests=>3;

use File::Path;
use_ok ('XML::Pastor');


rmtree (['./test/out/lib']);

my $pastor = XML::Pastor->new();
$pastor->generate(	mode =>'offline',
					style => 'multiple',
					schema=>['./test/source/country/schema/country_schema1.xsd'], 
					class_prefix=>"XML::Pastor::Test",
					destination=>'./test/out/lib/', 
					verbose => 0
				);
					


eval ("use lib qw (./test/out/lib/);\nuse XML::Pastor::Test;");

if ($@) {
	print STDERR "$@\n";
}

ok(!$@, "Use generated module");

#	print STDERR "\nTest OVER baby!\n";			
ok(1);	# survived everything
  

1;