|
|
|
|
@@ -48,65 +48,65 @@ if (open my $fh, '>', $rc)
|
|
|
|
|
|
|
|
|
|
# Should not fail (because they are correct):
|
|
|
|
|
my $output = qx{../src/task rc:$rc cal 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal");
|
|
|
|
|
|
|
|
|
|
# y due 2010 donkey 8
|
|
|
|
|
$output = qx{../src/task rc:$rc cal y 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal y");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal y");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal 8 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal 8");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal 8");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal due 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal due");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal due");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal 2010 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal 2010");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal 2010");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal donkey 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal donkey");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal donkey");
|
|
|
|
|
|
|
|
|
|
# y due 2010 donkey 8
|
|
|
|
|
$output = qx{../src/task rc:$rc cal y due 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal y due");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal y due");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal y 8 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal y 8");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal y 8");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal y 2010 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal y 2010");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal y 2010");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal y donkey 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal y donkey");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal y donkey");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal 8 due 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal 8 due");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal 8 due");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal 8 2010 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal 8 2010");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal 8 2010");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal 8 donkey 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal 8 donkey");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal 8 donkey");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal due 2010 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal due 2010");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal due 2010");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal due donkey 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal due donkey");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal due donkey");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal 2010 donkey 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal 2010 donkey");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal 2010 donkey");
|
|
|
|
|
|
|
|
|
|
# y 8 due 2010 donkey
|
|
|
|
|
$output = qx{../src/task rc:$rc cal y 8 due 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal y 8 due");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal y 8 due");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal y 8 2010 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal y 8 2010");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal y 8 2010");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal y 8 donkey 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal y 8 donkey");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal y 8 donkey");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal y due 2010 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal y due 2010");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal y due 2010");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal y due donkey 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal y due donkey");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal y due donkey");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal y 2010 donkey 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal y 2010 donkey");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal y 2010 donkey");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal 8 due 2010 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal 8 due 2010");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal 8 due 2010");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal 8 due donkey 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal 8 due donkey");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal 8 due donkey");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal 8 2010 donkey 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal 8 2010 donkey");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal 8 2010 donkey");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal due 2010 8 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal due 2010 8");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal due 2010 8");
|
|
|
|
|
$output = qx{../src/task rc:$rc cal due 2010 donkey 2>&1};
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, "$ut: cal due 2010 donkey");
|
|
|
|
|
unlike ($output, qr/(?:Assertion failed|Could not recognize|not a valid)/, "$ut: cal due 2010 donkey");
|
|
|
|
|
|
|
|
|
|
# Cleanup.
|
|
|
|
|
unlink qw(pending.data completed.data undo.data backlog.data), $rc;
|
|
|
|
|
|