From 0132d56c96efa9a58f1adcd9d43df9184a82a96f Mon Sep 17 00:00:00 2001
From: sergiotarxz <sergiotarxz@posteo.net>
Date: Mon, 7 Feb 2022 21:35:28 +0100
Subject: [PATCH] Testing the user model.

---
 t/00003-model-user.t | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 t/00003-model-user.t

diff --git a/t/00003-model-user.t b/t/00003-model-user.t
new file mode 100644
index 0000000..c68b238
--- /dev/null
+++ b/t/00003-model-user.t
@@ -0,0 +1,38 @@
+#!/usr/bin/env perl
+
+use v5.30.0;
+
+use strict;
+use warnings;
+
+use Test::Most tests => 6;
+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.';
+}