#!/usr/bin/env perl
# vim: ts=8 sts=4 et sw=4 sr sta
use strict;
use warnings;

use Test::NoWarnings;
use Test::More tests => 12;

BEGIN {
    use FindBin;
    use lib qq{$FindBin::Bin/testlib};
}

BEGIN {
    use_ok 'Zucchini::TestConfig';
}

# evil globals
my ($test_config);

# get a test_config object
$test_config = Zucchini::TestConfig->new();

# make sure it's the right thingy
isa_ok($test_config, q{Zucchini::TestConfig});

# make sure we can call expected methods
can_ok(
    $test_config,
    qw<
        get_testdir
        set_testdir
        get_templatedir
        set_templatedir
        get_includedir
        set_includedir
        get_outputdir
        set_outputdir
        get_rsyncpath
        set_rsyncpath
        get_config
        set_config
    >
);

# make sure that "special" variables are set, and not XXWILLBEOVERRIDDENXX
# value still
my $value;

$value = $test_config->get_templatedir;
isnt($value, q{XXWILLBEOVERRIDDENXX}, q{get_templatedir value is sane});
ok(-d $value, q{templatedir exists});

$value = $test_config->get_includedir;
isnt($value, q{XXWILLBEOVERRIDDENXX}, q{get_includedir value is sane});
ok(-d $value, q{includedir exists});

$value = $test_config->get_outputdir;
isnt($value, q{XXWILLBEOVERRIDDENXX}, q{get_outputdir value is sane});
ok(-d $value, q{outputdir exists});

$value = $test_config->get_rsyncpath;
isnt($value, q{XXWILLBEOVERRIDDENXX}, q{get_rsyncpath value is sane});
ok(-d $value, q{rsyncpath exists});