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"); like ($output, qr/three newer.+three older/ms, "$ut: sort:end- -> newer older");
# Cleanup. # 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; 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"); like ($output, qr/ eleven/, "$ut: newest limit:3: eleven");
# Cleanup. # 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; exit 0;

View file

@ -82,5 +82,5 @@ ok ($? == 0, "$ut: 2 info");
like ($output, qr/invisible/ms, "$ut: task 2 visible"); like ($output, qr/invisible/ms, "$ut: task 2 visible");
# Cleanup. # 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; exit 0;