Lines 44-50
my $schema = Koha::Database->new->schema;
Link Here
|
44 |
my $builder = t::lib::TestBuilder->new(); |
44 |
my $builder = t::lib::TestBuilder->new(); |
45 |
|
45 |
|
46 |
subtest 'is_changed / make_column_dirty' => sub { |
46 |
subtest 'is_changed / make_column_dirty' => sub { |
47 |
plan tests => 9; |
47 |
plan tests => 11; |
48 |
|
48 |
|
49 |
$schema->storage->txn_begin; |
49 |
$schema->storage->txn_begin; |
50 |
|
50 |
|
Lines 71-77
subtest 'is_changed / make_column_dirty' => sub {
Link Here
|
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 |
73 |
# Test make_column_dirty |
74 |
$object->make_column_dirty('firstname'); |
74 |
is( $object->make_column_dirty('firstname'), '', 'make_column_dirty returns empty string on success' ); |
|
|
75 |
is( $object->make_column_dirty('firstname'), 1, 'make_column_dirty returns 1 if already dirty' ); |
75 |
is( $object->is_changed, 1, "Object is changed after make dirty" ); |
76 |
is( $object->is_changed, 1, "Object is changed after make dirty" ); |
76 |
$object->store; |
77 |
$object->store; |
77 |
is( $object->is_changed, 0, "Store clears dirty mark" ); |
78 |
is( $object->is_changed, 0, "Store clears dirty mark" ); |
78 |
- |
|
|