percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2026-04-17 01:01:39 +08:00
Code Issues Packages Projects Releases Wiki Activity

Add forked Maatkit tools in bin/ and their tests in t/.

Browse Source
This commit is contained in:
Daniel Nichter
2011-06-24 16:02:05 -06:00
parent 6c501128e6
commit b4b6376be1
679 changed files with 177876 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
t/pt-tcp-model/analyses.t Normal file
View File

@@ -0,0 +1,39 @@
#!/usr/bin/env perl
BEGIN {
die "The PERCONA_TOOLKIT_BRANCH environment variable is not set.\n"
unless $ENV{PERCONA_TOOLKIT_BRANCH} && -d $ENV{PERCONA_TOOLKIT_BRANCH};
unshift @INC, "$ENV{PERCONA_TOOLKIT_BRANCH}/lib";
};
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Test::More tests => 1;
use MaatkitTest;
shift @INC; # our unshift (above)
shift @INC; # MaatkitTest's unshift
require "$trunk/bin/pt-tcp-model";
my @args = qw();
my $in = "$trunk/t/lib/samples/simple-tcpdump/";
my $out = "t/pt-tcp-model/samples/out/";
my $output = '';
# ############################################################################
# Basic queries that parse without problems.
# ############################################################################
ok(
no_diff(
sub { mk_tcp_model::main(@args, "$in/simpletcp001.txt") },
"$out/simpletcp001.txt",
),
'Analysis for simpletcp001.txt'
);
# #############################################################################
# Done.
# #############################################################################
exit;

3
t/pt-tcp-model/samples/out/simpletcp001.txt Normal file
View File

@@ -0,0 +1,3 @@
0 1301965063.804195 1301965063.804465 0.000270 10.10.18.253:58297
1 1301965063.805481 1301965063.806026 0.000545 10.10.18.253:40135
2 1301965063.805801 1301965063.806003 0.000202 10.10.18.253:52726