File: suite.pm

package info (click to toggle)
mariadb-10.5 1%3A10.5.23-0%2Bdeb11u1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 712,240 kB
  • sloc: ansic: 2,158,658; cpp: 1,843,101; asm: 297,745; perl: 59,967; sh: 53,869; pascal: 38,348; java: 33,919; yacc: 19,639; python: 11,119; xml: 10,126; sql: 10,027; ruby: 8,544; makefile: 6,343; cs: 2,866; lex: 1,205; javascript: 1,037; objc: 80; tcl: 73; awk: 46; php: 22; sed: 16
file content (33 lines) | stat: -rw-r--r-- 924 bytes parent folder | download 
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
 
package My::Suite::Plugins;

use My::Platform;

@ISA = qw(My::Suite);

if (-d '../sql' && !&::using_extern()) {
  my $src = "$::bindir/plugin/auth_pam/auth_pam_tool";
  my $dst = "$::plugindir/auth_pam_tool_dir/auth_pam_tool";
  ::mkpath( "$::plugindir/auth_pam_tool_dir");
  eval { symlink $src, $dst } or ::copy $src, $dst;
}

sub cassandra_running() { 
  return 0 if IS_WINDOWS; 
  system 'echo show version | cqlsh -3 2>/dev/null >/dev/null'; 
  return $? == 0; 
} 

sub skip_combinations {
  my %skip;
  $skip{'t/pam_init.inc'} = 'No pam setup for mtr'
             unless -e '/etc/pam.d/mariadb_mtr';
  $skip{'t/pam_init.inc'} = 'Not run as user owning auth_pam_tool_dir'
             unless -o $::plugindir . '/auth_pam_tool_dir';
  $skip{'t/cassandra.test'} = 'Cassandra is not running'
             unless cassandra_running();
  $skip{'t/cassandra_qcache.test'} = $skip{'t/cassandra.test'};
  %skip;
}

bless { };