23 lines
490 B
Perl
23 lines
490 B
Perl
#!/usr/bin/env perl
|
|
|
|
use v5.30.0;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::Most tests => 3;
|
|
use Test::MockModule;
|
|
use Test::MockObject;
|
|
|
|
BEGIN {
|
|
unshift @INC, 'lib';
|
|
use_ok 'DoctorAgustin::Telegram';
|
|
}
|
|
|
|
{
|
|
my $result = 'hola';
|
|
my $telegram = DoctorAgustin::Telegram->new (telegram_token => $result);
|
|
ok $telegram->isa('DoctorAgustin::Telegram'), 'Telegram object created successfully.';
|
|
is $telegram->_telegram_token, $result, 'Telegram token setup was successful.';
|
|
}
|