#!/usr/bin/perl

# Compile-testing for PITA

use strict;
BEGIN {
	$|  = 1;
	$^W = 1;
}

use Test::More tests => 26;
use Test::Script;

BEGIN {
	ok( $] > 5.006, 'Perl version is 5.006 or newer' );

	# Only three use statements should be enough
	# to load all of the classes (for now).
	use_ok( 'PITA'                             );
	use_ok( 'PITA::Guest'                      );
	use_ok( 'PITA::Guest::Driver'              );
	use_ok( 'PITA::Guest::Driver::Local'       );
	use_ok( 'PITA::Guest::Driver::Image'       );
	use_ok( 'PITA::Guest::Driver::Image::Test' );
	use_ok( 'PITA::Guest::Server'              );
	use_ok( 'PITA::Guest::Server::HTTP'        );
	use_ok( 'PITA::Guest::Storage'             );
	use_ok( 'PITA::Guest::Storage::Simple'     );
}

script_compiles_ok( 't/bin/pita-imagetest' );

ok( $PITA::VERSION,      'PITA was loaded'      );
ok( $PITA::XML::VERSION, 'PITA::XML was loaded' );

foreach my $c ( qw{
	PITA::Guest
	PITA::Guest::Driver
	PITA::Guest::Driver::Local
	PITA::Guest::Driver::Image
	PITA::Guest::Driver::Image::Test
	PITA::Guest::Server
	PITA::Guest::Server::HTTP
	PITA::Guest::Storage
	PITA::Guest::Storage::Simple
} ) {
	eval "is( \$PITA::VERSION, \$${c}::VERSION, '$c was loaded and versions match' );";
}

# Double check the method we use to find a workarea directory
my $workarea = File::Spec->tmpdir;
ok( -d $workarea, 'Workarea directory exists'       );
ok( -r $workarea, 'Workarea directory is readable'  );
ok( -w $workarea, 'Workarea directory is writeable' );