Add tests for cleanup() and init()

Changes

@@ -1,5 +1,6 @@
 0.03
  - Add error to init() and prepare() without data.
+ - Add tests for cleanup() and init().
  - Fix link to image in doc.
 
 0.02 2024-02-08T22:35:31+01:00

MANIFEST

@@ -23,5 +23,7 @@ SIGNATURE
 t/Tags-HTML-ChangePassword/01-use.t
 t/Tags-HTML-ChangePassword/02-version.t
 t/Tags-HTML-ChangePassword/03-new.t
+t/Tags-HTML-ChangePassword/04-cleanup.t
+t/Tags-HTML-ChangePassword/05-init.t
 xt/Tags-HTML-ChangePassword/01-pod_coverage.t
 xt/Tags-HTML-ChangePassword/02-pod.t

META.yml

@@ -6,6 +6,8 @@ build_requires:
   CSS::Struct::Output::Raw: 0
   CSS::Struct::Output::Structure: 0
   Data::Message::Simple: 0
+  English: 0
+  Error::Pure::Utils: 0
   ExtUtils::MakeMaker: 6.59
   Tags::Output::Raw: 0
   Tags::Output::Structure: 0

Makefile.PL

@@ -30,6 +30,8 @@ resources 'repository' => 'git://github.com/michal-josef-spacek/Tags-HTML-Change
 test_requires 'CSS::Struct::Output::Raw' => 0;
 test_requires 'CSS::Struct::Output::Structure' => 0;
 test_requires 'Data::Message::Simple' => 0;
+test_requires 'English' => 0;
+test_requires 'Error::Pure::Utils' => 0;
 test_requires 'Tags::Output::Raw' => 0;
 test_requires 'Tags::Output::Structure' => 0;
 test_requires 'Test::MockObject' => 0;

t/Tags-HTML-ChangePassword/04-cleanup.t

@@ -0,0 +1,11 @@
+use strict;
+use warnings;
+
+use Tags::HTML::ChangePassword;
+use Test::More 'tests' => 2;
+use Test::NoWarnings;
+
+# Test.
+my $obj = Tags::HTML::ChangePassword->new;
+my $ret = $obj->cleanup;
+is($ret, undef, 'Cleanup returns undef.');

t/Tags-HTML-ChangePassword/05-init.t

@@ -0,0 +1,28 @@
+use strict;
+use warnings;
+
+use Data::Message::Simple;
+use English;
+use Error::Pure::Utils qw(clean);
+use Tags::HTML::ChangePassword;
+use Test::More 'tests' => 3;
+use Test::NoWarnings;
+
+# Test.
+my $obj = Tags::HTML::ChangePassword->new;
+my $messages_ar = [
+	Data::Message::Simple->new(
+		'text' => 'Error #1',
+		'type' => 'error',
+	),
+];
+my $ret = $obj->init($messages_ar);
+is($ret, undef, 'Init returns undef.');
+
+# Test.
+$obj = Tags::HTML::ChangePassword->new;
+eval {
+	$obj->init;
+};
+is($EVAL_ERROR, "No messages to init.\n", "No messages to init.");
+clean();