Home | History | Annotate | Download | only in tests-m32
      1 #!/bin/sh
      2 #
      3 # Define syntax testing primitives.
      4 #
      5 # Copyright (c) 2016 Dmitry V. Levin <ldv (at] altlinux.org>
      6 # Copyright (c) 2016-2017 The strace developers.
      7 # All rights reserved.
      8 #
      9 # Redistribution and use in source and binary forms, with or without
     10 # modification, are permitted provided that the following conditions
     11 # are met:
     12 # 1. Redistributions of source code must retain the above copyright
     13 #    notice, this list of conditions and the following disclaimer.
     14 # 2. Redistributions in binary form must reproduce the above copyright
     15 #    notice, this list of conditions and the following disclaimer in the
     16 #    documentation and/or other materials provided with the distribution.
     17 # 3. The name of the author may not be used to endorse or promote products
     18 #    derived from this software without specific prior written permission.
     19 #
     20 # THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
     21 # IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
     22 # OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
     23 # IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
     24 # INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
     25 # NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
     26 # DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
     27 # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
     28 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
     29 # THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     30 
     31 . "${srcdir=.}/init.sh"
     32 
     33 check_exit_status_and_stderr()
     34 {
     35 	$STRACE "$@" 2> "$LOG" &&
     36 		dump_log_and_fail_with \
     37 			"strace $* failed to handle the error properly"
     38 	match_diff "$LOG" "$EXP" ||
     39 		dump_log_and_fail_with \
     40 			"strace $* failed to print expected diagnostics"
     41 }
     42 
     43 check_exit_status_and_stderr_using_grep()
     44 {
     45 	$STRACE "$@" 2> "$LOG" &&
     46 		dump_log_and_fail_with \
     47 			"strace $* failed to handle the error properly"
     48 	match_grep "$LOG" "$EXP" ||
     49 		dump_log_and_fail_with \
     50 			"strace $* failed to print expected diagnostics"
     51 }
     52 
     53 check_e()
     54 {
     55 	local pattern="$1"; shift
     56 	cat > "$EXP" << __EOF__
     57 $STRACE_EXE: $pattern
     58 __EOF__
     59 	check_exit_status_and_stderr "$@"
     60 }
     61 
     62 check_e_using_grep()
     63 {
     64 	local pattern="$1"; shift
     65 	cat > "$EXP" << __EOF__
     66 $STRACE_EXE: $pattern
     67 __EOF__
     68 	check_exit_status_and_stderr_using_grep "$@"
     69 }
     70 
     71 check_h()
     72 {
     73 	local pattern="$1"; shift
     74 	cat > "$EXP" << __EOF__
     75 $STRACE_EXE: $pattern
     76 Try '$STRACE_EXE -h' for more information.
     77 __EOF__
     78 	check_exit_status_and_stderr "$@"
     79 }
     80