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