The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests=> 43;
use lib qw( ./lib ../lib );
use Egg::Helper;

can_ok 'Egg::Helper', 'run';

@ARGV= ( 'EggTest', "-mo ". Egg::Helper->helper_temp_dir );
my $result= Egg::Helper->run( project => {
  test_code=> sub {
	my($e, $param, $files)= @_;
	isa_ok $e, 'Egg::Helper::Build::Project';
	my $root= $e->config->{root};
	ok -e $root, qq{-e $root};
	for my $f (@$files) {
		my $path= "$root/". $e->egg_var($param, $f->{filename});
		ok -e $path, qq{-e $path};
	}
	},
  });
ok $result, q{Egg::Helper->run('project', $attr)};