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";
}
else {
plan tests => 3;
plan tests => 4;
}
my $output = "";
@@ -57,6 +57,16 @@ cmp_ok(
"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.
# #############################################################################