|
Lines 153-159
subtest 'get_column' => sub {
Link Here
|
| 153 |
}; |
153 |
}; |
| 154 |
|
154 |
|
| 155 |
subtest 'discard_changes' => sub { |
155 |
subtest 'discard_changes' => sub { |
| 156 |
plan tests => 1; |
156 |
plan tests => 3; |
| 157 |
|
157 |
|
| 158 |
$schema->storage->txn_begin; |
158 |
$schema->storage->txn_begin; |
| 159 |
|
159 |
|
|
Lines 166-171
subtest 'discard_changes' => sub {
Link Here
|
| 166 |
dt_from_string->truncate( to => 'day' ), |
166 |
dt_from_string->truncate( to => 'day' ), |
| 167 |
'discard_changes should refresh the object' |
167 |
'discard_changes should refresh the object' |
| 168 |
); |
168 |
); |
|
|
169 |
my $cardnumber = $patron->cardnumber; |
| 170 |
my $categorycode = $patron->categorycode; |
| 171 |
my $branchcode = $patron->branchcode; |
| 172 |
$patron->delete; |
| 173 |
|
| 174 |
$patron = |
| 175 |
Koha::Patron->new( { cardnumber => $cardnumber, categorycode => $categorycode, branchcode => $branchcode } ) |
| 176 |
->store->discard_changes; |
| 177 |
|
| 178 |
is( ref($patron), 'Koha::Patron', 'discard_changes should return a Koha::Object object' ); |
| 179 |
isnt( $patron->updated_on, undef, 'discard_changes should have fetched the row from the DB' ); |
| 169 |
|
180 |
|
| 170 |
$schema->storage->txn_rollback; |
181 |
$schema->storage->txn_rollback; |
| 171 |
}; |
182 |
}; |
| 172 |
- |
|
|