From 224912f29009d339e6a784b0750c24aaf6713e12 Mon Sep 17 00:00:00 2001
From: Julian Maurice <julian.maurice@biblibre.com>
Date: Wed, 29 Mar 2023 10:47:24 +0200
Subject: [PATCH] Bug 11844: Add tests for Koha::AdditionalField

Signed-off-by: Michaela Sieber <michaela.sieber@kit.edu>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
---
 t/db_dependent/Koha/AdditionalField.pm | 82 ++++++++++++++++++++++++++
 1 file changed, 82 insertions(+)
 create mode 100755 t/db_dependent/Koha/AdditionalField.pm

diff --git a/t/db_dependent/Koha/AdditionalField.pm b/t/db_dependent/Koha/AdditionalField.pm
new file mode 100755
index 0000000000..db2d50d8fa
--- /dev/null
+++ b/t/db_dependent/Koha/AdditionalField.pm
@@ -0,0 +1,82 @@
+#!/usr/bin/perl
+
+use Modern::Perl;
+
+use Test::More tests => 2;
+use String::Random qw(random_string);
+
+use Koha::AuthorisedValueCategory;
+
+BEGIN {
+    use_ok('Koha::AdditionalField');
+}
+
+my $schema = Koha::Database->schema;
+
+subtest 'effective_authorised_value_category' => sub {
+    plan tests => 4;
+
+    $schema->txn_begin;
+
+    my $av_category_name = random_string('C' x 32);
+    my $av_category = Koha::AuthorisedValueCategory->new({ category_name => $av_category_name });
+    $av_category->store()->discard_changes();
+
+    my $field = Koha::AdditionalField->new(
+        {
+            tablename => random_string('c' x 100),
+            name => random_string('c' x 100),
+        }
+    );
+    $field->store()->discard_changes();
+
+    is($field->effective_authorised_value_category, '', 'no default category');
+
+    $field = Koha::AdditionalField->new(
+        {
+            tablename => random_string('c' x 100),
+            name => random_string('c' x 100),
+            authorised_value_category => $av_category_name,
+        }
+    );
+    $field->store()->discard_changes();
+
+    is($field->effective_authorised_value_category, $av_category_name, 'returns authorised_value_category if set');
+
+    my $mss = Koha::MarcSubfieldStructure->new(
+        {
+            frameworkcode => '',
+            tagfield => '999',
+            tagsubfield => 'Z',
+            authorised_value => $av_category_name,
+        }
+    );
+    $mss->store();
+    $field = Koha::AdditionalField->new(
+        {
+            tablename => random_string('c' x 100),
+            name => random_string('c' x 100),
+            marcfield => '999$Z',
+        }
+    );
+    $field->store()->discard_changes();
+
+    is($field->effective_authorised_value_category, $av_category_name, 'returns MARC subfield authorised value category if set');
+
+    my $av2_category_name = random_string('C' x 32);
+    my $av2_category = Koha::AuthorisedValueCategory->new({ category_name => $av2_category_name });
+    $av2_category->store()->discard_changes();
+    $field = Koha::AdditionalField->new(
+        {
+            tablename => random_string('c' x 100),
+            name => random_string('c' x 100),
+            authorised_value_category => $av2_category_name,
+            marcfield => '999$Z',
+        }
+    );
+    $field->store()->discard_changes();
+
+    is($field->effective_authorised_value_category, $av2_category_name, 'returns authorised_value_category if both authorised_value_category and marcfield are set');
+
+    $schema->txn_rollback;
+};
-- 
2.40.0