#!/usr/bin/env perl
# vim: ts=8 sts=4 et sw=4 sr sta
use strict;
use warnings;
use Test::More tests => 3;
BEGIN {
use_ok 'Zucchini::Config::Create';
}
BEGIN {
use File::Temp qw(tempdir);
use Path::Class;
}
can_ok(
'Zucchini::Config::Create',
qw(
new
write_default_config
)
);
my $zucchini_cfg_create = Zucchini::Config::Create->new();
isa_ok($zucchini_cfg_create, q{Zucchini::Config::Create});
my $tempdir = tempdir( CLEANUP => 1 );
$zucchini_cfg_create->write_default_config(
file($tempdir, q{.zucchini})
);