Lines 58-64
subtest 'is_changed / make_column_dirty' => sub {
Link Here
|
58 |
$object->categorycode( $categorycode ); |
58 |
$object->categorycode( $categorycode ); |
59 |
$object->branchcode( $branchcode ); |
59 |
$object->branchcode( $branchcode ); |
60 |
$object->surname("Test Surname"); |
60 |
$object->surname("Test Surname"); |
61 |
$object->store(); |
61 |
$object->store->discard_changes; |
62 |
is( $object->is_changed(), 0, "Object is unchanged" ); |
62 |
is( $object->is_changed(), 0, "Object is unchanged" ); |
63 |
$object->surname("Test Surname"); |
63 |
$object->surname("Test Surname"); |
64 |
is( $object->is_changed(), 0, "Object is still unchanged" ); |
64 |
is( $object->is_changed(), 0, "Object is still unchanged" ); |
65 |
- |
|
|