use strict;
use warnings;

use Cwd;
use File::Spec;
use File::Path;

my $old_dir = cwd;
my $conf    = ".releaserc";

# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Setup a test directory
{
my $dir = File::Spec->catfile( qw(t test_dir) );
mkdir $dir, 0755 unless -d $dir;
ok( -d $dir, "Test directory is there" );

ok( chdir( $dir ), "Changed into $dir" );
END { chdir $old_dir; rmtree [ $dir ], 0, 1; }
}

# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Create empty configuration file
{

ok( 
	open( my($fh), ">", $conf ),
	"Opened empty $conf"
  );
close $fh;

ok( -e $conf, "$conf exists" );
}

# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Clean up