Variant

- The partial match operator now expects length(left) > length(right).

test/bug.656.t

@@ -50,10 +50,8 @@ qx{../src/task rc:bug.rc add Second recurring task due:tomorrow rec:daily 2>&1};
 
 # Bug describes that each time task is executed, another child task of the
 # Second recurring task is created.
-
 qx{../src/task rc:bug.rc ls 2>&1};
 
-
 # Result: Check for an extra task the second time task ls is executed
 my $output = qx{../src/task rc:bug.rc ls 2>&1};
 like   ($output, qr/^2 tasks$/ms, '2 tasks shown.');

test/subproject.t

@@ -63,7 +63,7 @@ $output = qx{../src/task rc:sp.rc list project:abc 2>&1};
 like ($output, qr/\babc\s/m, 'abc,ab,a,b | a -> abc');
 
 $output = qx{../src/task rc:sp.rc list project:abcd 2>&1 >/dev/null};
-like ($output, qr/No matches./, 'abc,ab,a,b | abcd -> nul');
+like ($output, qr/No matches\./, 'abc,ab,a,b | abcd -> nul');
 
 # Cleanup.
 unlink qw(pending.data completed.data undo.data backlog.data sp.rc);