From 59f4fa1d8f8bd4f226cdf7edc75a28b87f01ca01 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Wed, 11 Dec 2019 09:39:15 +0100
Subject: [PATCH] Bug 24213: Add tests

---
 t/db_dependent/Koha/Object.t | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

diff --git a/t/db_dependent/Koha/Object.t b/t/db_dependent/Koha/Object.t
index a37695bc1f..3f8e060728 100755
--- a/t/db_dependent/Koha/Object.t
+++ b/t/db_dependent/Koha/Object.t
@@ -17,7 +17,7 @@
 
 use Modern::Perl;
 
-use Test::More tests => 12;
+use Test::More tests => 13;
 use Test::Exception;
 use Test::Warn;
 use DateTime;
@@ -470,3 +470,26 @@ subtest 'unblessed_all_relateds' => sub {
 
     $schema->storage->txn_rollback;
 };
+
+subtest 'get_from_storage' => sub {
+    plan tests => 4;
+
+    $schema->storage->txn_begin;
+
+    my $biblio = $builder->build_sample_biblio;
+
+    my $old_title = $biblio->title;
+    my $new_title = 'new_title';
+    Koha::Biblios->find( $biblio->biblionumber )->title($new_title)->store;
+
+    is( $biblio->title, $old_title, 'current $biblio should not be modified' );
+    is( $biblio->get_from_storage->title,
+        $new_title, 'get_from_storage should return an updated object' );
+
+    Koha::Biblios->find( $biblio->biblionumber )->delete;
+    is( ref($biblio), 'Koha::Biblio', 'current $biblio should not be deleted' );
+    is( $biblio->get_from_storage, undef,
+        'get_from_storage should return undef if the object has been deleted' );
+
+    $schema->storage->txn_rollback;
+};
-- 
2.11.0