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

(-)a/t/db_dependent/Virtualshelves.t (-2 / +8 lines)
Lines 19-25 $dbh->{AutoCommit} = 0; Link Here
19
teardown();
19
teardown();
20
20
21
subtest 'CRUD' => sub {
21
subtest 'CRUD' => sub {
22
    plan tests => 13;
22
    plan tests => 14;
23
    my $patron = $builder->build({
23
    my $patron = $builder->build({
24
        source => 'Borrower',
24
        source => 'Borrower',
25
    });
25
    });
Lines 44-49 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
48
    my $created_18672 = $shelf_18672->created_on;
49
    sleep 2; # Wait 2 seconds, then 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
47
    my $retrieved_shelf = Koha::Virtualshelves->find( $shelf->shelfnumber );
54
    my $retrieved_shelf = Koha::Virtualshelves->find( $shelf->shelfnumber );
48
55
49
    is( $retrieved_shelf->shelfname, $shelf->shelfname, 'Find should correctly return the shelfname' );
56
    is( $retrieved_shelf->shelfname, $shelf->shelfname, 'Find should correctly return the shelfname' );
50
- 

Return to bug 18672