use strict;
use warnings;

use Test::More tests => 9;
use Shipwright;
use Shipwright::Test;
Shipwright::Test->init;

my $sw = Shipwright->new(
    repository => 'svk:/test/foo',
    source     => 'cpan:Jifty'
);
isa_ok( $sw->backend, 'Shipwright::Backend::SVK', '$sw->backend' );
isa_ok( $sw->source,  'Shipwright::Source::CPAN', '$sw->source' );

is( $sw->log_file, '-', 'default log_file' );
is( $sw->log_level, 'FATAL', 'default log_level is FATAL' );

$sw = Shipwright->new(
    log_file  => '/tmp/t.log',
    log_level => 'ERROR'
);

is( $sw->backend, undef, 'no repository, no backend' );
is( $sw->source,  undef, 'no source, no backend' );

is( $sw->log_file,  '/tmp/t.log', 'log_file arg is ok' );
is( $sw->log_level, 'ERROR',      'log_level arg is ok' );

$sw = Shipwright->new( repository => 'svk:/test/foo', log_level => 'erROr' );
is( $sw->log_level, 'ERROR', 'log_level which is not upper case is ok' );