#!/usr/bin/perl

# Tests for Module::Install::DSL

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

use Test::More tests => 7;
use t::lib::Test;

# Load the DSL module
require_ok( 'inc::Module::Install::DSL' );

# Generate code from a simple dsl block
my $code = Module::Install::DSL::dsl2code(<<'END_DSL');
all_from lib/My/Module.pm
requires perl 5.008
requires Carp 0
requires Win32 if win32
test_requires Test::More
install_share
END_DSL

is( $code, <<'END_PERL', 'dsl2code generates the expected code' );
all_from 'lib/My/Module.pm';
requires 'perl', '5.008';
requires 'Carp', '0';
requires 'Win32' if win32;
test_requires 'Test::More';
install_share;
END_PERL





#####################################################################
# Full scan dist run

ok( create_dist( 'Foo', { 'Makefile.PL' => <<"END_DSL" }), 'create_dist' );
use inc::Module::Install::DSL 0.81;
name          Foo
license       perl
requires_from lib/Foo.pm
requires      File::Spec   0.79
END_DSL
ok( build_dist('Foo'),  'build_dist'  );
ok( -f File::Spec->catfile(qw(t Foo Makefile)) );
ok( -f File::Spec->catfile(qw(t Foo META.yml)) );
ok( kill_dist('Foo'),   'kill_dist'   );