mtr_gcov.pl
上传用户:romrleung
上传日期:2022-05-23
资源大小:18897k
文件大小:1k
源码类别:

MySQL数据库

开发平台:

Visual C++

  1. # -*- cperl -*-
  2. # This is a library file used by the Perl version of mysql-test-run,
  3. # and is part of the translation of the Bourne shell script with the
  4. # same name.
  5. use strict;
  6. # These are not to be prefixed with "mtr_"
  7. sub gcov_prepare ();
  8. sub gcov_collect ();
  9. ##############################################################################
  10. #
  11. #  
  12. #
  13. ##############################################################################
  14. sub gcov_prepare () {
  15.   `find $::glob_basedir -name *.gcov 
  16.     -or -name *.da | xargs rm`;
  17. }
  18. sub gcov_collect () {
  19.   print "Collecting source coverage info...n";
  20.   -f $::opt_gcov_msg and unlink($::opt_gcov_msg);
  21.   -f $::opt_gcov_err and unlink($::opt_gcov_err);
  22.   foreach my $d ( @::mysqld_src_dirs )
  23.   {
  24.     chdir("$::glob_basedir/$d");
  25.     foreach my $f ( (glob("*.h"), glob("*.cc"), glob("*.c")) )
  26.     {
  27.       `$::opt_gcov $f 2>>$::opt_gcov_err  >>$::opt_gcov_msg`;
  28.     }
  29.     chdir($::glob_mysql_test_dir);
  30.   }
  31.   print "gcov info in $::opt_gcov_msg, errors in $::opt_gcov_errn";
  32. }
  33. 1;