From 5b514e42487ba2b25fa8c78dcf67f1f21377c9a8 Mon Sep 17 00:00:00 2001 From: Pedro Amorim Date: Mon, 27 Nov 2023 14:31:59 +0000 Subject: [PATCH] Bug 35107: Add tests prove t/db_dependent/Koha/Illrequest.t --- t/db_dependent/Koha/Illrequest.t | 66 +++++++++++++++++++++++++++++++- 1 file changed, 65 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Koha/Illrequest.t b/t/db_dependent/Koha/Illrequest.t index 2c48fc8253..d717963ec8 100755 --- a/t/db_dependent/Koha/Illrequest.t +++ b/t/db_dependent/Koha/Illrequest.t @@ -19,7 +19,7 @@ use Modern::Perl; -use Test::More tests => 1; +use Test::More tests => 3; use Koha::Illrequests; @@ -48,3 +48,67 @@ subtest 'patron() tests' => sub { $schema->storage->txn_rollback; }; + +subtest 'get_type_disclaimer_value() tests' => sub { + + plan tests => 2; + + $schema->storage->txn_begin; + + my $request = $builder->build_object( { class => 'Koha::Illrequests' } ); + + is( + $request->get_type_disclaimer_value, undef, + 'get_type_disclaimer_value() returns undef if no get_type_disclaimer_value is set' + ); + + $builder->build_object( + { + class => 'Koha::Illrequestattributes', + value => { + illrequest_id => $request->illrequest_id, + type => 'type_disclaimer_value', + value => 'Yes' + } + } + ); + + is( + $request->get_type_disclaimer_value, "Yes", + 'get_type_disclaimer_value() returns the value if is set' + ); + + $schema->storage->txn_rollback; +}; + +subtest 'get_type_disclaimer_date() tests' => sub { + + plan tests => 2; + + $schema->storage->txn_begin; + + my $request = $builder->build_object( { class => 'Koha::Illrequests' } ); + + is( + $request->get_type_disclaimer_date, undef, + 'get_type_disclaimer_date() returns undef if no get_type_disclaimer_date is set' + ); + + $builder->build_object( + { + class => 'Koha::Illrequestattributes', + value => { + illrequest_id => $request->illrequest_id, + type => 'type_disclaimer_date', + value => '2023-11-27T14:27:01' + } + } + ); + + is( + $request->get_type_disclaimer_date, "2023-11-27T14:27:01", + 'get_type_disclaimer_date() returns the value if is set' + ); + + $schema->storage->txn_rollback; +}; -- 2.30.2