mirror of
https://github.com/MariaDB/server.git
synced 2025-10-31 02:46:29 +01:00
37c88445e3
On FreeBSD, perl isn't in /usr/bin, its in /usr/local/bin or
elsewhere in the path.
Like storage/{maria/unittest/,}ma_test_* , we use /usr/bin/env to
find perl and run it.
114 lines
2.7 KiB
Perl
Executable file
114 lines
2.7 KiB
Perl
Executable file
#!/usr/bin/env perl
|
|
# -*- cperl -*-
|
|
|
|
# Copyright (c) 2007 MySQL AB, 2009 Sun Microsystems, Inc.
|
|
# Use is subject to license terms.
|
|
#
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; version 2 of the License.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program; if not, write to the Free Software
|
|
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1335 USA
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use File::Temp qw / tempdir /;
|
|
my $dir = tempdir( CLEANUP => 1 );
|
|
|
|
use Test::More qw(no_plan);
|
|
|
|
BEGIN { use_ok ( "My::ConfigFactory" ) };
|
|
|
|
my $gen1_cnf= "$dir/gen1.cnf";
|
|
open(OUT, ">", $gen1_cnf) or die;
|
|
|
|
print OUT <<EOF
|
|
[mysqld.master]
|
|
# Comment
|
|
option1=value1
|
|
basedir=abasedir
|
|
|
|
[mysqld.1]
|
|
# Comment
|
|
option1=value1
|
|
option2=value2
|
|
|
|
[ENV]
|
|
MASTER_MY_PORT=\@mysqld.master.port
|
|
|
|
EOF
|
|
;
|
|
close OUT;
|
|
|
|
my $basedir= "../..";
|
|
|
|
my $config= My::ConfigFactory->new_config
|
|
(
|
|
{
|
|
basedir => $basedir,
|
|
template_path => $gen1_cnf,
|
|
vardir => "/path/to/var",
|
|
baseport => 10987,
|
|
#hosts => [ 'host1', 'host2' ],
|
|
}
|
|
);
|
|
|
|
print $config;
|
|
|
|
ok ( $config->group("mysqld.master"), "group mysqld.master exists");
|
|
ok ( $config->group("mysqld.1"), "group mysqld.1 exists");
|
|
ok ( $config->group("client"), "group client exists");
|
|
ok ( !$config->group("mysqld.3"), "group mysqld.3 does not exist");
|
|
|
|
ok ( $config->first_like("mysqld"), "group like 'mysqld' exists");
|
|
|
|
is( $config->value('mysqld.1', '#host'), 'localhost',
|
|
"mysqld.1.#host has been generated");
|
|
|
|
is( $config->value('client', 'host'), 'localhost',
|
|
"client.host has been generated");
|
|
|
|
is( $config->value('client', 'host'),
|
|
$config->value('mysqld.master', '#host'),
|
|
"client.host is same as mysqld.master.host");
|
|
|
|
ok ( $config->value("mysqld.1", 'character-sets-dir') =~ /$basedir.*charsets$/,
|
|
"'character-sets-dir' generated");
|
|
|
|
ok ( $config->value("mysqld.1", 'lc-messages-dir') =~ /$basedir.*share$/,
|
|
"'lc-messages-dir' generated");
|
|
|
|
ok ( $config->value("ENV", 'MASTER_MY_PORT') =~ /\d/,
|
|
"'lc-messages-dir' generated");
|
|
|
|
my $gen2_cnf= "$dir/gen2.cnf";
|
|
open(OUT, ">", $gen2_cnf) or die;
|
|
|
|
print OUT <<EOF
|
|
[mysqld.master]
|
|
EOF
|
|
;
|
|
close OUT;
|
|
|
|
my $config2= My::ConfigFactory->new_config
|
|
(
|
|
{
|
|
basedir => $basedir,
|
|
template_path => $gen2_cnf,
|
|
vardir => "/path/to/var",
|
|
baseport => 10987,
|
|
#hosts => [ 'host1', 'host2' ],
|
|
}
|
|
);
|
|
|
|
print $config2;
|
|
|
|
ok ( $config2->first_like("mysqld"), "group like 'mysqld' exists");
|