From e289e400789d2ba6f00004b65564f1201f39f191 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Tue, 28 Apr 2020 11:31:28 -0300 Subject: [PATCH] Bug 25303: Unit tests Signed-off-by: Tomas Cohen Arazi Signed-off-by: Martin Renvoize --- t/db_dependent/Koha/Objects.t | 33 ++++++++++++++++++++++++++++++++- 1 file changed, 32 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Koha/Objects.t b/t/db_dependent/Koha/Objects.t index 632d770644..23b045a49d 100644 --- a/t/db_dependent/Koha/Objects.t +++ b/t/db_dependent/Koha/Objects.t @@ -19,8 +19,9 @@ use Modern::Perl; -use Test::More tests => 22; +use Test::More tests => 23; use Test::Exception; +use Test::MockModule; use Test::Warn; use Koha::Authority::Types; @@ -820,3 +821,33 @@ subtest 'empty() tests' => sub { $schema->storage->txn_rollback; }; + +subtest 'delete() tests' => sub { + + plan tests => 2; + + $schema->storage->txn_begin; + + # Make sure no cities + warnings_are { Koha::Cities->delete }[], + "No warnings, no Koha::City->delete called as it doesn't exist"; + + # Mock Koha::City + my $mocked_city = Test::MockModule->new('Koha::City'); + $mocked_city->mock( + 'delete', + sub { + warn "delete called!"; + } + ); + + # Add two cities + $builder->build_object( { class => 'Koha::Cities' } ); + $builder->build_object( { class => 'Koha::Cities' } ); + + warnings_are { Koha::Cities->delete } + [ "delete called!", "delete called!" ], + "No warnings, no Koha::City->delete called as it doesn't exist"; + + $schema->storage->txn_rollback; +}; -- 2.39.2