From 716e3e7e990c0d93d0b859a650e29a8625b75710 Mon Sep 17 00:00:00 2001
From: =?utf-8?q?Marc=20V=C3=A9ron?= <veron@veron.ch>
Date: Mon, 29 May 2017 10:17:06 +0200
Subject: [PATCH] Bug 18672: Test for fixing overwriting creation date
Content-Type: text/plain; charset=utf-8

Use this test to highlight issue:
prove -v t/db_dependent/Virtualshelves.t

After applying patch for Koha/Virtualshelf.pm it should turn green

Signed-off-by: Lee Jamison <ldjamison@marywood.edu>
Works correctly according to test case. Passes QA Tools and the
indicated t/db_dependent/Virtualshelves.t unit test.

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
---
 t/db_dependent/Virtualshelves.t | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/t/db_dependent/Virtualshelves.t b/t/db_dependent/Virtualshelves.t
index c867056..809b10f 100644
--- a/t/db_dependent/Virtualshelves.t
+++ b/t/db_dependent/Virtualshelves.t
@@ -19,7 +19,7 @@ $dbh->{AutoCommit} = 0;
 teardown();
 
 subtest 'CRUD' => sub {
-    plan tests => 13;
+    plan tests => 14;
     my $patron = $builder->build({
         source => 'Borrower',
     });
@@ -44,6 +44,13 @@ subtest 'CRUD' => sub {
     is( $shelf->allow_delete_other, 0, 'The default value for allow_delete_other should be 0' );
     is( output_pref($shelf->created_on), output_pref(dt_from_string), 'The creation time should have been set to today' );
 
+    my $shelf_18672 = Koha::Virtualshelves->find( $shelf->shelfnumber ); # Bug 18672
+    my $created_18672 = $shelf_18672->created_on;
+    sleep 2; # Wait 2 seconds, then store
+    $shelf->store;
+    $shelf_18672 = Koha::Virtualshelves->find( $shelf->shelfnumber );
+    is($shelf_18672->created_on, $created_18672, 'Creation date is the same after update (Bug 18672)' );
+
     my $retrieved_shelf = Koha::Virtualshelves->find( $shelf->shelfnumber );
 
     is( $retrieved_shelf->shelfname, $shelf->shelfname, 'Find should correctly return the shelfname' );
-- 
2.1.4