File: perror-win.test

package info (click to toggle)
percona-xtrabackup 2.2.3-2.1
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 293,260 kB
  • ctags: 146,881
  • sloc: cpp: 1,051,960; ansic: 570,217; java: 54,595; perl: 53,495; pascal: 44,194; sh: 27,826; yacc: 15,314; python: 12,142; xml: 7,848; sql: 4,125; makefile: 1,459; awk: 785; lex: 758
file content (40 lines) | stat: -rw-r--r-- 915 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
34
35
36
37
38
39
40
 
# Windows-specific tests
--source include/windows.inc
--require r/have_perror.require

########################################################
############# Skip if Non-English Windows

perl;
open(FILE, ">", "$ENV{MYSQL_TMP_DIR}/perror_syslocale.inc") or die $!;

if(`systeminfo /FO LIST | findstr /C:"System Locale"` =~ m/en-us/)
 {print FILE "let \$non_eng_sys= 0;\n";}
else
 {print FILE "let \$non_eng_sys= 1;\n";}
 
close FILE;
EOF

source $MYSQL_TMP_DIR/perror_syslocale.inc;
remove_file $MYSQL_TMP_DIR/perror_syslocale.inc;

if ($non_eng_sys)
{
  skip Need an English Windows Installation;
}

############# Skip if Non-English Windows
########################################################

disable_query_log;
eval select LENGTH("$MY_PERROR") > 0 as "have_perror";
enable_query_log;


--exec $MY_PERROR 150 2>&1
--exec $MY_PERROR 23 2>&1
--exec $MY_PERROR 1062 2>&1
--error 1
--exec $MY_PERROR 30000 2>&1