- testModifyRecord ('VersionInfo', '1.0', (
- Deprecated => 1,
- Projects => ['Island', 'Athena'],
- ));
+ my $newDescription = 'This is a modified test component';
+
+ testModifyRecord ('Component', $FindBin::Script, (Description => $newDescription));
+
+ # Make sure the modification happened
+ my %component = $cq->get ('Component', $FindBin::Script, ('Description'));
+
+ if ($component{Description} ne $newDescription) {
+ $log->err ('Modification of Component.Description failed!');
+ } # if