xref: /freebsd/contrib/netbsd-tests/bin/expr/t_expr.sh (revision 7e00348e7605b9906601438008341ffc37c00e2c) 
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.
30test_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
39atf_test_case lang
40lang_ops_head() {
41	atf_set "descr" "Test that expr(1) works with non-C LANG (PR bin/2486)"
42}
43lang_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
52atf_test_case overflow
53overflow_head() {
54	atf_set "descr" "Test overflow cases"
55}
56overflow_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
81atf_test_case gtkmm
82gtkmm_head() {
83	atf_set "descr" "Test from gtk-- configure that cause problems on old expr"
84}
85gtkmm_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
94atf_test_case colon_vs_math
95colon_vs_math_head() {
96	atf_set "descr" "Basic precendence test with the : operator vs. math"
97}
98colon_vs_math_body() {
99	test_expr '2 : 4 / 2' '0'
100	test_expr '4 : 4 % 3' '1'
101}
102
103atf_test_case arithmetic_ops
104arithmetic_ops_head() {
105	atf_set "descr" "Dangling arithemtic operator"
106}
107arithmetic_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
116atf_test_case basic_math
117basic_math_head() {
118	atf_set "descr" "Basic math test"
119}
120basic_math_body() {
121	test_expr '2 + 4 \* 5' '22'
122}
123
124atf_test_case basic_functional
125basic_functional_head() {
126	atf_set "descr" "Basic functional tests"
127}
128basic_functional_body() {
129	test_expr '2' '2'
130	test_expr '-4' '-4'
131	test_expr 'hello' 'hello'
132}
133
134atf_test_case compare_ops_precedence
135compare_ops_precedence_head() {
136	atf_set "descr" "Compare operator precendence test"
137}
138compare_ops_precedence_body() {
139	test_expr '2 \> 1 \* 17' '0'
140}
141
142atf_test_case compare_ops
143compare_ops_head() {
144	atf_set "descr" "Compare operator tests"
145}
146compare_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
163atf_test_case multiply
164multiply_head() {
165	atf_set "descr" "Test the multiply operator (PR bin/12838)"
166}
167multiply_body() {
168	test_expr '1 \* -1' '-1'
169	test_expr '2 \> 1 \* 17' '0'
170}
171
172atf_test_case negative
173negative_head() {
174	atf_set "descr" "Test the additive inverse"
175}
176negative_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
186atf_test_case math_precedence
187math_precedence_head() {
188	atf_set "descr" "More complex math test for precedence"
189}
190math_precedence_body() {
191	test_expr '-3 + -1 \* 4 + 3 / -6' '-7'
192}
193
194atf_test_case precedence
195precedence_head() {
196	atf_set "descr" "Test precedence"
197}
198precedence_body() {
199	# This is messy but the shell escapes cause that
200	test_expr 'X1/2/3 : X\\\(.\*[^/]\\\)//\*[^/][^/]\*/\*$ \| . : \\\(.\\\)' '1/2'
201}
202
203atf_test_case regex
204regex_head() {
205	atf_set "descr" "Test proper () returning \1 from a regex"
206}
207regex_body() {
208	# This is messy but the shell escapes cause that
209	test_expr '1/2 : .\*/\\\(.\*\\\)' '2'
210}
211
212atf_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}
229