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