View | Details | Raw Unified | Return to bug 18725
Collapse All | Expand All

(-)a/t/db_dependent/Koha/Object.t (-3 / +3 lines)
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
- 

Return to bug 18725