Unit Tests
- qw is not qq. Cleanup now happens properly.
This commit is contained in:
@@ -100,6 +100,6 @@ ok ($? == 0, "$ut: end foo");
|
||||
like ($output, qr/three newer.+three older/ms, "$ut: sort:end- -> newer older");
|
||||
|
||||
# Cleanup.
|
||||
unlink qw(pending.data completed.data undo.data backlog.data $rc);
|
||||
unlink qw(pending.data completed.data undo.data backlog.data), $rc;
|
||||
exit 0;
|
||||
|
||||
|
||||
@@ -132,6 +132,6 @@ like ($output, qr/ ten/, "$ut: newest limit:3: ten");
|
||||
like ($output, qr/ eleven/, "$ut: newest limit:3: eleven");
|
||||
|
||||
# Cleanup.
|
||||
unlink qw(pending.data completed.data undo.data backlog.data $rc);
|
||||
unlink qw(pending.data completed.data undo.data backlog.data), $rc;
|
||||
exit 0;
|
||||
|
||||
|
||||
@@ -82,5 +82,5 @@ ok ($? == 0, "$ut: 2 info");
|
||||
like ($output, qr/invisible/ms, "$ut: task 2 visible");
|
||||
|
||||
# Cleanup.
|
||||
unlink qw(pending.data completed.data undo.data backlog.data $rc);
|
||||
unlink qw(pending.data completed.data undo.data backlog.data), $rc;
|
||||
exit 0;
|
||||
|
||||
Reference in New Issue
Block a user