GothenburgBitFactory/taskwarrior
1
0
Fork 0
mirror of https://github.com/GothenburgBitFactory/taskwarrior.git synced 2025-06-26 10:54:26 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Unit Tests

Browse source 
- Modified testing to accomodate new split between stdout/stderr.
This commit is contained in:
Paul Beckingham 2012-07-03 15:43:19 -04:00
parent 75822eed47
commit da575c4043
185 changed files with 1591 additions and 1591 deletions
Download patch file Download diff file Expand all files Collapse all files

40
test/start.t
View file

@ -39,30 +39,30 @@ if (open my $fh, '>', 'start.rc')
}
# Test the add/start/stop commands.
qx{../src/task rc:start.rc add one};
qx{../src/task rc:start.rc add two};
my $output = qx{../src/task rc:start.rc active};
qx{../src/task rc:start.rc add one 2>&1};
qx{../src/task rc:start.rc add two 2>&1};
my $output = qx{../src/task rc:start.rc active 2>&1};
unlike ($output, qr/one/, 'one not active');
unlike ($output, qr/two/, 'two not active');
qx{../src/task rc:start.rc 1 start};
qx{../src/task rc:start.rc 2 start};
$output = qx{../src/task rc:start.rc active};
qx{../src/task rc:start.rc 1 start 2>&1};
qx{../src/task rc:start.rc 2 start 2>&1};
$output = qx{../src/task rc:start.rc active 2>&1};
like ($output, qr/one/, 'one active');
like ($output, qr/two/, 'two active');
qx{../src/task rc:start.rc 1 stop};
$output = qx{../src/task rc:start.rc active};
qx{../src/task rc:start.rc 1 stop 2>&1};
$output = qx{../src/task rc:start.rc active 2>&1};
unlike ($output, qr/one/, 'one not active');
like ($output, qr/two/, 'two active');
qx{../src/task rc:start.rc 2 stop};
$output = qx{../src/task rc:start.rc active};
qx{../src/task rc:start.rc 2 stop 2>&1};
$output = qx{../src/task rc:start.rc active 2>&1};
unlike ($output, qr/one/, 'one not active');
unlike ($output, qr/two/, 'two not active');
qx{../src/task rc:start.rc 2 done};
$output = qx{../src/task rc:start.rc list};
qx{../src/task rc:start.rc 2 done 2>&1};
$output = qx{../src/task rc:start.rc list 2>&1};
unlike ($output, qr/two/, 'two deleted');
# Create the rc file.
@ -74,12 +74,12 @@ if (open my $fh, '>', 'start2.rc')
ok (-r 'start2.rc', 'Created start2.rc');
}
qx{../src/task rc:start2.rc 1 start};
$output = qx{../src/task rc:start2.rc list};
qx{../src/task rc:start2.rc 1 start 2>&1};
$output = qx{../src/task rc:start2.rc list 2>&1};
like ($output, qr/Started task/, 'one start and annotated');
qx{../src/task rc:start2.rc 1 stop};
$output = qx{../src/task rc:start2.rc list};
qx{../src/task rc:start2.rc 1 stop 2>&1};
$output = qx{../src/task rc:start2.rc list 2>&1};
like ($output, qr/Stopped task/, 'one stopped and annotated');
# Create the rc file.
@ -93,12 +93,12 @@ if (open my $fh, '>', 'start3.rc')
ok (-r 'start3.rc', 'Created start3.rc');
}
qx{../src/task rc:start3.rc 1 start};
$output = qx{../src/task rc:start3.rc list};
qx{../src/task rc:start3.rc 1 start 2>&1};
$output = qx{../src/task rc:start3.rc list 2>&1};
like ($output, qr/Nu.+kör.+vi/ms, 'one start and annotated with custom description');
qx{../src/task rc:start3.rc 1 stop};
$output = qx{../src/task rc:start3.rc list};
qx{../src/task rc:start3.rc 1 stop 2>&1};
$output = qx{../src/task rc:start3.rc list 2>&1};
like ($output, qr/Nu.+stannar.+vi/ms, 'one stopped and annotated with custom description');
# Cleanup.