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.sort.t
View File

@@ -38,16 +38,16 @@ if (open my $fh, '>', 'bug_sort.rc')
ok (-r 'bug_sort.rc', 'Created bug_sort.rc');
}
my $setup = "../src/task rc:bug_sort.rc add one;"
. "../src/task rc:bug_sort.rc add two;"
. "../src/task rc:bug_sort.rc add three recur:daily due:eom;";
my $setup = "../src/task rc:bug_sort.rc add one 2>&1;"
. "../src/task rc:bug_sort.rc add two 2>&1;"
. "../src/task rc:bug_sort.rc add three recur:daily due:eom 2>&1;";
qx{$setup};
my $output = qx{../src/task rc:bug_sort.rc list};
my $output = qx{../src/task rc:bug_sort.rc list 2>&1};
like ($output, qr/three.*(?:one.*two|two.*one)/msi, 'list did not hang');
qx{../src/task rc:bug_sort.rc 1 modify priority:H};
$output = qx{../src/task rc:bug_sort.rc list};
qx{../src/task rc:bug_sort.rc 1 modify priority:H 2>&1};
$output = qx{../src/task rc:bug_sort.rc list 2>&1};
like ($output, qr/three.*one.*two/msi, 'list did not hang after pri:H on 1');
# Cleanup.