#!/usr/bin/perl -w use Test::Command tests => 36; for my $arg (qw(i b B c C H i O p Q r t)) { my $cmd = Test::Command->new(cmd => "fping -$arg xxx"); $cmd->exit_is_num(1); $cmd->stdout_is_eq(""); $cmd->stderr_like(qr{Usage:}); }