view release on metacpan or  search on metacpan

t/25_bots_api.t  view on Meta::CPAN

$td->edit_inline_caption('abc123', 'cap', sub {});
$r = last_req();
is $r->{'@type'}, 'editInlineMessageCaption', 'edit_inline_caption sends its method';
is $r->{caption}{text}, 'cap', 'caption is a formatted text';

$td->edit_inline_markup('abc123', { '@type' => 'replyMarkupInlineKeyboard' }, sub {});
$r = last_req();
is $r->{'@type'}, 'editInlineMessageReplyMarkup', 'edit_inline_markup sends its method';
is $r->{reply_markup}{'@type'}, 'replyMarkupInlineKeyboard', 'markup passed through';

$td->edit_inline_media('abc123', { '@type' => 'inputMessagePhoto' }, sub {});
is last_req()->{'@type'}, 'editInlineMessageMedia', 'edit_inline_media sends its method';

# the timing fields live inside the liveLocation wrapper
$td->edit_inline_location('abc123', { '@type' => 'location' }, live_period => 60, sub {});
$r = last_req();
is $r->{'@type'}, 'editInlineMessageLiveLocation', 'edit_inline_location sends its method';
is $r->{location}{'@type'}, 'liveLocation', 'the location is wrapped as a liveLocation';
is $r->{location}{live_period}, 60, 'live period sits inside the wrapper';
ok !exists $r->{live_period}, 'and not at the top level, where TDLib would drop it';

# a parse failure reaches the caller instead of TDLib
my $before = scalar @sent;
my ($pres, $perr);
$td->edit_inline_text('abc123', '*unclosed', parse_mode => 'markdown',
    sub { ($pres, $perr) = @_ });
is scalar @sent, $before, 'a text that fails to parse is never sent';
is +($perr->{'@type'} // ''), 'error', 'the parse error reaches the callback';

$err = do { local $@; eval { $td->edit_inline_text(undef, 'x', sub {}) }; $@ };
like $err, qr/required/, 'a missing inline id is refused';

# --- press, inline queries, bot start, attachment menu
$td->press(-100, 55, 'vote:yes', sub {});
$r = last_req();
is $r->{'@type'}, 'getCallbackQueryAnswer', 'press sends getCallbackQueryAnswer';
is $r->{chat_id}, -100, 'chat id passed through';
is $r->{message_id}, 55, 'message id passed through';
is $r->{payload}{'@type'}, 'callbackQueryPayloadData', 'payload is a data payload';
is decode_base64($r->{payload}{data}), 'vote:yes', 'payload data is base64 encoded';

$td->inline_query(42, 'weather', sub {});
$r = last_req();
is $r->{'@type'}, 'getInlineQueryResults', 'inline_query sends getInlineQueryResults';
is $r->{bot_user_id}, 42, 'bot id passed through';
is $r->{query}, 'weather', 'query passed through';

$td->send_inline_result(-100, '918273', 'res1', sub {});
$r = last_req();
is $r->{'@type'}, 'sendInlineQueryResultMessage', 'send_inline_result sends its method';
is $r->{result_id}, 'res1', 'result id passed through';
like last_json(), qr/"query_id":"918273"/, 'query id crosses as a JSON string';

$td->start_bot(42, 'ref9', sub {});
$r = last_req();
is $r->{'@type'}, 'sendBotStartMessage', 'start_bot sends sendBotStartMessage';
is $r->{parameter}, 'ref9', 'start parameter passed through';
is $r->{chat_id}, 42, 'the bot chat is the default target';

$td->attachment_menu_bot(42, sub {});
is last_req()->{'@type'}, 'getAttachmentMenuBot', 'attachment_menu_bot sends its method';

$td->toggle_attachment_menu(42, 1, sub {});
is last_req()->{'@type'}, 'toggleBotIsAddedToAttachmentMenu', 'toggle sends its method';
like last_json(), qr/"is_added":true/, 'is_added crosses as a JSON boolean';

$err = do { local $@; eval { $td->press(undef, 55, 'x', sub {}) }; $@ };
like $err, qr/required/, 'a missing chat id is refused';

done_testing;