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 |
- |
|
|