From 9395672628a14a9064e0b049fbc0aa6f83544fb0 Mon Sep 17 00:00:00 2001 From: Simon Ruderich Date: Fri, 11 May 2012 15:30:04 +0200 Subject: [PATCH] t: Add a few more tests. --- t/tests.t | 30 ++++++++++++++++++++++++++++-- 1 file changed, 28 insertions(+), 2 deletions(-) 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. -- 2.45.2