|
Lines 43-50
BEGIN {
Link Here
|
| 43 |
my $schema = Koha::Database->new->schema; |
43 |
my $schema = Koha::Database->new->schema; |
| 44 |
my $builder = t::lib::TestBuilder->new(); |
44 |
my $builder = t::lib::TestBuilder->new(); |
| 45 |
|
45 |
|
| 46 |
subtest 'is_changed' => sub { |
46 |
subtest 'is_changed / make_column_dirty' => sub { |
| 47 |
plan tests => 6; |
47 |
plan tests => 9; |
| 48 |
|
48 |
|
| 49 |
$schema->storage->txn_begin; |
49 |
$schema->storage->txn_begin; |
| 50 |
|
50 |
|
|
Lines 70-75
subtest 'is_changed' => sub {
Link Here
|
| 70 |
$object->store(); |
70 |
$object->store(); |
| 71 |
is( $object->is_changed(), 0, "Object no longer marked as changed after being stored" ); |
71 |
is( $object->is_changed(), 0, "Object no longer marked as changed after being stored" ); |
| 72 |
|
72 |
|
|
|
73 |
# Test make_column_dirty |
| 74 |
$object->make_column_dirty('firstname'); |
| 75 |
is( $object->is_changed, 1, "Object is changed after make dirty" ); |
| 76 |
$object->store; |
| 77 |
is( $object->is_changed, 0, "Store clears dirty mark" ); |
| 78 |
$object->make_column_dirty('firstname'); |
| 79 |
$object->discard_changes; |
| 80 |
is( $object->is_changed, 0, "Discard clears dirty mark too" ); |
| 81 |
|
| 73 |
$schema->storage->txn_rollback; |
82 |
$schema->storage->txn_rollback; |
| 74 |
}; |
83 |
}; |
| 75 |
|
84 |
|
| 76 |
- |
|
|