Unit Tests

- Updated tests to be explicit about plain args being search terms.
This commit is contained in:
Paul Beckingham 2014-05-26 23:44:09 -04:00
parent f9d534939d
commit 0664cb5689

View file

@ -43,9 +43,9 @@ if (open my $fh, '>', 'exit.rc')
} }
qx{../src/task rc:exit.rc add foo 2>&1}; qx{../src/task rc:exit.rc add foo 2>&1};
my $exit_good = system ('../src/task rc:exit.rc ls foo >/dev/null 2>&1'); my $exit_good = system ('../src/task rc:exit.rc ls /foo/ >/dev/null 2>&1');
is ($exit_good, 0, 'task returns 0 on success'); is ($exit_good, 0, 'task returns 0 on success');
my $exit_bad = system ('../src/task rc:exit.rc ls bar >/dev/null 2>&1'); my $exit_bad = system ('../src/task rc:exit.rc ls /bar/ >/dev/null 2>&1');
isnt ($exit_bad, 0, 'task returns non-zero on failure'); isnt ($exit_bad, 0, 'task returns non-zero on failure');
# Cleanup. # Cleanup.