--- 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;