gergely/taskwarrior-2.x
1
0
Fork 0
Code Issues Actions Packages Projects Releases 1 Wiki Activity

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

12
test/bug.440.t
View File

@@ -44,14 +44,14 @@ if (open my $fh, '>', '440.rc')
# Create a task and attempt simultaneous subst and appends, both permutations
qx{../src/task rc:440.rc add Foo};
qx{../src/task rc:440.rc add Foo};
qx{../src/task rc:440.rc add Foo 2>&1};
qx{../src/task rc:440.rc add Foo 2>&1};
qx{../src/task rc:440.rc 1 append /Foo/Bar/ Appendtext};
qx{../src/task rc:440.rc 2 append Appendtext /Foo/Bar/};
qx{../src/task rc:440.rc 1 append /Foo/Bar/ Appendtext 2>&1};
qx{../src/task rc:440.rc 2 append Appendtext /Foo/Bar/ 2>&1};
my $output1 = qx{../src/task rc:440.rc 1 ls};
my $output2 = qx{../src/task rc:440.rc 2 ls};
my $output1 = qx{../src/task rc:440.rc 1 ls 2>&1};
my $output2 = qx{../src/task rc:440.rc 2 ls 2>&1};
unlike ($output1, qr/Foo/, 'simultaneous subst and append - subst');
like ($output1, qr/\w+ Appendtext/, 'simultaneous subst and append - append');