From 5586a3c8ccd483a0691022e622bb4c1771e43ca2 Mon Sep 17 00:00:00 2001 From: Paul Beckingham Date: Mon, 27 Oct 2014 22:03:57 -0400 Subject: [PATCH] Unit Tests - Converted to use the new template. --- test/bulk.t | 150 +++++++++++++++++++++++++++------------------------- 1 file changed, 77 insertions(+), 73 deletions(-) diff --git a/test/bulk.t b/test/bulk.t index 9c334b3cd..d54d1b148 100755 --- a/test/bulk.t +++ b/test/bulk.t @@ -33,8 +33,12 @@ use Test::More tests => 42; delete $ENV{'TASKDATA'}; delete $ENV{'TASKRC'}; +use File::Basename; +my $ut = basename ($0); +my $rc = $ut . '.rc'; + # Create the rc file. -if (open my $fh, '>', 'bulk.rc') +if (open my $fh, '>', $rc) { print $fh "data.location=.\n", "bulk=3\n"; @@ -42,24 +46,24 @@ if (open my $fh, '>', 'bulk.rc') } # Exercise bulk and non-bulk confirmations for 'delete' and 'modify'. -qx{../src/task rc:bulk.rc add one 2>&1}; -qx{../src/task rc:bulk.rc add two 2>&1}; -qx{../src/task rc:bulk.rc add three 2>&1}; -qx{../src/task rc:bulk.rc add four 2>&1}; -qx{../src/task rc:bulk.rc add five 2>&1}; -qx{../src/task rc:bulk.rc add six 2>&1}; -qx{../src/task rc:bulk.rc add seven 2>&1}; -qx{../src/task rc:bulk.rc add eight 2>&1}; -qx{../src/task rc:bulk.rc add nine 2>&1}; -qx{../src/task rc:bulk.rc add ten 2>&1}; -qx{../src/task rc:bulk.rc add eleven 2>&1}; -qx{../src/task rc:bulk.rc add twelve 2>&1}; -qx{../src/task rc:bulk.rc add thirteen 2>&1}; -qx{../src/task rc:bulk.rc add fourteen 2>&1}; -qx{../src/task rc:bulk.rc add fifteen 2>&1}; -qx{../src/task rc:bulk.rc add sixteen 2>&1}; -qx{../src/task rc:bulk.rc add seventeen 2>&1}; -qx{../src/task rc:bulk.rc add eighteen 2>&1}; +qx{../src/task rc:$rc add one 2>&1}; +qx{../src/task rc:$rc add two 2>&1}; +qx{../src/task rc:$rc add three 2>&1}; +qx{../src/task rc:$rc add four 2>&1}; +qx{../src/task rc:$rc add five 2>&1}; +qx{../src/task rc:$rc add six 2>&1}; +qx{../src/task rc:$rc add seven 2>&1}; +qx{../src/task rc:$rc add eight 2>&1}; +qx{../src/task rc:$rc add nine 2>&1}; +qx{../src/task rc:$rc add ten 2>&1}; +qx{../src/task rc:$rc add eleven 2>&1}; +qx{../src/task rc:$rc add twelve 2>&1}; +qx{../src/task rc:$rc add thirteen 2>&1}; +qx{../src/task rc:$rc add fourteen 2>&1}; +qx{../src/task rc:$rc add fifteen 2>&1}; +qx{../src/task rc:$rc add sixteen 2>&1}; +qx{../src/task rc:$rc add seventeen 2>&1}; +qx{../src/task rc:$rc add eighteen 2>&1}; # The 'delete' command is used, but it could be any write command. # Note that 'y' is passed to task despite rc.confirmation=off. This allows @@ -68,80 +72,80 @@ qx{../src/task rc:bulk.rc add eighteen 2>&1}; # 'yes' tests: # Test with 1 task. 1 is a special case. -my $output = qx{echo 'y' | ../src/task rc:bulk.rc rc.confirmation=off 1 delete 2>&1}; -unlike ($output, qr/\(yes\/no\)/, 'Single delete with no confirmation'); -unlike ($output, qr/\(yes\/no\/all\/quit\)/, 'Single delete with no bulk confirmation'); -like ($output, qr/Deleting task 1/, 'Verified delete 1'); +my $output = qx{echo 'y' | ../src/task rc:$rc rc.confirmation=off 1 delete 2>&1}; +unlike ($output, qr/\(yes\/no\)/, "$ut: Single delete with no confirmation"); +unlike ($output, qr/\(yes\/no\/all\/quit\)/, "$ut: Single delete with no bulk confirmation"); +like ($output, qr/Deleting task 1/, "$ut: Verified delete 1"); -$output = qx{echo 'y' | ../src/task rc:bulk.rc rc.confirmation=on 2 delete 2>&1}; -like ($output, qr/\(yes\/no\)/, 'Single delete with confirmation'); -unlike ($output, qr/\(yes\/no\/all\/quit\)/, 'Single delete with no bulk confirmation'); -like ($output, qr/Deleting task 2/, 'Verified delete 2'); +$output = qx{echo 'y' | ../src/task rc:$rc rc.confirmation=on 2 delete 2>&1}; +like ($output, qr/\(yes\/no\)/, "$ut: Single delete with confirmation"); +unlike ($output, qr/\(yes\/no\/all\/quit\)/, "$ut: Single delete with no bulk confirmation"); +like ($output, qr/Deleting task 2/, "$ut: Verified delete 2"); # Test with 2 tasks. 2 is greater than 1 and less than bulk. -$output = qx{echo 'y' | ../src/task rc:bulk.rc rc.confirmation=off 3-4 delete 2>&1}; -unlike ($output, qr/\(yes\/no\)/, 'Multiple delete with no confirmation'); -unlike ($output, qr/\(yes\/no\/all\/quit\)/, 'Multiple delete with no bulk confirmation'); -like ($output, qr/Deleting task 3/, 'Verified delete 3'); -like ($output, qr/Deleting task 4/, 'Verified delete 4'); +$output = qx{echo 'y' | ../src/task rc:$rc rc.confirmation=off 3-4 delete 2>&1}; +unlike ($output, qr/\(yes\/no\)/, "$ut: Multiple delete with no confirmation"); +unlike ($output, qr/\(yes\/no\/all\/quit\)/, "$ut: Multiple delete with no bulk confirmation"); +like ($output, qr/Deleting task 3/, "$ut: Verified delete 3"); +like ($output, qr/Deleting task 4/, "$ut: Verified delete 4"); -$output = qx{printf 'y\ny\n' | ../src/task rc:bulk.rc rc.confirmation=on 5-6 delete 2>&1}; -unlike ($output, qr/\(yes\/no\)/, 'Multiple delete with confirmation'); -like ($output, qr/\(yes\/no\/all\/quit\)/, 'Multiple delete with bulk confirmation'); -like ($output, qr/Deleting task 5/, 'Verified delete 5'); -like ($output, qr/Deleting task 6/, 'Verified delete 6'); +$output = qx{printf 'y\ny\n' | ../src/task rc:$rc rc.confirmation=on 5-6 delete 2>&1}; +unlike ($output, qr/\(yes\/no\)/, "$ut: Multiple delete with confirmation"); +like ($output, qr/\(yes\/no\/all\/quit\)/, "$ut: Multiple delete with bulk confirmation"); +like ($output, qr/Deleting task 5/, "$ut: Verified delete 5"); +like ($output, qr/Deleting task 6/, "$ut: Verified delete 6"); # Test with 3 tasks. 3 is considered bulk. -$output = qx{printf 'y\ny\ny\n' | ../src/task rc:bulk.rc rc.confirmation=off 7-9 delete 2>&1}; -unlike ($output, qr/\(yes\/no\)/, 'Bulk delete with no confirmation'); -like ($output, qr/\(yes\/no\/all\/quit\)/, 'Bulk delete with no bulk confirmation'); -like ($output, qr/Deleting task 7/, 'Verified delete 7'); -like ($output, qr/Deleting task 8/, 'Verified delete 8'); -like ($output, qr/Deleting task 9/, 'Verified delete 9'); +$output = qx{printf 'y\ny\ny\n' | ../src/task rc:$rc rc.confirmation=off 7-9 delete 2>&1}; +unlike ($output, qr/\(yes\/no\)/, "$ut: Bulk delete with no confirmation"); +like ($output, qr/\(yes\/no\/all\/quit\)/, "$ut: Bulk delete with no bulk confirmation"); +like ($output, qr/Deleting task 7/, "$ut: Verified delete 7"); +like ($output, qr/Deleting task 8/, "$ut: Verified delete 8"); +like ($output, qr/Deleting task 9/, "$ut: Verified delete 9"); -$output = qx{printf 'y\ny\ny\n' | ../src/task rc:bulk.rc rc.confirmation=on 10-12 delete 2>&1}; -unlike ($output, qr/\(yes\/no\)/, 'Bulk delete with confirmation'); -like ($output, qr/\(yes\/no\/all\/quit\)/, 'Bulk delete with bulk confirmation'); -like ($output, qr/Deleting task 10/, 'Verified delete 10'); -like ($output, qr/Deleting task 11/, 'Verified delete 11'); -like ($output, qr/Deleting task 12/, 'Verified delete 12'); +$output = qx{printf 'y\ny\ny\n' | ../src/task rc:$rc rc.confirmation=on 10-12 delete 2>&1}; +unlike ($output, qr/\(yes\/no\)/, "$ut: Bulk delete with confirmation"); +like ($output, qr/\(yes\/no\/all\/quit\)/, "$ut: Bulk delete with bulk confirmation"); +like ($output, qr/Deleting task 10/, "$ut: Verified delete 10"); +like ($output, qr/Deleting task 11/, "$ut: Verified delete 11"); +like ($output, qr/Deleting task 12/, "$ut: Verified delete 12"); # 'no' tests: # Test with 1 task, denying delete. -$output = qx{echo 'n' | ../src/task rc:bulk.rc rc.confirmation=on 13 delete 2>&1}; -like ($output, qr/\(yes\/no\)/, 'Single delete with confirmation'); -unlike ($output, qr/\(yes\/no\/all\/quit\)/, 'Single delete with no bulk confirmation'); -unlike ($output, qr/Deleting task/, 'Verified no delete 13'); +$output = qx{echo 'n' | ../src/task rc:$rc rc.confirmation=on 13 delete 2>&1}; +like ($output, qr/\(yes\/no\)/, "$ut: Single delete with confirmation"); +unlike ($output, qr/\(yes\/no\/all\/quit\)/, "$ut: Single delete with no bulk confirmation"); +unlike ($output, qr/Deleting task/, "$ut: Verified no delete 13"); # Test with 2 tasks, denying delete. -$output = qx{printf 'n\nn\n' | ../src/task rc:bulk.rc rc.confirmation=on 13-14 delete 2>&1}; -unlike ($output, qr/\(yes\/no\)/, 'Multiple delete with confirmation'); -like ($output, qr/\(yes\/no\/all\/quit\)/, 'Multiple delete with no bulk confirmation'); -unlike ($output, qr/Deleting task/, 'Verified no delete 13-14'); +$output = qx{printf 'n\nn\n' | ../src/task rc:$rc rc.confirmation=on 13-14 delete 2>&1}; +unlike ($output, qr/\(yes\/no\)/, "$ut: Multiple delete with confirmation"); +like ($output, qr/\(yes\/no\/all\/quit\)/, "$ut: Multiple delete with no bulk confirmation"); +unlike ($output, qr/Deleting task/, "$ut: Verified no delete 13-14"); # Test with 3 tasks, denying delete. -$output = qx{printf 'n\nn\nn\n' | ../src/task rc:bulk.rc rc.confirmation=on 13-15 delete 2>&1}; -unlike ($output, qr/\(yes\/no\)/, 'Bulk delete with confirmation'); -like ($output, qr/\(yes\/no\/all\/quit\)/, 'Bulk delete with no bulk confirmation'); -unlike ($output, qr/Deleting task/, 'Verified no delete 13-15'); +$output = qx{printf 'n\nn\nn\n' | ../src/task rc:$rc rc.confirmation=on 13-15 delete 2>&1}; +unlike ($output, qr/\(yes\/no\)/, "$ut: Bulk delete with confirmation"); +like ($output, qr/\(yes\/no\/all\/quit\)/, "$ut: Bulk delete with no bulk confirmation"); +unlike ($output, qr/Deleting task/, "$ut: Verified no delete 13-15"); # 'all' tests: -$output = qx{echo 'all' | ../src/task rc:bulk.rc rc.confirmation=on 13-15 delete 2>&1}; -unlike ($output, qr/\(yes\/no\)/, 'Bulk delete with confirmation'); -like ($output, qr/\(yes\/no\/all\/quit\)/, 'Bulk delete with bulk confirmation'); -like ($output, qr/Deleting task 13/, 'Verified delete 13'); -like ($output, qr/Deleting task 14/, 'Verified delete 14'); -like ($output, qr/Deleting task 15/, 'Verified delete 15'); +$output = qx{echo 'all' | ../src/task rc:$rc rc.confirmation=on 13-15 delete 2>&1}; +unlike ($output, qr/\(yes\/no\)/, "$ut: Bulk delete with confirmation"); +like ($output, qr/\(yes\/no\/all\/quit\)/, "$ut: Bulk delete with bulk confirmation"); +like ($output, qr/Deleting task 13/, "$ut: Verified delete 13"); +like ($output, qr/Deleting task 14/, "$ut: Verified delete 14"); +like ($output, qr/Deleting task 15/, "$ut: Verified delete 15"); # 'quit' tests: -$output = qx{echo 'quit' | ../src/task rc:bulk.rc rc.confirmation=on 16-18 delete 2>&1}; -unlike ($output, qr/\(yes\/no\)/, 'Bulk delete with no confirmation'); -like ($output, qr/\(yes\/no\/all\/quit\)/, 'Bulk delete with no bulk confirmation'); -like ($output, qr/Deleted 0 tasks./, 'No task deleted'); -unlike ($output, qr/delete task 17/, 'No question asked for subsequent tasks'); +$output = qx{echo 'quit' | ../src/task rc:$rc rc.confirmation=on 16-18 delete 2>&1}; +unlike ($output, qr/\(yes\/no\)/, "$ut: Bulk delete with no confirmation"); +like ($output, qr/\(yes\/no\/all\/quit\)/, "$ut: Bulk delete with no bulk confirmation"); +like ($output, qr/Deleted 0 tasks./, "$ut: No task deleted"); +unlike ($output, qr/delete task 17/, "$ut: No question asked for subsequent tasks"); # Cleanup. -unlink qw(pending.data completed.data undo.data backlog.data bulk.rc); +unlink qw(pending.data completed.data undo.data backlog.data), $rc; exit 0;