diff -r 584ceb504d29 -r 4e431e2de91a t/10-joker.t --- a/t/10-joker.t Fri Sep 24 11:04:21 2021 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,31 +0,0 @@ -use Test::More; -use Data::Dumper; -use File::Temp; - -my $tmp = File::Temp->new; - -use_ok 'Joker::Result' or BAIL_OUT 'sorry'; -use_ok 'Joker' or BAIL_OUT 'sorry'; -can_ok 'Joker', qw(request); -ok -f 'joker.conf' or BAIL_OUT 'joker.conf not found'; - -ok my %conf = do 'joker.conf' or BAIL_OUT 'config not valid'; - -subtest 'defaults' => sub { - isa_ok my $joker = Joker->new(username => 'foo', password => 'bar'), - 'Joker'; - is $joker->username, 'foo' => 'username'; - is $joker->password, 'bar' => 'password'; - is $joker->id_file, - "$ENV{HOME}/.joker-auth-id" => 'default place of the auth id'; - is $joker->uri, 'https://dmapi.ote.joker.com/request/' => 'default uri'; -}; - -# now with a real config -subtest 'real config' => sub { - plan skip_all => 'no config' if not -f 'joker.conf'; - isa_ok my $joker = Joker->new(%conf, id_file => "$tmp"), 'Joker'; - is $joker->id_file, "$tmp", 'id file'; -}; - -done_testing;