From 9913b7e4211f3b3cc076eb594a50f69a179ddc49 Mon Sep 17 00:00:00 2001
From: sergiotarxz <sergio.iglesias7890@gmail.com>
Date: Sat, 5 Jun 2021 15:40:00 +0200
Subject: [PATCH] 100% Coverage in BeastBB::Response.

---
 t/01-response.t | 28 +++++++++++++++++++++++++++-
 1 file changed, 27 insertions(+), 1 deletion(-)

diff --git a/t/01-response.t b/t/01-response.t
index 6a4d0a8..d942325 100644
--- a/t/01-response.t
+++ b/t/01-response.t
@@ -1,6 +1,6 @@
 use 5.32.1;
 
-use Test::Most tests => 4;
+use Test::Most tests => 7;
 use Test::Warnings ':all';
 
 use strict;
@@ -34,3 +34,29 @@ use warnings;
         'BeastBB::Response warns on construction if is_error is true and error message is not passed.'
     );
 }
+
+{
+    my $response =
+      BeastBB::Response->new( is_error => 1, error_message => 'example error' );
+    throws_ok {
+        $response->Content;
+    }
+    qr/Attempt to get content from error\./,
+      'BeastBB::Response dies trying to recover content from error.';
+}
+
+{
+    my $response = BeastBB::Response->new( content => 'example_content' );
+    throws_ok {
+        $response->ErrorMessage;
+    }
+    qr/This is not an error\./,
+      'BeastBB::Response dies trying to recover error message if it is not an error.';
+}
+
+{
+    my $response =
+      BeastBB::Response->new( is_error => 1, error_message => 'example error' );
+    is $response->ErrorMessage, 'example error',
+      'ErrorMessage can be recovered from BeastBB::Response.';
+}