The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/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})
);