Unit Tests

- qw is not qq.  Cleanup now happens properly.
This commit is contained in:
Paul Beckingham
2014-06-01 13:25:29 -04:00
parent 91523b3574
commit a1ba10d820
3 changed files with 3 additions and 3 deletions

View File

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

View File

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

View File

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