Bug 18725: Test return values of make_column_dirty

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
(cherry picked from commit a4946164f6c7b43eff22b041c0b1eacd3a232f9d)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>

diff --git a/t/db_dependent/Koha/Object.t b/t/db_dependent/Koha/Object.t
index 74e47e6..9fea126 100755 (executable)
--- a/t/db_dependent/Koha/Object.t
+++ b/t/db_dependent/Koha/Object.t
@@ -39,7 +39,7 @@ my $schema  = Koha::Database->new->schema;
 my $builder = t::lib::TestBuilder->new();
 
 subtest 'is_changed / make_column_dirty' => sub {
-    plan tests => 9;
+    plan tests => 11;
 
     $schema->storage->txn_begin;
 
@@ -66,7 +66,8 @@ subtest 'is_changed / make_column_dirty' => sub {
     is( $object->is_changed(), 0, "Object no longer marked as changed after being stored" );
 
     # Test make_column_dirty
-    $object->make_column_dirty('firstname');
+    is( $object->make_column_dirty('firstname'), '', 'make_column_dirty returns empty string on success' );
+    is( $object->make_column_dirty('firstname'), 1, 'make_column_dirty returns 1 if already dirty' );
     is( $object->is_changed, 1, "Object is changed after make dirty" );
     $object->store;
     is( $object->is_changed, 0, "Store clears dirty mark" );