tests/bin/expr/t_expr.sh

   1 # $NetBSD: t_expr.sh,v 1.3 2012/03/27 07:23:06 jruoho Exp $
   2 #
   3 # Copyright (c) 2007 The NetBSD Foundation, Inc.
   4 # All rights reserved.
   5 #
   6 # Redistribution and use in source and binary forms, with or without
   7 # modification, are permitted provided that the following conditions
   8 # are met:
   9 # 1. Redistributions of source code must retain the above copyright
  10 #    notice, this list of conditions and the following disclaimer.
  11 # 2. Redistributions in binary form must reproduce the above copyright
  12 #    notice, this list of conditions and the following disclaimer in the
  13 #    documentation and/or other materials provided with the distribution.
  14 #
  15 # THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  16 # ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  17 # TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  18 # PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  19 # BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  20 # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  21 # SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  22 # INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  23 # CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  24 # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  25 # POSSIBILITY OF SUCH DAMAGE.
  26 #
  27
  28 # The first arg will get eval'd so escape any meta characters
  29 # The 2nd arg is an expected string/response from expr for that op.
  30 test_expr() {
  31         echo "Expression '${1}', expecting '${2}'"
  32         res=`eval expr $1 2>&1`
  33         if [ "$res" != "$2" ]; then
  34                 atf_fail "Expected $2, got $res from expression: " \
  35                          "`eval echo $1`"
  36         fi
  37 }
  38
  39 atf_test_case lang
  40 lang_ops_head() {
  41         atf_set "descr" "Test that expr(1) works with non-C LANG (PR bin/2486)"
  42 }
  43 lang_body() {
  44
  45         export LANG=nonexistent
  46         atf_check -s exit:0 -o inline:"21\n" -e empty -x "expr 10 + 11"
  47
  48         export LANG=ru_RU.KOI8-R
  49         atf_check -s exit:0 -o inline:"21\n" -e empty -x "expr 10 + 11"
  50 }
  51
  52 atf_test_case overflow
  53 overflow_head() {
  54         atf_set "descr" "Test overflow cases"
  55 }
  56 overflow_body() {
  57         test_expr '4611686018427387904 + 4611686018427387903' \
  58                   '9223372036854775807'
  59         test_expr '4611686018427387904 + 4611686018427387904' \
  60                   "expr: integer overflow or underflow occurred for operation '4611686018427387904 + 4611686018427387904'"
  61         test_expr '4611686018427387904 - -4611686018427387904' \
  62                   "expr: integer overflow or underflow occurred for operation '4611686018427387904 - -4611686018427387904'"
  63         test_expr '-4611686018427387904 - 4611686018427387903' \
  64                   '-9223372036854775807'
  65         test_expr '-4611686018427387904 - 4611686018427387905' \
  66                   "expr: integer overflow or underflow occurred for operation '-4611686018427387904 - 4611686018427387905'"
  67         test_expr '-4611686018427387904 \* 1' '-4611686018427387904'
  68         test_expr '-4611686018427387904 \* -1' '4611686018427387904'
  69         test_expr '-4611686018427387904 \* 2' '-9223372036854775808'
  70         test_expr '-4611686018427387904 \* 3' \
  71                   "expr: integer overflow or underflow occurred for operation '-4611686018427387904 * 3'"
  72         test_expr '-4611686018427387904 \* -2' \
  73                   "expr: integer overflow or underflow occurred for operation '-4611686018427387904 * -2'"
  74         test_expr '4611686018427387904 \* 1' '4611686018427387904'
  75         test_expr '4611686018427387904 \* 2' \
  76                   "expr: integer overflow or underflow occurred for operation '4611686018427387904 * 2'"
  77         test_expr '4611686018427387904 \* 3' \
  78                   "expr: integer overflow or underflow occurred for operation '4611686018427387904 * 3'"
  79 }
  80
  81 atf_test_case gtkmm
  82 gtkmm_head() {
  83         atf_set "descr" "Test from gtk-- configure that cause problems on old expr"
  84 }
  85 gtkmm_body() {
  86         test_expr '3 \> 3 \| 3 = 3 \& 4 \> 4 \| 3 = 3 \& 4 = 4 \& 5 \>= 5' '1'
  87         test_expr '3 \> 3 \| 3 = 3 \& 4 \> 4 \| 3 = 3 \& 4 = 4 \& 5 \>= 6' '0'
  88         test_expr '3 \> 3 \| 3 = 3 \& 4 \> 4 \| 3 = 3 \& 4 = 3 \& 5 \>= 5' '0'
  89         test_expr '3 \> 3 \| 3 = 3 \& 4 \> 4 \| 3 = 2 \& 4 = 4 \& 5 \>= 5' '0'
  90         test_expr '3 \> 2 \| 3 = 3 \& 4 \> 4 \| 3 = 3 \& 4 = 4 \& 5 \>= 6' '1'
  91         test_expr '3 \> 3 \| 3 = 3 \& 4 \> 3 \| 3 = 3 \& 4 = 4 \& 5 \>= 5' '1'
  92 }
  93
  94 atf_test_case colon_vs_math
  95 colon_vs_math_head() {
  96         atf_set "descr" "Basic precendence test with the : operator vs. math"
  97 }
  98 colon_vs_math_body() {
  99         test_expr '2 : 4 / 2' '0'
 100         test_expr '4 : 4 % 3' '1'
 101 }
 102
 103 atf_test_case arithmetic_ops
 104 arithmetic_ops_head() {
 105         atf_set "descr" "Dangling arithemtic operator"
 106 }
 107 arithmetic_ops_body() {
 108         test_expr '.java_wrapper : /' '0'
 109         test_expr '4 : \*' '0'
 110         test_expr '4 : +' '0'
 111         test_expr '4 : -' '0'
 112         test_expr '4 : /' '0'
 113         test_expr '4 : %' '0'
 114 }
 115
 116 atf_test_case basic_math
 117 basic_math_head() {
 118         atf_set "descr" "Basic math test"
 119 }
 120 basic_math_body() {
 121         test_expr '2 + 4 \* 5' '22'
 122 }
 123
 124 atf_test_case basic_functional
 125 basic_functional_head() {
 126         atf_set "descr" "Basic functional tests"
 127 }
 128 basic_functional_body() {
 129         test_expr '2' '2'
 130         test_expr '-4' '-4'
 131         test_expr 'hello' 'hello'
 132 }
 133
 134 atf_test_case compare_ops_precedence
 135 compare_ops_precedence_head() {
 136         atf_set "descr" "Compare operator precendence test"
 137 }
 138 compare_ops_precedence_body() {
 139         test_expr '2 \> 1 \* 17' '0'
 140 }
 141
 142 atf_test_case compare_ops
 143 compare_ops_head() {
 144         atf_set "descr" "Compare operator tests"
 145 }
 146 compare_ops_body() {
 147         test_expr '2 \!= 5' '1'
 148         test_expr '2 \!= 2' '0'
 149         test_expr '2 \<= 3' '1'
 150         test_expr '2 \<= 2' '1'
 151         test_expr '2 \<= 1' '0'
 152         test_expr '2 \< 3' '1'
 153         test_expr '2 \< 2' '0'
 154         test_expr '2 = 2' '1'
 155         test_expr '2 = 4' '0'
 156         test_expr '2 \>= 1' '1'
 157         test_expr '2 \>= 2' '1'
 158         test_expr '2 \>= 3' '0'
 159         test_expr '2 \> 1' '1'
 160         test_expr '2 \> 2' '0'
 161 }
 162
 163 atf_test_case multiply
 164 multiply_head() {
 165         atf_set "descr" "Test the multiply operator (PR bin/12838)"
 166 }
 167 multiply_body() {
 168         test_expr '1 \* -1' '-1'
 169         test_expr '2 \> 1 \* 17' '0'
 170 }
 171
 172 atf_test_case negative
 173 negative_head() {
 174         atf_set "descr" "Test the additive inverse"
 175 }
 176 negative_body() {
 177         test_expr '-1 + 5' '4'
 178         test_expr '- 1 + 5' 'expr: syntax error'
 179
 180         test_expr '5 + -1' '4'
 181         test_expr '5 + - 1' 'expr: syntax error'
 182
 183         test_expr '1 - -5' '6'
 184 }
 185
 186 atf_test_case math_precedence
 187 math_precedence_head() {
 188         atf_set "descr" "More complex math test for precedence"
 189 }
 190 math_precedence_body() {
 191         test_expr '-3 + -1 \* 4 + 3 / -6' '-7'
 192 }
 193
 194 atf_test_case precedence
 195 precedence_head() {
 196         atf_set "descr" "Test precedence"
 197 }
 198 precedence_body() {
 199         # This is messy but the shell escapes cause that
 200         test_expr 'X1/2/3 : X\\\(.\*[^/]\\\)//\*[^/][^/]\*/\*$ \| . : \\\(.\\\)' '1/2'
 201 }
 202
 203 atf_test_case regex
 204 regex_head() {
 205         atf_set "descr" "Test proper () returning \1 from a regex"
 206 }
 207 regex_body() {
 208         # This is messy but the shell escapes cause that
 209         test_expr '1/2 : .\*/\\\(.\*\\\)' '2'
 210 }
 211
 212 atf_init_test_cases()
 213 {
 214         atf_add_test_case lang
 215         atf_add_test_case overflow
 216         atf_add_test_case gtkmm
 217         atf_add_test_case colon_vs_math
 218         atf_add_test_case arithmetic_ops
 219         atf_add_test_case basic_math
 220         atf_add_test_case basic_functional
 221         atf_add_test_case compare_ops_precedence
 222         atf_add_test_case compare_ops
 223         atf_add_test_case multiply
 224         atf_add_test_case negative
 225         atf_add_test_case math_precedence
 226         atf_add_test_case precedence
 227         atf_add_test_case regex
 228 }