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