Unit Tests

- The unit tests needed a little love after "undelete" went away, and
  "undo" changed.
- Fixed a few tests that were broken.
This commit is contained in:
Paul Beckingham 2009-07-03 00:51:25 -04:00
parent 367214c57a
commit ef7c5dc4eb
9 changed files with 37 additions and 50 deletions

View file

@ -46,7 +46,8 @@ my $output = qx{../task rc:seq.rc info 1};
like ($output, qr/Status\s+Completed/, 'sequence do 1');
$output = qx{../task rc:seq.rc info 2};
like ($output, qr/Status\s+Completed/, 'sequence do 2');
qx{../task rc:seq.rc undo 1,2};
qx{echo 'y'|../task rc:seq.rc undo};
qx{echo 'y'|../task rc:seq.rc undo};
$output = qx{../task rc:seq.rc info 1};
like ($output, qr/Status\s+Pending/, 'sequence undo 1');
$output = qx{../task rc:seq.rc info 2};
@ -58,11 +59,12 @@ $output = qx{../task rc:seq.rc info 1};
like ($output, qr/Status\s+Deleted/, 'sequence delete 1');
$output = qx{../task rc:seq.rc info 2};
like ($output, qr/Status\s+Deleted/, 'sequence delete 2');
qx{../task rc:seq.rc undelete 1,2};
qx{echo 'y'|../task rc:seq.rc undo};
qx{echo 'y'|../task rc:seq.rc undo};
$output = qx{../task rc:seq.rc info 1};
like ($output, qr/Status\s+Pending/, 'sequence undelete 1');
like ($output, qr/Status\s+Pending/, 'sequence undo 1');
$output = qx{../task rc:seq.rc info 2};
like ($output, qr/Status\s+Pending/, 'sequence undelete 2');
like ($output, qr/Status\s+Pending/, 'sequence undo 2');
# Test sequences in start/stop
qx{../task rc:seq.rc start 1,2};