root/lang/perl/Module-Setup/trunk/t/020_run/simple.t @ 21500

use t::Utils;
use Test::Base;
use YAML ();

plan tests => 6 * blocks;

default_dialog;

run {
    my $block = shift;

    my $argv = [ $block->module ];
    push @{ $argv }, $block->flavor if $block->flavor;
    module_setup { target => 1 }, $argv;

    ok -d target_dir $block->create_dir;
    ok -d target_dir $block->create_dir, 't';
    ok -d target_dir $block->create_dir, 'xt';
    ok -d target_dir $block->create_dir, 'lib';

    my @path = @{ $block->libs };
    my $file = pop @path;
    ok -f target_dir($block->create_dir, 'lib', @path)->file($file);
    ok -f target_dir($block->create_dir)->file('Makefile.PL');

    clear_tempdir;
};

__END__

===
--- module: Foo
--- create_dir: Foo
--- libs yaml
 - Foo.pm

===
--- module: Foo::Bar
--- create_dir: Foo-Bar
--- libs yaml
 - Foo
 - Bar.pm

===
--- module: Foo::Bar::Baz_Bla
--- create_dir: Foo-Bar-Baz_Bla
--- libs yaml
 - Foo
 - Bar
 - Baz_Bla.pm

===
--- module: Foo
--- flavor: flavor
--- create_dir: Foo
--- libs yaml
 - Foo.pm