#!/usr/bin/perl

# Binary application for the PITA::Guest::Driver::Image::Test driver

use strict;
use Probe::Perl  ();
use Getopt::Long ();
use PITA::Image  ();





#####################################################################
# Options

my $INJECTOR = undef;
Getopt::Long::GetOptions(
	"injector=s" => \$INJECTOR,
	"noserver"   => \$PITA::Image::NOSERVER,
) or die "Failed to get options";





#####################################################################
# Main Sequence

my $manager = PITA::Image->new(
	injector => $INJECTOR,
	cleanup  => 1,
) or die "Failed to create PITA::Image";

# For platforms, we support the current Perl only
$manager->add_platform(
	scheme => 'perl5',
	path   => Probe::Perl->find_perl_interpreter,
);

# Run the discover tasks
$manager->run or die "Failed to run tasks";

# Report the results
$manager->report or die "Failed to report tasks";

exit(0);