From 55be220c4f0340cd869617d46003bc41a99c6fb4 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 Content-Type: text/plain; charset=utf-8 Signed-off-by: Martin Renvoize Signed-off-by: Marcel de Rooy --- 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