#!/usr/bin/perl

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

use Test::More;
use LWP::Online ':skip_all';
BEGIN {
	unless ( $^O eq 'MSWin32' ) {
		plan( skip_all => 'Not on Win32' );
		exit(0);
	}
	unless ( $ENV{RELEASE_TESTING} ) {
		plan( skip_all => 'No RELEASE_TESTING: Skipping very long test' );
		exit(0);
	}
	plan( tests => 6 );
}

use Perl::Dist::Strawberry ();





#####################################################################
# Generation Test

my $dist = t::lib::Test->new2(2);
isa_ok( $dist, 'Perl::Dist::Padre' );
ok( $dist->run, '->run ok' );