#! /usr/perl/perl -w
use strict;

# $Id: ts_config.t 727 2004-09-05 12:08:47Z abeltje $

use FindBin;
use Data::Dumper;
use vars qw( $conf );

use Test::More tests => 9 - 1;
BEGIN { use_ok( 'Test::Smoke' ) }

#is( Test::Smoke->VERSION, $Test::Smoke::VERSION, 
#    "Check version $Test::Smoke::VERSION" );

ok( defined &read_config, "read_config() is exported" );

my $test = { ddir => '../' };

SKIP: {
    my $prefix = 'smokecurrent';
    my $config_name = File::Spec->catfile( $FindBin::Bin, 
                                           "${prefix}_config" );
    local *FILE;
    open FILE, "> $config_name" or skip "Cannot write file: $!", 2;
    print FILE Data::Dumper->Dump( [$test], ['conf'] );
    close FILE or skip "Cannot close file: $!", 2;

    ok( read_config( $config_name ), "read_config($config_name)" );
    is( Test::Smoke->config_error, undef, "No errors" );
    is_deeply( $conf, $test, "Configuration compares" );

    undef $conf;
    my $config_short = File::Spec->catfile( $FindBin::Bin, $prefix );
    ok( read_config( $config_short ), "read_config($config_short)" );
    is( Test::Smoke->config_error, undef, "No errors" );
    is_deeply( $conf, $test, "Configuration compares after reloading" );

    1 while unlink $config_name;
}