Edit File: show_msg80.inc
#### include/show_msg80.inc # # This file writes the value set in @message into the a protocol file as part # of executing a test sequence with a dash line that is fixed on 80 characters. # # This can be used in the case of long messages, multi line messages that # exceed 80 or if an 80 char line is desired for short messages. # # Usage: # Add the following to any *.test file: # : # let $message= <value>; # --source include/show_msg80.inc # : # # Attention: # - Please do not write any spaces between $message and the "=", because the # assignment will not work. # - Be careful with single quotes within the value. They must be escaped like # "''" or "\'". # - Do not keep the value between single quotes. # # # Content of "$message" and protocol output depending on the assignment: # ---------------------------------------------------------------------- # # I is assumed, that the value is not kept between double quotes. # # <x> first character after "$message=", # where the content is not (space or tab) # <y*> first character after beginning of the line, # where the content is not (space or tab) # <z> last char before ";" # | beginning or end of line # # script: let $message= <x><whatever0>| # | <y1><whatever1>| # |................| # | <yn><whatevern><z>; # content: "<x><whatever0><new line><y1><whatever1><new line> # ....<new line><yn><whatevern><z>" # protocol output: |<x><whatever0>| # |<y1><whatever1>| # |.....| # |<yn><whatevern><z>| # |--- 80 dashes ---| # # Attention: # <x> and <y*> set to characters like "-$#" which are also used # to start comments, options and the names of mysqltest variables # lead to syntax errors or mangled messages. # # # Examples of messages: # --------------------- # # Variant1 (ease of use): # Several lines with indentation kept between double quotes # script: |let $message= # |" Testcase 3.1 : Ensure that Pi is not an| # | integer number.| # | Third line"; # protocol: |" Testcase 3.1 : Ensure that Pi is not an| # | integer number.| # | Third line"| # |------ 80 dashes ----| # # Please mention that # - the '"' preserves the indentation. # - it is easy to write the script lines to get a fine indentation, # if the value starts at the beginning of a new line # - the '"' is printed # - there are the least or no problems with characters like "-#$" # # # Variant 2 (grep the messages from the protocol is easy): # Several lines with indentation + auxiliary character (".") # at the (non tab or space) beginning of every message line # script: |let $message= . Testcase 3.1 : Ensure that Pi is not an| # | . integer number.| # | . Third line; # protocol: |. Testcase 3.1 : Ensure that Pi is not an| # |. integer number.| # |. Third line| # |------ 80 dashes ----| # Please mention that # - the auxiliary character preserves the indentation. # - it is easy to write the script lines to get a fine indentation # - the auxiliary character is printed # - it is recommended to use "." as auxiliary character # - auxiliary characters like "-'$#" cause problems # # # # Bad variant1: Several lines with lost indentation # script: |let $message= Here is message line 1 # | message line 2; # protocol: |Here is message line 1| # |message line 2| # |------ 80 dashes ----| # Please mention, that the leading spaces of the message lines disappeared. # # Bad variant2: Several lines leading to a syntax error, because of "-" # script: |let $message= - This is a message # | - with a second and # | - third line; # protocol: | - third line;; # |ERROR 42000: You have an error ... near '- third line' # + several following errors # # --disable_query_log eval SET @utf8_message = CONVERT('$message' using utf8); select @utf8_message as "" union select repeat(CONVERT('-' using utf8),80); --enable_query_log
Back to File Manager