|
Lines 44-59
subtest 'CRUD' => sub {
Link Here
|
| 44 |
is( $shelf->allow_delete_other, 0, 'The default value for allow_delete_other should be 0' ); |
44 |
is( $shelf->allow_delete_other, 0, 'The default value for allow_delete_other should be 0' ); |
| 45 |
is( output_pref($shelf->created_on), output_pref(dt_from_string), 'The creation time should have been set to today' ); |
45 |
is( output_pref($shelf->created_on), output_pref(dt_from_string), 'The creation time should have been set to today' ); |
| 46 |
|
46 |
|
| 47 |
my $shelf_18672 = Koha::Virtualshelves->find( $shelf->shelfnumber ); # Bug 18672 |
47 |
# Test if creation date will not be overwritten by store |
| 48 |
my $created_18672 = $shelf_18672->created_on; |
48 |
my $created = dt_from_string->subtract( hours => 1 ); |
| 49 |
sleep 2; # Wait 2 seconds, then store |
49 |
$shelf->created_on( $created ); |
| 50 |
$shelf->store; |
50 |
$shelf->store; |
| 51 |
$shelf_18672 = Koha::Virtualshelves->find( $shelf->shelfnumber ); |
|
|
| 52 |
is($shelf_18672->created_on, $created_18672, 'Creation date is the same after update (Bug 18672)' ); |
| 53 |
|
51 |
|
| 54 |
my $retrieved_shelf = Koha::Virtualshelves->find( $shelf->shelfnumber ); |
52 |
my $retrieved_shelf = Koha::Virtualshelves->find( $shelf->shelfnumber ); |
| 55 |
|
53 |
|
| 56 |
is( $retrieved_shelf->shelfname, $shelf->shelfname, 'Find should correctly return the shelfname' ); |
54 |
is( $retrieved_shelf->shelfname, $shelf->shelfname, 'Find should correctly return the shelfname' ); |
|
|
55 |
is( dt_from_string($retrieved_shelf->created_on), $created, 'Creation date is the same after update (Bug 18672)' ); |
| 57 |
|
56 |
|
| 58 |
# Insert with the same name |
57 |
# Insert with the same name |
| 59 |
eval { |
58 |
eval { |
| 60 |
- |
|
|