The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Cwd qw(abs_path);
use lib abs_path('t'), abs_path('lib');
use strict;
use warnings;
use diagnostics;
use Test::More tests => 3;
use Spork;
use File::Path;

my $spork_dir = 't/spork';
File::Path::rmtree($spork_dir);

$SIG{__WARN__} = sub { };

ok(mkdir($spork_dir));
chdir($spork_dir) or die;
Spork->new->load_hub->command->process('-new');

ok(-f 'Spork.slides');

$ENV{HOME} = undef;
Spork->new->load_hub->command->process('-make');

ok(-f 'slides/index.html');