gergely/taskwarrior-2.x
1
0
Fork 0
Code Issues Actions Packages Projects Releases 1 Wiki Activity

Test: calc.t now tests usage and version

Browse Source
This commit is contained in:
Paul Beckingham
2015-07-17 14:10:32 -04:00
parent 795b11c9c9
commit f71e03ab06
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
test/calc.t
View File

@@ -27,7 +27,7 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 19; use Test::More tests => 23;
# '15min' is seen as '15', 'min', not '15min' duration. # '15min' is seen as '15', 'min', not '15min' duration.
my $output = qx{../src/calc --debug '12 * 3600 + 34 * 60 + 56'}; my $output = qx{../src/calc --debug '12 * 3600 + 34 * 60 + 56'};
@@ -55,5 +55,13 @@ like ($output, qr/Eval literal number ↑'2'/ms, 'Number 3');
like ($output, qr/^5$/ms, 'Result 5'); like ($output, qr/^5$/ms, 'Result 5');
unlike ($output, qr/Error/, 'No errors'); unlike ($output, qr/Error/, 'No errors');
$output = qx{../src/calc --help};
like ($output, qr/Usage:/, '--help shows usage');
like ($output, qr/Options:/, '--help shows options');
$output = qx{../src/calc --version};
like ($output, qr/calc \d\.\d+\.\d+/, '--version shows version');
like ($output, qr/Copyright/, '--version shows Copyright');
exit 0; exit 0;