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

my $pkg= 'Egg::Helper::Model::Session';

require_ok($pkg);

my $name = 'Test';
my $e    = Egg::Helper->run( Vtest => { helper_test=> $pkg });
my $c    = $e->config;
my $p    = $e->project_name;
my $path = "$c->{root}/lib/$p/Model/Session/$name.pm";

@ARGV= ($name);
$c->{helper_option}{project_root}= $c->{root};

ok $e->_start_helper, q{$e->_start_helper};
ok -e $path, qq{-e $path};
ok my $body= $e->helper_fread($path),
      q{my $body= $e->helper_fread( ..... );};
like $body, qr{package\s+Vtest\:+Model\:+Session\:+Test\;\s*\n},
     q{$body,  package Manager.};
like $body, qr{\npackage\s+Vtest\:+Model\:+Session\:+Test\:+TieHash\;\s*\n},
     q{$body,  package TieHash.};