From: Simon Ruderich Date: Fri, 11 May 2012 13:30:04 +0000 (+0200) Subject: t: Add a few more tests. X-Git-Tag: 0.03~10 X-Git-Url: https://ruderich.org/simon/gitweb/?a=commitdiff_plain;h=9395672628a14a9064e0b049fbc0aa6f83544fb0;p=blhc%2Fblhc.git t: Add a few more tests. --- diff --git a/t/tests.t b/t/tests.t index 0641e45..d41fad9 100644 --- a/t/tests.t +++ b/t/tests.t @@ -19,7 +19,7 @@ use strict; use warnings; -use Test::More tests => 182; +use Test::More tests => 190; sub is_blhc { @@ -38,7 +38,11 @@ sub is_blhc { $options = ' '. $options; } is $? >> 8, $exit, "$file$options (exit code)"; - is $output, $expected, "$file$options (output)"; + # Perform regex or string match. + my $cmd = (ref $expected eq 'Regexp') + ? \&like + : \&is; + &$cmd($output, $expected, "$file$options (output)"); } @@ -73,6 +77,16 @@ You should have received a copy of the GNU General Public License along with this program. If not, see . '; +is_blhc '', '--help', 1, + qr/^Usage: + blhc \[\*options\*\] \*\.\.\* + +Options: +/s; + +is_blhc 'doesnt-exist', '', 2, + qr{^No such file or directory at \./bin/blhc line \d+\.$}; + # No compiler commands found. @@ -114,6 +128,12 @@ is_blhc 'ignore-flag', '--ignore-arch-flag -g:', 2, Usage: blhc [*options*] *..* +'; +is_blhc 'ignore-flag', '--ignore-arch-flag :amd64', 2, + 'Value ":amd64" invalid for option ignore-arch-flag ("arch:flag" expected) +Usage: + blhc [*options*] *..* + '; # Wrong architecture. @@ -171,6 +191,12 @@ is_blhc 'ignore-line', '--ignore-arch-line .+:', 2, Usage: blhc [*options*] *..* +'; +is_blhc 'ignore-line', '--ignore-arch-line :amd64', 2, + 'Value ":amd64" invalid for option ignore-arch-line ("arch:line" expected) +Usage: + blhc [*options*] *..* + '; # Wrong architecture.