#! /usr/perl/perl -w
use strict;
# $Id$
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;
}