#!/usr/bin/perl

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

use Test::More;
use File::Spec;
use t::lib::Test;

plan tests => 7;

SCOPE: {
	ok( create_dist('Foo'), 'create_dist' );
	ok( build_dist(), 'built dist' );
	require_ok( file('inc/Module/Install.pm') );

	my $file = file('lib/Foo.pm');
	ok( -f $file, "Found test file '$file'" );
	my $pod = Module::Install::_readpod($file);
	is($pod, <<'END_POD', "_readpod($file)" );
=head1 NAME

Foo - A test module

=head1 AUTHORS

Foo Bar

=head1 COPYRIGHT

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

END_POD

	my $perl = Module::Install::_readperl($file);
	is($perl, <<'END_PERL', "_readperl($file)" );
package Foo;

use 5.005;
use strict;

$VERSION = '3.21';

use File::Spec 0.80;

1;
END_PERL

	ok( kill_dist(), 'kill dist' );
}