Unit Tests

- Test was looking for 'one', and found a false positive of 'none'.
This commit is contained in:
Paul Beckingham 2014-05-24 14:26:07 -04:00
parent 856e777004
commit 7558527823

View file

@ -50,15 +50,15 @@ sleep 1;
qx{../src/task rc:oldest.rc add three 2>&1}; qx{../src/task rc:oldest.rc add three 2>&1};
sleep 1; sleep 1;
my $output = qx{../src/task rc:oldest.rc oldest 2>&1}; my $output = qx{../src/task rc:oldest.rc oldest 2>&1};
like ($output, qr/one/, 'oldest: one'); like ($output, qr/ one/, 'oldest: one');
like ($output, qr/two/, 'oldest: two'); like ($output, qr/ two/, 'oldest: two');
like ($output, qr/three/, 'oldest: three'); like ($output, qr/ three/, 'oldest: three');
like ($output, qr/one.*two.*three/ms, 'oldest: sort'); like ($output, qr/one.*two.*three/ms, 'oldest: sort');
$output = qx{../src/task rc:oldest.rc newest 2>&1}; $output = qx{../src/task rc:oldest.rc newest 2>&1};
like ($output, qr/three/, 'newest: three'); like ($output, qr/ three/, 'newest: three');
like ($output, qr/two/, 'newest: two'); like ($output, qr/ two/, 'newest: two');
like ($output, qr/one/, 'newest: one'); like ($output, qr/ one/, 'newest: one');
like ($output, qr/three.*two.*one/ms, 'newest: sort'); like ($output, qr/three.*two.*one/ms, 'newest: sort');
qx{../src/task rc:oldest.rc add four 2>&1}; qx{../src/task rc:oldest.rc add four 2>&1};
@ -79,56 +79,56 @@ sleep 1;
qx{../src/task rc:oldest.rc add eleven 2>&1}; qx{../src/task rc:oldest.rc add eleven 2>&1};
$output = qx{../src/task rc:oldest.rc oldest limit:10 2>&1}; $output = qx{../src/task rc:oldest.rc oldest limit:10 2>&1};
like ($output, qr/one/, 'oldest: one'); # 10 like ($output, qr/ one/, 'oldest: one'); # 10
like ($output, qr/two/, 'oldest: two'); like ($output, qr/ two/, 'oldest: two');
like ($output, qr/three/, 'oldest: three'); like ($output, qr/ three/, 'oldest: three');
like ($output, qr/four/, 'oldest: four'); like ($output, qr/ four/, 'oldest: four');
like ($output, qr/five/, 'oldest: five'); like ($output, qr/ five/, 'oldest: five');
like ($output, qr/six/, 'oldest: six'); like ($output, qr/ six/, 'oldest: six');
like ($output, qr/seven/, 'oldest: seven'); like ($output, qr/ seven/, 'oldest: seven');
like ($output, qr/eight/, 'oldest: eight'); like ($output, qr/ eight/, 'oldest: eight');
like ($output, qr/nine/, 'oldest: nine'); like ($output, qr/ nine/, 'oldest: nine');
like ($output, qr/ten/, 'oldest: ten'); like ($output, qr/ ten/, 'oldest: ten');
unlike ($output, qr/eleven/, 'no: eleven'); # 20 unlike ($output, qr/ eleven/, 'no: eleven'); # 20
$output = qx{../src/task rc:oldest.rc oldest limit:3 2>&1}; $output = qx{../src/task rc:oldest.rc oldest limit:3 2>&1};
like ($output, qr/one/, 'oldest: one'); like ($output, qr/ one/, 'oldest: one');
like ($output, qr/two/, 'oldest: two'); like ($output, qr/ two/, 'oldest: two');
like ($output, qr/three/, 'oldest: three'); like ($output, qr/ three/, 'oldest: three');
unlike ($output, qr/four/, 'no: four'); unlike ($output, qr/ four/, 'no: four');
unlike ($output, qr/five/, 'no: five'); unlike ($output, qr/ five/, 'no: five');
unlike ($output, qr/six/, 'no: six'); unlike ($output, qr/ six/, 'no: six');
unlike ($output, qr/seven/, 'no: seven'); unlike ($output, qr/ seven/, 'no: seven');
unlike ($output, qr/eight/, 'no: eight'); unlike ($output, qr/ eight/, 'no: eight');
unlike ($output, qr/nine/, 'no: nine'); unlike ($output, qr/ nine/, 'no: nine');
unlike ($output, qr/ten/, 'no: ten'); # 30 unlike ($output, qr/ ten/, 'no: ten'); # 30
unlike ($output, qr/eleven/, 'no: eleven'); unlike ($output, qr/ eleven/, 'no: eleven');
$output = qx{../src/task rc:oldest.rc newest limit:10 2>&1}; $output = qx{../src/task rc:oldest.rc newest limit:10 2>&1};
unlike ($output, qr/one/, 'no: one'); unlike ($output, qr/ one/, 'no: one');
like ($output, qr/two/, 'newest: two'); like ($output, qr/ two/, 'newest: two');
like ($output, qr/three/, 'newest: three'); like ($output, qr/ three/, 'newest: three');
like ($output, qr/four/, 'newest: four'); like ($output, qr/ four/, 'newest: four');
like ($output, qr/five/, 'newest: five'); like ($output, qr/ five/, 'newest: five');
like ($output, qr/six/, 'newest: six'); like ($output, qr/ six/, 'newest: six');
like ($output, qr/seven/, 'newest: seven'); like ($output, qr/ seven/, 'newest: seven');
like ($output, qr/eight/, 'newest: eight'); like ($output, qr/ eight/, 'newest: eight');
like ($output, qr/nine/, 'newest: nine'); # 40 like ($output, qr/ nine/, 'newest: nine'); # 40
like ($output, qr/ten/, 'newest: ten'); like ($output, qr/ ten/, 'newest: ten');
like ($output, qr/eleven/, 'newest: eleven'); like ($output, qr/ eleven/, 'newest: eleven');
$output = qx{../src/task rc:oldest.rc newest limit:3 2>&1}; $output = qx{../src/task rc:oldest.rc newest limit:3 2>&1};
unlike ($output, qr/one/, 'no: one'); unlike ($output, qr/ one/, 'no: one');
unlike ($output, qr/two/, 'no: two'); unlike ($output, qr/ two/, 'no: two');
unlike ($output, qr/three/, 'no: three'); unlike ($output, qr/ three/, 'no: three');
unlike ($output, qr/four/, 'no: four'); unlike ($output, qr/ four/, 'no: four');
unlike ($output, qr/five/, 'no: five'); unlike ($output, qr/ five/, 'no: five');
unlike ($output, qr/six/, 'no: six'); unlike ($output, qr/ six/, 'no: six');
unlike ($output, qr/seven/, 'no: seven'); unlike ($output, qr/ seven/, 'no: seven');
unlike ($output, qr/eight/, 'no: eight'); # 50 unlike ($output, qr/ eight/, 'no: eight'); # 50
like ($output, qr/nine/, 'newest: nine'); like ($output, qr/ nine/, 'newest: nine');
like ($output, qr/ten/, 'newest: ten'); like ($output, qr/ ten/, 'newest: ten');
like ($output, qr/eleven/, 'newest: eleven'); like ($output, qr/ eleven/, 'newest: eleven');
# Cleanup. # Cleanup.
unlink qw(pending.data completed.data undo.data backlog.data oldest.rc); unlink qw(pending.data completed.data undo.data backlog.data oldest.rc);