1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
# ==== Purpose ====
#
# To check if specified plugins exist in the same dir;
#
# ==== Usage ====
#
# --let plugins= MYSQLXPLUGIN,KEYRING_PLUGIN
# --source include/check_plugin_dir.inc
#
# parameters :
# plugins
# plugins list separated by comma (ENV variable).
#
--perl
# Copies the plugins list from the env variable set in the test.
my $plugins= $ENV{'plugins'};
# Splitting plugins and assigning into a plugin_list array
@plugin_list= split(',',$plugins);
# Check if no plugins are specified.
die "[ERROR]: No plugin specified\n" if (!@plugin_list);
# Getting the plugin directories from the Environment variables.
for my $plugin (@plugin_list) {
$plugin=~ s/^\s+|\s+$//g;
my $plugin_dir= $plugin."_DIR";
if (!$ENV{"$plugin"}) {
die "[ERROR]: Plugin requires the environment variable \$$plugin".
" to be set (normally done by mtr)\n";
}
if (!($plugin_dir= $ENV{"$plugin_dir"})) {
die "[ERROR]: Plugin directory for \'$plugin\' is not set\n";
}
$plugin=$plugin_dir;
}
# assigning the first plugin directory as the default directory to compare with
# all other plugins
my $default_dir= shift(@plugin_list);
die "[ERROR]: Plugin path not found\n" if(!$default_dir);
# File to write the skip status variable so that it can be used in the test.
open(SKIP,">$ENV{MYSQL_TMP_DIR}/skip_status.txt");
# Compare the plugin paths of all the plugins are same
# set $skip variable if the test has to be skipped
if(@plugin_list != grep { $_ eq $default_dir } @plugin_list)
{
print SKIP "--let \$skip= 1";
}
# close the file handler.
close(SKIP);
EOF
--let $skip= 0
--source $MYSQL_TMP_DIR/skip_status.txt
--remove_file $MYSQL_TMP_DIR/skip_status.txt
if ($skip) {
--skip Plugins present in different folders
}
|
