1# -*- cperl -*- 2 3# Copyright (c) 2007 MySQL AB 4# Use is subject to license terms. 5# 6# This program is free software; you can redistribute it and/or modify 7# it under the terms of the GNU General Public License as published by 8# the Free Software Foundation; version 2 of the License. 9# 10# This program is distributed in the hope that it will be useful, 11# but WITHOUT ANY WARRANTY; without even the implied warranty of 12# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13# GNU General Public License for more details. 14# 15# You should have received a copy of the GNU General Public License 16# along with this program; if not, write to the Free Software 17# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1335 USA 18 19use Test::More qw(no_plan); 20use strict; 21 22use_ok ("My::Find"); 23my $basedir= "../.."; 24 25print "=" x 40, "\n"; 26my $mysqld_exe= my_find_bin($basedir, 27 ["sql", "bin"], 28 ["mysqld", "mysqld-debug"]); 29print "mysqld_exe: $mysqld_exe\n"; 30print "=" x 40, "\n"; 31my $mysql_exe= my_find_bin($basedir, 32 ["client", "bin"], 33 "mysql"); 34print "mysql_exe: $mysql_exe\n"; 35print "=" x 40, "\n"; 36 37my $mtr_build_dir= $ENV{MTR_BUILD_DIR}; 38$ENV{MTR_BUILD_DIR}= "debug"; 39my $mysql_exe= my_find_bin($basedir, 40 ["client", "bin"], 41 "mysql"); 42print "mysql_exe: $mysql_exe\n"; 43$ENV{MTR_BUILD_DIR}= $mtr_build_dir; 44print "=" x 40, "\n"; 45 46my $charset_dir= my_find_dir($basedir, 47 ["share/mysql", "sql/share", "share"], 48 "charsets"); 49print "charset_dir: $charset_dir\n"; 50print "=" x 40, "\n"; 51