percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-11 05:29:30 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix tests broken by the previous commit

Browse Source
This commit is contained in:
Brian Fraser
2013-02-26 12:03:12 -03:00
parent 8e449a1c83
commit 934709abad
2 changed files with 5 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
t/lib/FileIterator.t
View File

@@ -47,11 +47,11 @@ is( "$fh", '*main::STDIN', 'Got STDIN for "-"' );
# #############################################################################
# Real filenames.
# #############################################################################
$next_fh = $fi->get_file_itr("$sample/memcached/memc_tcpdump009.txt", "$sample/empty");
$next_fh = $fi->get_file_itr("$sample/slowlogs/slow002.txt", "$sample/empty");
( $fh, $name, $size ) = $next_fh->();
is( ref $fh, 'GLOB', 'Open filehandle' );
is( $name, "$sample/memcached/memc_tcpdump009.txt", "Got filename for $name");
is( $size, 587, "Got size for $name");
is( $name, "$sample/slowlogs/slow002.txt", "Got filename for $name");
is( $size, 3841, "Got size for $name");
( $fh, $name, $size ) = $next_fh->();
is( $name, "$sample/empty", "Got filename for $name");
is( $size, 0, "Got size for $name");