Current File : //usr/share/mysql-test/include/vardir_size_check.inc
--echo Check the size of the vardir
--echo The output size is in unit blocks
perl;
#!/usr/local/cpanel/3rdparty/bin/perl
use warnings;
use strict;
use File::Find;
my $dir = $ENV{'MYSQLTEST_VARDIR'};
my $size = 0;
find( sub { $size += -f $_ ? -s _ : 0 }, $dir );
if ( $size < 1717987000 )
{ print "TRUE", "\n";}
else
{ print "FALSE $size", "\n";}
## Expected size for the VAR dir being changed for the PB2 runs
##if ( $size =~ /^496[\d]{5}$/ )
## {
## { print "TRUE", "\n";}
## }
##else
## { print "FALSE $size", "\n";}
EOF
Mini Shell