← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to tests/lib/dtr_gcov.pl

  • Committer: Vijay Samuel
  • Date: 2010-09-10 21:03:37 UTC
  • mto: (1757.1.2 build)
  • mto: This revision was merged to the branch mainline in revision 1758.
  • Revision ID: vijay@vijay-20100910210337-rf7c2ymawtqj6tkv
Merge added utf 8 tamil test case suite and test case for creating a database in tamil.

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/lib/dtr_gcov.pl
1
 
# -*- cperl -*-
2
 
# Copyright (C) 2004, 2006 MySQL AB
3
 
# 
4
 
# This program is free software; you can redistribute it and/or modify
5
 
# it under the terms of the GNU General Public License as published by
6
 
# the Free Software Foundation; version 2 of the License.
7
 
# 
8
 
# This program is distributed in the hope that it will be useful,
9
 
# but WITHOUT ANY WARRANTY; without even the implied warranty of
10
 
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
11
 
# GNU General Public License for more details.
12
 
# 
13
 
# You should have received a copy of the GNU General Public License
14
 
# along with this program; if not, write to the Free Software
15
 
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
16
 
 
17
 
# This is a library file used by the Perl version of drizzle-test-run,
18
 
# and is part of the translation of the Bourne shell script with the
19
 
# same name.
20
 
 
21
 
use strict;
22
 
 
23
 
# These are not to be prefixed with "dtr_"
24
 
 
25
 
sub gcov_prepare ();
26
 
sub gcov_collect ();
27
 
 
28
 
##############################################################################
29
 
#
30
 
#  
31
 
#
32
 
##############################################################################
33
 
 
34
 
sub gcov_prepare () {
35
 
 
36
 
  `find $::glob_basedir -name \*.gcov \
37
 
    -or -name \*.da | xargs rm`;
38
 
}
39
 
 
40
 
# Used by gcov
41
 
our @drizzled_src_dirs=
42
 
  (
43
 
   "strings",
44
 
   "mysys",
45
 
   "include",
46
 
   "extra",
47
 
   "regex",
48
 
   "isam",
49
 
   "merge",
50
 
   "myisam",
51
 
   "myisammrg",
52
 
   "MEMORY",
53
 
   "sql",
54
 
  );
55
 
 
56
 
sub gcov_collect () {
57
 
 
58
 
  print "Collecting source coverage info...\n";
59
 
  -f $::opt_gcov_msg and unlink($::opt_gcov_msg);
60
 
  -f $::opt_gcov_err and unlink($::opt_gcov_err);
61
 
  foreach my $d ( @drizzled_src_dirs )
62
 
  {
63
 
    chdir("$::glob_basedir/$d");
64
 
    foreach my $f ( (glob("*.h"), glob("*.cc"), glob("*.c")) )
65
 
    {
66
 
      `$::opt_gcov $f 2>>$::opt_gcov_err  >>$::opt_gcov_msg`;
67
 
    }
68
 
    chdir($::glob_drizzle_test_dir);
69
 
  }
70
 
  print "gcov info in $::opt_gcov_msg, errors in $::opt_gcov_err\n";
71
 
}
72
 
 
73
 
 
74
 
1;