From 19439a54aaddab702da5d5ae92738f5bb3ea6d97 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Marc=20V=C3=A9ron?= Date: Mon, 29 May 2017 10:17:06 +0200 Subject: [PATCH] Bug 18672: Test for fixing overwriting creation date 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 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 Signed-off-by: Jonathan Druart --- 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 2bbf00eba5..4e7e3146d1 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 => 12; + plan tests => 13; my $patron = $builder->build({ source => 'Borrower', }); @@ -43,6 +43,13 @@ subtest 'CRUD' => sub { is( $shelf->allow_change_from_others, 0, 'The default value for allow_change_from_others 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.39.5