#!/usr/bin/perl

# Test launcher for the HTTP server component of the support server

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

use File::Spec::Functions ':ALL';
use PITA::Guest::Server::HTTP ();

my $minicpan = rel2abs( catdir( 't', 'minicpan' ), );
unless ( -d $minicpan ) {
	die "Failed to find t/minicpan directory";
}

# Create the web server
my $server = PITA::Guest::Server::HTTP->new(
	Hostname => '127.0.0.1',
	Port     => 12345,
	Mirrors  => {
		'/cpan/' => $minicpan,
	},
) or die "Failed to create HTTP support server";

# Run the web server
$server->run;