percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-26 23:45:44 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix scrolling header for --group-by=all.

Browse Source
This commit is contained in:
Daniel Nichter
2012-05-10 14:06:52 -07:00
parent 7fc8a3e989
commit 5a77e8c09c
9 changed files with 43 additions and 437 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
t/lib/Diskstats.t
View File

@@ -505,35 +505,38 @@ for my $test (
my $file = File::Spec->catfile( "t", "pt-diskstats", "samples", $filename );
my $file_with_trunk = File::Spec->catfile( $trunk, $file );
my $expected = load_file( File::Spec->catfile( "t", "pt-diskstats", "expected", "${prefix}_$filename" ) );
my $expected = "t/pt-diskstats/expected/${prefix}_$filename";
my $got = output(
sub {
$obj->group_by(
filename => $file_with_trunk,
);
});
is($got, $expected, "group_by $prefix: $filename via filename");
$got = output(
sub {
open my $fh, "<", $file_with_trunk or die $!;
$obj->group_by(
filehandle => $fh,
);
});
is($got, $expected, "group_by $prefix: $filename via filehandle");
$got = output(
sub {
$obj->group_by(
data => "TS 1298130002.073935000\n" . load_file( $file ),
);
});
is($got, $expected, "group_by $prefix: $filename with an extra TS at the top");
ok(
no_diff(
sub { $obj->group_by(filename => $file_with_trunk); },
$expected,
),
"group_by $prefix: $filename via filename"
);
ok(
no_diff(
sub {
open my $fh, "<", $file_with_trunk or die $!;
$obj->group_by(filehandle => $fh);
},
$expected,
),
"group_by $prefix: $filename via filehandle"
);
ok(
no_diff(
sub {
$obj->group_by(
data => "TS 1298130002.073935000\n" . load_file( $file ),
);
},
$expected,
),
"group_by $prefix: $filename with an extra TS at the top"
);
}
my $data = <<'EOF';