开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > MySQL数据库 > 查看源码
mysql-test_V1.9.pl
资源名称：mysql-4.1.16-win-src.zip　[点击查看]
上传用户：romrleung
上传日期：2022-05-23
资源大小：18897k
文件大小：35k
源码类别：

MySQL数据库

开发平台：

Visual C++

mysql-test_V1.9.pl：源码内容
  1. #!/usr/bin/perl
  2. #
  3. # Tests MySQL. Output is given to the stderr. Use
  4. # diff to check the possible differencies.
  5. #
  7. use DBI;
  8. use Getopt::Long;
  10. $VER = "1.9";
  11. $| = 1;
  13. $opt_db =            "test";
  14. $opt_user =         $opt_password = $opt_without = "";
  15. $opt_host =         "localhost";
  16. $opt_port =          "3306";
  17. $opt_socket =      "/tmp/mysql.sock";
  18. $opt_help =          0;
  20. $NO_ERR  = 0;   # No error
  21. $EXP_ERR = 1;   # Expect error
  22. $MAY_ERR = 2;   # Maybe error
  23. $HS      = 0;   # Horizontal style of output
  24. $VS      = 1;   # Vertical style of output
  25. $VERBOSE = 0;   # Print the results
  26. $SILENT  = 1;   # No output
  28. @test_packages = ("FUNC", "PROC", "SHOW");
  30. ####
  31. #### main program
  32. ####
  34. main();
  36. sub main()
  37. {
  38.   GetOptions("help", "db=s", "port=i", "host=s", "password=s", "user=s", "socket=s", 
  39.       "without=s") || usage();
  41.   usage() if ($opt_help);
  43.   $dbh = DBI->connect("DBI:mysql:$opt_db:$opt_host:port=$opt_port:mysql_socket=$opt_socket", $opt_user, $opt_password, { PrintError => 0 }) 
  44.   || die $DBI::errstr;
  46. ## QQ ######################################
  48. $sth = $dbh->prepare("show felds from t2") 
  49. || die "Couldn't prepare query: $DBI::errstrn";
  50. if (!$sth->execute)
  51. {
  52.   print "Couldn't execute query: $DBI::errstrn";
  53.   $sth->finish;
  54.   die;
  55. }
  56. while (($row = $sth->fetchrow_arrayref))
  57. {
  58.   print "$row->[1]n";
  59. }
  62. exit(0);
  64. ## QQ ######################################
  66.   printf("####n#### THIS IS mysql-test script RUNNINGn");
  67.   printf("####      mysql-test version $VERn####n");
  69.   test_mysql_functions() if (&chk_package($opt_without, $test_packages[0]));
  70.   test_mysql_procedures() if (&chk_package($opt_without, $test_packages[1]));
  71.   test_mysql_show() if (&chk_package($opt_without, $test_packages[2]));
  73.   print "n";
  74.   return;
  75. }
  77. ####
  78. #### test show -command of MySQL
  79. ####
  81. sub test_mysql_show
  82. {
  83.   my ($query, $i);
  84.   
  85.   $query = create_show_tables();
  86.   &exec_query(["drop table my_t"], $MAY_ERR, $SILENT);
  87.   for ($i = 0; $query[$i]; $i++)
  88.   {
  89.     &exec_query([$query[$i]], $NO_ERR, $VERBOSE, $HS);
  90.     &exec_query(["show fields from my_t"], $NO_ERR, $VERBOSE, $HS);
  91.     &exec_query(["show keys from my_t"], $NO_ERR, $VERBOSE, $HS);
  92.     &exec_query(["drop table my_t"], $NO_ERR, $SILENT);
  93.   }
  94. }
  96. sub create_show_tables
  97. {
  98.   my ($query, $i);
  99.   
  100.   $query[0] = <<EOF;
  101. create table my_t (i int, f float, s char(64), b blob, t text)
  102. EOF
  103.   $query[1] = <<EOF;
  104. create table my_t (i int, f float, s char(64), b blob, t text, primary key (i))
  105. EOF
  106.   $query[2] = <<EOF;
  107. create table my_t (i int, f float, s char(64), b blob, t text, unique (i), unique(s))
  108. EOF
  109.   for ($i = 0; $query[$i]; $i++) { chop($query[$i]); }
  110.   return $query;
  111. }
  113. ####
  114. #### test procedures, currently only procedure analyze()
  115. ####
  117. sub test_mysql_procedures
  118. {
  119.   test_analyze();
  120. }
  122. sub test_analyze
  123. {
  124.   my ($query, $i, $j);
  125.   
  126.   if ($opt_help)
  127.   {
  128.     usage();
  129.   }
  130.   # invalid queries
  131.   &exec_query(["select * from mails procedure analyse(-1)"], 
  132.       $EXP_ERR, $VERBOSE, $HS);
  133.   &exec_query(["select * from mails procedure analyse(10, -1)"], 
  134.       $EXP_ERR, $VERBOSE, $HS);
  135.   &exec_query(["select * from mails procedure analyse(1, 2, 3)"],
  136.       $EXP_ERR, $VERBOSE, $HS);
  137.   &exec_query(["select * from mails procedure analyse(-10, 10)"],
  138.       $EXP_ERR, $VERBOSE, $HS);
  139.   &exec_query(["select * from mails procedure analyse('a', 'a')"],
  140.       $EXP_ERR, $VERBOSE, $HS);
  141.   # valid queries
  142. #  &exec_query(["select * from mails procedure analyse(10)"], 0, 0);
  143. #  &exec_query(["select * from mails procedure analyse(10, 10)"], 0, 0);
  144. #  &exec_query(["select hash from mails procedure analyse()"], 0, 0);
  145.   &exec_query(["use mysql_test"], $NO_ERR, $VERBOSE, $HS);
  146. #  &exec_query(["select timestamp from w32_user procedure analyse(0)"], 0, 0); 
  147.   $query = create_test_tables();
  148.   &exec_query(["drop table my_t"], $MAY_ERR, $SILENT);
  149.   for ($i = 0; $query[$i][0]; $i++)
  150.   {
  151.     &exec_query([$query[$i][0]], $NO_ERR, $SILENT); # create table
  152.     for ($j = 1; $query[$i][$j]; $j++)
  153.     {
  154.       &exec_query([$query[$i][$j]], $NO_ERR, $SILENT); # do inserts
  155.     }
  156.     &exec_query(["select * from my_t procedure analyse(0,0)"],
  157. $NO_ERR, $VERBOSE, $HS);
  158.     &exec_query(["select * from my_t procedure analyse()"],
  159. $NO_ERR, $VERBOSE, $HS);
  160.     &exec_query(["drop table my_t"], $NO_ERR, $SILENT);
  161.   }
  162. }
  164. ####
  165. #### if $opt is found as a part from the '--without=...' option string
  166. #### return 0, else 1. if zero is returned, then that part of MySQL
  167. #### won't be tested
  168. ####
  170. sub chk_package
  171. {
  172.   my ($opt_str, $opt) = @_;
  173.   
  174.   $sub_opt_str = '';
  175.   for ($i = 0, $ptr = substr($opt_str, $i, 1); $ptr || $ptr eq '0';
  176.        $i++, $ptr = substr($opt_str, $i, 1))
  177.   {
  178.     $sub_opt_str .= $ptr;
  179.     if ($sub_opt_str eq $opt)
  180.     {
  181.       $next_chr = substr($opt_str, ($i + 1), 1);
  182.       if ($next_chr eq ',' || (!$next_chr && $next_chr ne '0'))
  183.       {
  184. return 0;
  185.       }
  186.     }
  187.     if ($ptr eq ',')
  188.     {
  189.       # next word on the opt_str
  190.       $sub_opt_str = '';
  191.     }
  192.   }
  193.   return 1;
  194. }
  196. ####
  197. #### Tests given function(s) with given value(s) $count rounds
  198. #### If function doesn't have an arg, test it once and continue.
  199. #### ulargs (number of unlimited args) is the number of arguments 
  200. #### to be placed in place of '.' . '.' means that any number
  201. #### of the last argument type is possible to the function.
  202. #### If force is given, never mind about errors
  203. #### args: $func:   list of functions to be tested
  204. ####       $value:  list of values to be used with functions
  205. ####       $count:  number of times one function should be tested
  206. ####       $ulargs: number of unlimited args to be used when possible
  207. ####       $table_info: information about the table to be used, contains:
  208. ####       table name, info about the fields in the table, for example:
  209. ####       [mysql_test1, "Zi", "Rd"], where mysql_test1 is the name of the
  210. ####       table, "Zi" tells, that the first field name is 'i' and it is
  211. ####       type 'Z' (integer), see test_mysql_functions, 'Rd' tells that
  212. ####       the second field name is 'd' and the type is 'R' (real number)
  213. ####       $force:  if given, never mind about errors
  214. ####       $mix:    if 0, use the same argument at a time in a 
  215. ####                function that has two or more same type arguments
  216. ####                if 1, use different values
  217. ####
  219. sub test_func()
  220. {
  221.   my ($func, $value, $count, $ulargs, $table_info, $force, $mix) = @_;
  222.   my ($query, $i, $j, $k, $no_arg, $row, $ulimit, $tbinfo, $tbused, $arg);
  223.   
  224.   if (!$func->[0][0])
  225.   {
  226.     printf("No function found!n");
  227.     if (!$force) { die; }
  228.   }
  229.   
  230.   for ($i = 0; $func->[$i][0]; $i++)
  231.   {
  232.     $tbused = 0;
  233.     $no_arg = 0;
  234.     for ($j = 0; $j < $count && !$no_arg; $j++)
  235.     {      
  236.       if ($tbused || $no_arg) { next; }
  237.       $query = "select $func->[$i][0](";
  238.       #search the values for the args
  239.       for ($k = 0; $k < length($func->[$i][1]) && !$no_arg; $k++)
  240.       {
  241. if ($mix)
  242. {
  243.   $arg = $j + 1 + $k;
  244. }
  245. else
  246. {
  247.   $arg = $j + 1;
  248. }
  249. if (substr($func->[$i][1], $k, 1) eq 'E')
  250. {
  251.   $no_arg = 1;
  252.   next;
  253. }
  254. if ($k) { $query .= ','; }
  256. if (substr($func->[$i][1], $k, 1) eq 'S')
  257. {
  258.   $query .= &find_value(@value, 'S', $arg);
  259. }
  260. elsif (substr($func->[$i][1], $k, 1) eq 'N')
  261. {
  262.   $query .= &find_value(@value, 'N', $arg);
  263. }
  264. elsif (substr($func->[$i][1], $k, 1) eq 'Z')
  265. {
  266.   $query .= &find_value(@value, 'Z', $arg);
  267. }
  268. elsif ((substr($func->[$i][1], $k, 1) eq 'R'))
  269. {
  270.   $query .= &find_value(@value, 'R', $arg);
  271. }
  272. elsif (substr($func->[$i][1], $k, 1) eq 'T')
  273. {
  274.   $query .= &find_value(@value, 'T', $arg);
  275. }
  276. elsif (substr($func->[$i][1], $k, 1) eq 'D')
  277. {
  278.   $query .= &find_value(@value, 'D', $arg);
  279. }
  280. elsif (substr($func->[$i][1], $k, 1) eq 'B')
  281. {
  282.   $query .= &find_value(@value, 'B', $arg);
  283. }
  284. elsif (substr($func->[$i][1], $k, 1) eq 'C')
  285. {
  286.   $query .= &find_value(@value, 'C', $arg);
  287. }
  288. elsif (substr($func->[$i][1], $k, 1) eq 'F')
  289. {
  290.   $query .= &find_value(@value, 'F', $arg);
  291. }
  292. elsif (substr($func->[$i][1], $k, 1) eq '.')
  293. {
  294.   chop($query);
  295.   for ($ulimit = 0; $ulimit < $ulargs; $ulimit++)
  296.   {
  297.     $query .= ',';
  298.     $query .= &find_value(@value,
  299.   substr($func->[$i][1], $k - 1, 1),
  300.   $j + $ulimit + 2);
  301.   }
  302. }
  303. elsif (substr($func->[$i][1], $k, 1) eq 'A')
  304. {
  305.   for ($tbinfo = 1; substr($table_info->[$tbinfo], 0, 1) ne
  306.        substr($func->[$i][1], $k + 1, 1); $tbinfo++)
  307.   {
  308.     if (!defined($table_info->[$tbinfo]))
  309.     {
  310.       printf("Illegal function structure!n");
  311.       printf("A table was needed, but no type specified!n");
  312.       printf("Unready query was: $queryn");
  313.       if (!$force) { die; }
  314.       else { next; }
  315.     }
  316.   }
  317.   if ($k) { $query .= ","; }
  318.   $query .= substr($table_info->[$tbinfo], 1,
  319.    length($table_info->[$tbinfo]) - 1);
  320.   $k++;
  321.   $tbused = 1;
  322. }
  323.     else
  324. {
  325.   printf("Not a valid type: n");
  326.   printf(substr($func->[$i][1], $k, 1));
  327.   printf("nAttempted to be used with unready query: n");
  328.   printf("$queryn");
  329. }
  330.       }
  331.       $query .= ")";
  332.       if ($tbused)
  333.       {
  334. $query .= " from ";
  335. $query .= $table_info->[0];
  336.       }
  337.       if (!($sth = $dbh->prepare($query)))
  338.       {
  339. printf("Couldn't prepare: $queryn");
  340. if (!$force) { die; }
  341.       }
  342.       if (!$sth->execute)
  343.       {
  344. printf("Execution failed: $DBI::errstrn");
  345. printf("Attempted query was:n$queryn");
  346. $sth->finish;
  347. if (!$force) { die; }
  348.       }
  349.       else 
  350.       { 
  351. printf("mysql> $query;n");
  352. display($sth, 1);
  353. printf("Query OKnn");
  354.       }
  355.     }
  356.   }
  357. }
  359. ####
  360. #### mk_str returns a string where the first arg is repeated second arg times
  361. #### if repeat is 1, return the original str
  362. ####
  364. sub mk_str()
  365. {
  366.   my ($str, $repeat) = @_;
  367.   my ($res_str);
  369.   if ($repeat <= 0)
  370.   {
  371.     die "Invalid repeat times!n";
  372.   }
  373.   
  374.   for ($repeat--, $res_str = $str; $repeat > 0; $repeat--)
  375.   {
  376.     $res_str .= $str;
  377.   }
  378.   return $res_str;
  379. }
  381. ####
  382. #### find_value: returns a value from list of values
  383. #### args: $values:  list of values
  384. ####       $type:    type of argument (S = string, N = integer etc.)
  385. ####       $ordinal: the ordinal number of an argument in the list
  386. ####
  388. sub find_value()
  389. {
  390.   my ($values, $type, $ordinal) = @_;
  391.   my ($total, $i, $j, $tmp, $val);
  393.   $total = -1; # The first one is the type
  395.   for ($i = 0; $values[$i][0]; $i++)
  396.   {
  397.     if ($values[$i][0] eq $type)
  398.     {
  399.       $tmp = $values[$i];
  400.       foreach $val (@$tmp) { $total++; }
  401.       for ( ;$total < $ordinal; )
  402.       {
  403. $ordinal -= $total;
  404.       }
  405.       return $values[$i][$ordinal];
  406.     }
  407.   }
  408.   printf("No type '$type' found in valuesn");
  409.   die;
  410. }
  412. ####
  413. #### exec_query: execute a query, print information if wanted and exit
  414. #### args: $queries:      list of queries to be executed
  415. ####       $expect_error: if 0, error is not expected. In this case if an
  416. ####                      error occurs, inform about it and quit
  417. ####                      if 1, error is expected. In this case if sql server
  418. ####                      doesn't give an error message, inform about it
  419. ####                      and quit
  420. ####                      if 2, error may happen or not, don't care
  421. ####       $silent:       if true, reduce output
  422. ####       $style:        type of output, 0 == horizontal, 1 == vertical
  423. ####
  425. sub exec_query()
  426. {
  427.   my ($queries, $expect_error, $silent, $style) = @_;
  428.   my ($query);
  430.   foreach $query (@$queries)
  431.   {
  432.     if (!($sth = $dbh->prepare($query)))
  433.     {
  434.       printf("Couldn't prepare: $queryn");
  435.       die;
  436.     }
  437.     if (!$sth->execute)
  438.     {
  439.       if ($expect_error == 1)
  440.       {
  441.         printf("An invalid instruction was purposely made,n"); 
  442.         printf("server failed succesfully:n");
  443.         printf("$DBI::errstrn");
  444.         printf("Everything OK, continuing...n");
  445.         return;
  446.       }
  447.       if ($expect_error != 2)
  448.       {
  449.         printf("Execution failed: $DBI::errstrn");
  450.         printf("Attempted query was:n$queryn");
  451.         die;
  452.       }
  453.     }
  454.     if ($expect_error == 1)
  455.     {
  456.       printf("An invalid instruction was purposely made,n");
  457.       printf("server didn't note, ALARM!n");
  458.       printf("The query made was: $queryn");
  459.       printf("The output from the server:n");
  460.     }
  461.     if ($expect_error == 2) { return; }
  462.     if (!$silent) { printf("mysql> $query;n"); }
  463.     display($sth, $style);
  464.     if (!$silent) { printf("Query OKnn"); }
  465.     if ($expect_error) { die; }
  466.   }
  467.   return;
  468. }
  470. ####
  471. #### Display to stderr
  472. #### Args: 1: ($sth) statememt handler
  473. ####       2: ($style) 0 == horizontal style, 1 == vertical style
  474. ####
  476. sub display()
  477. {
  478.   my ($sth, $style) = @_;
  479.   my (@data, @max_length, $row, $nr_rows, $nr_cols, $i, $j, $tmp, $mxl);
  480.   
  481.   # Store the field names and values in @data.
  482.   # Store the max field lengths in @max_length
  483.   for ($i = 0; ($row = $sth->fetchrow_arrayref); $i++)
  484.   {
  485.     if (!$i)
  486.     {
  487.       $nr_cols = $#$row;
  488.       for ($j = 0; $j <= $#$row; $j++)
  489.       {
  490.         $data[$i][$j] = $sth->{NAME}->[$j];
  491.         $max_length[$j] = length($data[$i][$j]);
  492.       }
  493.       $i++;
  494.     }
  495.     for ($j = 0; $j <= $#$row; $j++)
  496.     {
  497.       $data[$i][$j] = $row->[$j];
  498.       $max_length[$j] = $tmp if ($max_length[$j] < 
  499.  ($tmp = length($data[$i][$j])));
  500.     }
  501.   }
  502.   if (!($nr_rows = $i))
  503.   {
  504.     return;
  505.   }
  506.   # Display data
  507.   if ($style == 0)
  508.   {
  509.     for ($i = 0; $i < $nr_rows; $i++)
  510.     {
  511.       if (!$i)
  512.       {
  513.         for ($j = 0; $j <= $nr_cols; $j++)
  514.         {
  515.           print "+"; print "-" x ($max_length[$j] + 2);
  516.         }
  517.         print "+n";
  518.       }
  519.       print "|";
  520.       for ($j = 0; $j <= $nr_cols; $j++)
  521.       {
  522.         print " ";
  523.         if (defined($data[$i][$j]))
  524.         {
  525.           print $data[$i][$j];
  526.   $tmp = length($data[$i][$j]);
  527.         }
  528. else
  529. {
  530.   print "NULL";
  531.   $tmp = 4;
  532. }
  533.         print " " x ($max_length[$j] - $tmp);
  534.         print " |";
  535.       }
  536.       print "n";
  537.       if (!$i)
  538.       {
  539.         for ($j = 0; $j <= $nr_cols; $j++)
  540.         {
  541.           print "+"; print "-" x ($max_length[$j] + 2);
  542.         }
  543.         print "+n";
  544.       }
  545.     }
  546.     for ($j = 0; $j <= $nr_cols; $j++)
  547.     {
  548.       print "+"; print "-" x ($max_length[$j] + 2);
  549.     }
  550.     print "+n";
  551.     return;
  552.   }
  553.   if ($style == 1)
  554.   {
  555.     for ($i = 0; $max_length[$i]; $i++)
  556.     {
  557.       $mxl = $max_length[$i] if ($mxl < $max_length[$i]);
  558.     }
  560.     for ($i = 1; $i < $nr_rows; $i++)
  561.     {
  562.       print "*" x 27;
  563.       print " " . $i . ". row ";
  564.       print "*" x 27;
  565.       print "n";
  566.       for ($j = 0; $j <= $nr_cols; $j++)
  567.       {
  568. print " " x ($mxl - length($data[0][$j]));
  569. print "$data[0][$j]: ";
  570. if (defined($data[$i][$j]))
  571. {
  572.   print "$data[$i][$j] n";
  573. }
  574. else
  575. {
  576.   print "NULLn";
  577. }
  578.       }
  579.     }
  580.     return;
  581.   }
  582. }
  584. ####
  585. #### usage
  586. ####
  588. sub usage
  589. {
  590.     print <<EOF;
  591. mysql-test $VER by Jani Tolonen
  593. Usage: mysql-test [options]
  595. Options:
  596. --help      Show this help
  597. --db=       Database to use (Default: $opt_db)
  598. --port=     TCP/IP port to use for connection (Default: $opt_port)
  599. --socket=   UNIX socket to use for connection (Default: $opt_socket)
  600. --host=     Connect to host (Default: $opt_host)
  601. --user=     User for login if not current user
  602. --password  Password to use when connecting to server
  604. --without=PART_NAME1,PART_NAME2,...  
  605.             test without a certain part of MySQL, optional parts listed below
  607. Optional parts:
  609. FUNC        Ignore MySQL basic functions
  610. PROC        Ignore MySQL procedure functions
  611. EOF
  612.   exit(0);
  613. }
  616. sub test_mysql_functions
  617. {
  618.   
  619.   ####
  620.   #### MySQL functions
  621.   ####
  622.   #### Types: S = string (or real number) , N = unsigned integer, Z = integer, 
  623.   ####        R = real number, T = time_stamp, E = no argument, D = date, 
  624.   ####        B = boolean, C = character
  625.   ####        F = format (usually used with the date-types)
  626.   ####        . = any number of the last argument type possible
  627.   ####        A = require table for test, the following argument 
  628.   ####            is the argument for the function
  629.   
  630.   # Muista get_lock,group_unique_users,
  631.   # position, unique_users
  632.   
  633.   # ks. kaikki date function, ker滗 yhteen, testaa erikseen
  634.   # adddate, date_add, subdate, date_sub, between, benchmark, count
  636.   # decode, encode, get_lock, make_set, position
  637.   
  638.   @functions = (["abs","R"],["acos","R"],["ascii","C"],["asin","R"],
  639. ["atan","R"],["atan2","R"],["avg","AR"],["bin","Z"],
  640. ["bit_count","Z"],["bit_or","AZ"],["bit_and","AZ"],
  641. ["ceiling","R"],["char","N."],["char_length","S"],
  642. ["concat","SS."],["conv","ZZZ"],
  643. ["cos","R"],["cot","R"],["curdate","E"],
  644. ["curtime","E"],["database","E"],["date_format","DF"],
  645. ["dayofmonth","D"],["dayofyear","D"],["dayname","D"],
  646. ["degrees","R"],["elt","NS."],["encode","SS"],
  647. ["encrypt","S"],["encrypt","SS"],["exp","R"],["field","SS."],
  648. ["find_in_set","SS"],["floor","R"],["format","RN"],
  649. ["from_days","N"],["from_unixtime","N"],
  650. ["from_unixtime","NF"],["greatest","RR."],["hex","Z"],
  651. ["hour","D"],["if","ZSS"],["ifnull","SS"],["insert","SNNS"],
  652. ["instr","SS"],["interval","RR."],["isnull","S"],
  653. ["last_insert_id","E"],["lcase","S"],["least","RR."],
  654. ["left","SN"],["length","S"],["locate","SS"],
  655. ["log","R"],["log10","R"],["lpad","SNS"],["ltrim","S"],
  656. ["max","AR"],["mid","SNN"],["min","AR"],["minute","D"],
  657. ["mod","ZZ"],["monthname","D"],
  658. ["month","D"],["now","E"],["oct","Z"],
  659. ["octet_length","S"],["password","S"],["period_add","DD"],
  660. ["period_diff","DD"],["pi","E"],
  661. ["pow","RR"],["quarter","D"],["radians","R"],
  662. ["rand","E"],["rand","R"],["release_lock","S"],
  663. ["repeat","SN"],["replace","SSS"],["reverse","S"],
  664. ["right","SN"],["round","R"],["round","RN"],
  665. ["rpad","SNS"],["rtrim","S"],["sec_to_time","N"],
  666. ["second","T"],["sign","R"],["sin","R"],
  667. ["space","N"],["soundex","S"],["sqrt","R"],["std","AR"],
  668. ["strcmp","SS"],["substring","SN"],["substring","SNN"],
  669. ["substring_index","SSZ"],["sum","AR"],
  670. ["tan","R"],["time_format","TF"],["time_to_sec","T"],
  671. ["to_days","D"],["trim","S"],
  672. ["truncate","RN"],["ucase","S"],
  673. ["unix_timestamp","E"],["unix_timestamp","D"],["user","E"],
  674. ["version","E"],["week","D"],["weekday","D"],["year","D"]);
  676.   ####
  677.   #### Various tests for the functions above
  678.   ####
  679.   
  680.   &exec_query(["drop table mysql_test1"], $MAY_ERR, $SILENT);
  681.   
  682.   $query .= <<EOF;
  683. create table mysql_test1 (
  684.   i int,
  685.   d double
  686. )
  687. EOF
  688.   chop($query);
  689.   &exec_query([$query], $NO_ERR, $SILENT);
  690.   
  691.   ####
  692.   #### Basic tests
  693.   ####
  694.   
  695.   printf("####n#### BASIC TESTS FOR FUNCTIONSn####nn");
  697.   @bunch = ("insert into mysql_test1 values(-20,-10.5),(20,10.5),(50,100.00)",
  698.     "insert into mysql_test1 values(100,500.333)");
  699.   &exec_query(@bunch, $NO_ERR, $SILENT);
  700.   
  701.   printf("n####n#### First basic test partn####nn");
  703.   @values = (["S", "'a'", "'abc'", "'abc def'", "'abcd'", "'QWERTY'", 
  704.       "'\\'", "'*.!"#