Bug 27636: Add payin_amount to Koha::Account

[srvgit] / t / SimpleMARC.t

diff --git a/t/SimpleMARC.t b/t/SimpleMARC.t
old mode 100644 (file)
new mode 100755 (executable)
index d32ac88..6455820
--- a/t/SimpleMARC.t
+++ b/t/SimpleMARC.t
@@ -74,13 +74,17 @@ subtest 'field_exists' => sub {
 subtest 'read_field' => sub {
     plan tests              => 2;
     subtest 'read subfield' => sub {
-        plan tests => 5;
+        plan tests => 6;
         my $record = new_record;
         $record->append_fields(
             MARC::Field->new(
                 650, ' ', '0',
                 a => 'Computer algorithms.',
                 9 => '463',
+            ),
+            MARC::Field->new(
+                600, ' ', '0',
+                0 => '123456',
             )
         );
 
@@ -130,6 +134,20 @@ subtest 'read_field' => sub {
             [],
             'There is no 3 650$a'
         );
+        is_deeply(
+            [
+                read_field(
+                    {
+                        record        => $record,
+                        field         => '600',
+                        subfield      => '0',
+                        field_numbers => [1]
+                    }
+                )
+            ],
+            ['123456'],
+            'first 600$0'
+        );
     };
     subtest 'read field' => sub {
         plan tests => 4;
@@ -191,7 +209,7 @@ subtest 'read_field' => sub {
 subtest 'update_field' => sub {
     plan tests                => 1;
     subtest 'update subfield' => sub {
-        plan tests => 5;
+        plan tests => 6;
         my $record = new_record;
 
         update_field(
@@ -250,6 +268,7 @@ subtest 'update_field' => sub {
                 952, ' ', ' ',
                 p => '3010023917',
                 y => 'BK',
+                0 => '123456',
             ),
         );
         update_field(
@@ -283,6 +302,23 @@ subtest 'update_field' => sub {
             [ '3010023917', '3010023918' ],
             'update all subfields 952$p with the different values'
         );
+
+        update_field(
+            {
+                record   => $record,
+                field    => '952',
+                subfield => '0',
+                values   => [ '654321' ]
+            }
+        );
+        my @fields_9520 =
+          read_field( { record => $record, field => '952', subfield => '0' } );
+        is_deeply(
+            \@fields_9520,
+            [ '654321', '654321' ],
+            'update all subfields 952$0 with the same value'
+        );
+
     };
 };
 
@@ -1640,7 +1676,7 @@ subtest 'move_field' => sub {
 subtest 'delete_field' => sub {
     plan tests                => 2;
     subtest 'delete subfield' => sub {
-        plan tests => 2;
+        plan tests => 3;
         my $record = new_record;
         $record->append_fields(
             MARC::Field->new(
@@ -1674,6 +1710,18 @@ subtest 'delete_field' => sub {
         @fields_952p =
           read_field( { record => $record, field => '952', subfield => 'p' } );
         is_deeply( \@fields_952p, [], 'Delete all 952$p' );
+
+        $record = new_record;
+        $record->append_fields(
+            MARC::Field->new(
+                600, ' ', ' ',
+                a => 'Murakami, Haruki',
+                0 => 'https://id.loc.gov/authorities/names/n81152393.html',
+            ),
+        );
+        delete_field( { record => $record, field => '600', subfield => '0' } );
+        my @fields_600 = read_field( { record => $record, field => '600' } );
+        is_deeply( \@fields_600, ['Murakami, Haruki'], 'Delete all 600$0, only subfield 0 deleted' );
     };
 
     subtest 'delete field' => sub {