View | Details | Raw Unified | Return to bug 18672
Collapse All | Expand All

(-)a/t/db_dependent/Virtualshelves.t (-6 / +4 lines)
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
- 

Return to bug 18672