From 59f4fa1d8f8bd4f226cdf7edc75a28b87f01ca01 Mon Sep 17 00:00:00 2001 From: Jonathan Druart 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