Test pt-ioprofile short op.

This commit is contained in:
Daniel Nichter
2012-02-03 10:56:03 -07:00
parent 0ac6c35211
commit 02319204bf

View File

@@ -24,7 +24,7 @@ if ( !$dbh ) {
plan skip_all => "Cannot connect to master sandbox"; plan skip_all => "Cannot connect to master sandbox";
} }
else { else {
plan tests => 3; plan tests => 4;
} }
my $output = ""; my $output = "";
@@ -57,6 +57,16 @@ cmp_ok(
"Runs for --run-time" "Runs for --run-time"
); );
# #############################################################################
# Short options.
# #############################################################################
$output = `$trunk/bin/pt-ioprofile --run-time 2 --b theprocname 2>&1`;
like(
$output,
qr/Cannot determine PID of theprocname process/,
"Short option -b (--profile-process)"
);
# ############################################################################# # #############################################################################
# Done. # Done.
# ############################################################################# # #############################################################################