From 55be220c4f0340cd869617d46003bc41a99c6fb4 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
Content-Type: text/plain; charset=utf-8
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
---
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 bcee55ca75..466f95c919 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 => 17;
+use Test::More tests => 18;
use Test::Exception;
use Test::Warn;
use DateTime;
@@ -737,3 +737,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