The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl
use warnings;
use strict;

use Test::More tests => 2;
use File::Temp qw(tempdir);
use File::Path qw(mkpath rmtree);

my $dir = tempdir(  CLEANUP => 1 );
mkpath [ $dir ];
chdir $dir;

open FH, ">" , "Makefile";
print FH "install:\n";
print FH "\t\t\@echo 1\n";

ok( -e 'Makefile' );

use Vimana::Installer::Makefile;
my $installer = Vimana::Installer::Makefile->new();

my $ret = $installer->run( $dir );
ok( $ret );