From f71e03ab06dc7aaa8c2a345f46b0647c7e4d0378 Mon Sep 17 00:00:00 2001 From: Paul Beckingham Date: Fri, 17 Jul 2015 14:10:32 -0400 Subject: [PATCH] Test: calc.t now tests usage and version --- test/calc.t | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/test/calc.t b/test/calc.t index ad2b9e7b4..688ef1eed 100755 --- a/test/calc.t +++ b/test/calc.t @@ -27,7 +27,7 @@ use strict; use warnings; -use Test::More tests => 19; +use Test::More tests => 23; # '15min' is seen as '15', 'min', not '15min' duration. 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'); 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;