diff -r 7326d2e9b3a7 -r 584ceb504d29 t/10-joker.t --- a/t/10-joker.t Wed Dec 24 21:47:20 2014 +0100 +++ b/t/10-joker.t Fri Sep 24 11:04:21 2021 +0200 @@ -1,5 +1,31 @@ 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'; +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;