60 lines
1.4 KiB
Perl
60 lines
1.4 KiB
Perl
#!/usr/bin/env perl
|
|
|
|
use v5.30.0;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::Most tests => 7;
|
|
use Test::MockModule;
|
|
use Test::MockObject;
|
|
|
|
BEGIN {
|
|
unshift @INC, 'lib';
|
|
use_ok 'DoctorKarma::Model::User';
|
|
}
|
|
|
|
{
|
|
## GIVEN
|
|
my $expected_username = 'sergiotarxz';
|
|
my $expected_firstname = 'sergiotarxz';
|
|
my $expected_karma = 0;
|
|
my $expected_id_user = 100;
|
|
|
|
## WHEN
|
|
my $user = DoctorKarma::Model::User->new(
|
|
id_user => $expected_id_user,
|
|
username => $expected_username,
|
|
first_name => $expected_firstname,
|
|
karma => $expected_karma,
|
|
);
|
|
|
|
## THEN
|
|
ok $user->isa('DoctorKarma::Model::User'), 'User created succesfully.';
|
|
is $user->username, $expected_username, 'Username matchs.';
|
|
is $user->karma, $expected_karma, 'Karma matchs.';
|
|
is $user->first_name, $expected_firstname, 'Firstname matchs.';
|
|
is $user->id_user, $expected_id_user, 'Id_User matchs.';
|
|
}
|
|
|
|
{
|
|
## GIVEN
|
|
my $expected_username = 'sergiotarxz';
|
|
my $expected_firstname = 'sergiotarxz';
|
|
my $expected_karma = 100;
|
|
my $expected_id_user = 100;
|
|
|
|
my $user = DoctorKarma::Model::User->new(
|
|
id_user => $expected_id_user,
|
|
username => $expected_username,
|
|
first_name => $expected_firstname,
|
|
karma => 0,
|
|
);
|
|
|
|
## WHEN
|
|
$user->karma($expected_karma);
|
|
|
|
## THEN
|
|
is $user->karma, $expected_karma, 'The karma is the actually expected after edition.';
|
|
}
|