3 # Basic tests for "expr".
5 # Copyright (C) 2001, 2003, 2004, 2005, 2006 Free Software Foundation,
8 # This program is free software; you can redistribute it and/or modify
9 # it under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 2 of the License, or
11 # (at your option) any later version.
13 # This program is distributed in the hope that it will be useful,
14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with this program; if not, write to the Free Software
20 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
26 $PERL -e 1 > /dev/null 2>&1 || {
27 echo 1>&2 "$0: configure didn't find a usable version of Perl," \
28 "so can't run this test"
33 exec $PERL -w -I$d -MCoreutils -- - << \EOF
37 (my $program_name = $0) =~ s|.*/||;
39 # Turn off localisation of executable's ouput.
40 @ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x 3;
42 my $prog = $ENV{PROG} || die "$0: \$PROG not specified in environment\n";
46 ['a', '5 + 6', {OUT => '11'}],
47 ['b', '5 - 6', {OUT => '-1'}],
48 ['c', '5 \* 6', {OUT => '30'}],
49 ['d', '100 / 6', {OUT => '16'}],
50 ['e', '100 % 6', {OUT => '4'}],
51 ['f', '3 + -2', {OUT => '1'}],
52 ['g', '-2 + -2', {OUT => '-4'}],
54 ['paren1', '\( 100 % 6 \)', {OUT => '4'}],
55 ['paren2', '\( 100 % 6 \) - 8', {OUT => '-4'}],
56 ['paren3', '9 / \( 100 % 6 \) - 8', {OUT => '-6'}],
57 ['paren4', '9 / \( \( 100 % 6 \) - 8 \)', {OUT => '-2'}],
58 ['paren5', '9 + \( 100 % 6 \)', {OUT => '13'}],
60 # Before 2.0.12, this would output `1'.
61 ['0bang', '00 \< 0!', {OUT => '0'}, {EXIT => 1}],
63 # In 5.1.3 and earlier, these would exit with status 0.
64 ['00', '00', {OUT => '00'}, {EXIT => 1}],
65 ['minus0', '-0', {OUT => '-0'}, {EXIT => 1}],
67 # In 5.1.3 and earlier, these would report errors.
68 ['andand', '0 \& 1 / 0', {OUT => '0'}, {EXIT => 1}],
69 ['oror', '1 \| 1 / 0', {OUT => '1'}, {EXIT => 0}],
71 # In 5.1.3 and earlier, this would output the empty string.
72 ['orempty', '"" \| ""', {OUT => '0'}, {EXIT => 1}],
74 # This evoked a syntax error diagnostic before 2.0.12.
75 ['minus2', '-- 2 + 2', {OUT => '4'}],
77 # This erroneously succeeded and output `3' before 2.0.12.
78 ['fail-a', '3 + -', {ERR => "$prog: non-numeric argument\n"},
81 # This erroneously succeeded before 5.3.1.
82 ['bigcmp', '-- -2417851639229258349412352 \< 2417851639229258349412352',
83 {OUT => '1'}, {EXIT => 0}],
85 # In 5.94 and earlier, anchors incorrectly matched newlines.
86 ['anchor', "'a\nb' : 'a\$'", {OUT => '0'}, {EXIT => 1}],
88 # These tests are taken from grep/tests/bre.tests.
89 ['bre1', '"abc" : "a\\(b\\)c"', {OUT => 'b'}],
90 ['bre2', '"a(" : "a("', {OUT => '2'}],
91 ['bre3', '_ : "a\\("',
92 {ERR => "$prog: Unmatched ( or \\(\n"}, {EXIT => 2}],
93 ['bre4', '_ : "a\\(b"',
94 {ERR => "$prog: Unmatched ( or \\(\n"}, {EXIT => 2}],
95 ['bre5', '"a(b" : "a(b"', {OUT => '3'}],
96 ['bre6', '"a)" : "a)"', {OUT => '2'}],
97 ['bre7', '_ : "a\\)"',
98 {ERR => "$prog: Unmatched ) or \\)\n"}, {EXIT => 2}],
100 {ERR => "$prog: Unmatched ) or \\)\n"}, {EXIT => 2}],
101 ['bre9', '"ab" : "a\\(\\)b"', {OUT => ''}, {EXIT => 1}],
102 ['bre10', '"a^b" : "a^b"', {OUT => '3'}],
103 ['bre11', '"a\$b" : "a\$b"', {OUT => '3'}],
104 ['bre12', '"" : "\\($\\)\\(^\\)"', {OUT => ''}, {EXIT => 1}],
105 ['bre13', '"b" : "a*\\(^b\$\\)c*"', {OUT => 'b'}],
106 ['bre14', '"X|" : "X\\(|\\)" : "(" "X|" : "X\\(|\\)" ")"', {OUT => '1'}],
107 ['bre15', '"X*" : "X\\(*\\)" : "(" "X*" : "X\\(*\\)" ")"', {OUT => '1'}],
108 ['bre16', '"abc" : "\\(\\)"', {OUT => ''}, {EXIT => 1}],
109 ['bre17', '"{1}a" : "\\(\\{1\\}a\\)"', {OUT => '{1}a'}],
110 ['bre18', '"X*" : "X\\(*\\)" : "^*"', {OUT => '1'}],
111 ['bre19', '"{1}" : "^\\{1\\}"', {OUT => '3'}],
112 ['bre20', '"{" : "{"', {OUT => '1'}],
113 ['bre21', '"abbcbd" : "a\\(b*\\)c\\1d"', {OUT => ''}, {EXIT => 1}],
114 ['bre22', '"abbcbbbd" : "a\\(b*\\)c\\1d"', {OUT => ''}, {EXIT => 1}],
115 ['bre23', '"abc" : "\\(.\\)\\1"', {OUT => ''}, {EXIT => 1}],
116 ['bre24', '"abbccd" : "a\\(\\([bc]\\)\\2\\)*d"', {OUT => 'cc'}],
117 ['bre25', '"abbcbd" : "a\\(\\([bc]\\)\\2\\)*d"',
118 {OUT => ''}, {EXIT => 1}],
119 ['bre26', '"abbbd" : "a\\(\\(b\\)*\\2\\)*d"', {OUT => 'bbb'}],
120 ['bre27', '"aabcd" : "\\(a\\)\\1bcd"', {OUT => 'a'}],
121 ['bre28', '"aabcd" : "\\(a\\)\\1bc*d"', {OUT => 'a'}],
122 ['bre29', '"aabd" : "\\(a\\)\\1bc*d"', {OUT => 'a'}],
123 ['bre30', '"aabcccd" : "\\(a\\)\\1bc*d"', {OUT => 'a'}],
124 ['bre31', '"aabcccd" : "\\(a\\)\\1bc*[ce]d"', {OUT => 'a'}],
125 ['bre32', '"aabcccd" : "\\(a\\)\\1b\\(c\\)*cd\$"', {OUT => 'a'}],
126 ['bre33', '"a*b" : "a\\(*\\)b"', {OUT => '*'}],
127 ['bre34', '"ab" : "a\\(**\\)b"', {OUT => ''}, {EXIT => 1}],
128 ['bre35', '"ab" : "a\\(***\\)b"', {OUT => ''}, {EXIT => 1}],
129 ['bre36', '"*a" : "*a"', {OUT => '2'}],
130 ['bre37', '"a" : "**a"', {OUT => '1'}],
131 ['bre38', '"a" : "***a"', {OUT => '1'}],
132 ['bre39', '"ab" : "a\\{1\\}b"', {OUT => '2'}],
133 ['bre40', '"ab" : "a\\{1,\\}b"', {OUT => '2'}],
134 ['bre41', '"aab" : "a\\{1,2\\}b"', {OUT => '3'}],
135 ['bre42', '_ : "a\\{1"',
136 {ERR => "$prog: Unmatched \\{\n"}, {EXIT => 2}],
137 ['bre43', '_ : "a\\{1a"',
138 {ERR => "$prog: Unmatched \\{\n"}, {EXIT => 2}],
139 ['bre44', '_ : "a\\{1a\\}"',
140 {ERR => "$prog: Invalid content of \\{\\}\n"}, {EXIT => 2}],
141 ['bre45', '"a" : "a\\{,2\\}"', {OUT => '1'}],
142 ['bre46', '"a" : "a\\{,\\}"', {OUT => '1'}],
143 ['bre47', '_ : "a\\{1,x\\}"',
144 {ERR => "$prog: Invalid content of \\{\\}\n"}, {EXIT => 2}],
145 ['bre48', '_ : "a\\{1,x"',
146 {ERR => "$prog: Unmatched \\{\n"}, {EXIT => 2}],
147 ['bre49', '_ : "a\\{32768\\}"',
148 {ERR => "$prog: Invalid content of \\{\\}\n"}, {EXIT => 2}],
149 ['bre50', '_ : "a\\{1,0\\}"',
150 {ERR => "$prog: Invalid content of \\{\\}\n"}, {EXIT => 2}],
151 ['bre51', '"acabc" : ".*ab\\{0,0\\}c"', {OUT => '2'}],
152 ['bre52', '"abcac" : "ab\\{0,1\\}c"', {OUT => '3'}],
153 ['bre53', '"abbcac" : "ab\\{0,3\\}c"', {OUT => '4'}],
154 ['bre54', '"abcac" : ".*ab\\{1,1\\}c"', {OUT => '3'}],
155 ['bre55', '"abcac" : ".*ab\\{1,3\\}c"', {OUT => '3'}],
156 ['bre56', '"abbcabc" : ".*ab\{2,2\}c"', {OUT => '4'}],
157 ['bre57', '"abbcabc" : ".*ab\{2,4\}c"', {OUT => '4'}],
158 ['bre58', '"aa" : "a\\{1\\}\\{1\\}"', {OUT => '1'}],
159 ['bre59', '"aa" : "a*\\{1\\}"', {OUT => '2'}],
160 ['bre60', '"aa" : "a\\{1\\}*"', {OUT => '2'}],
161 ['bre61', '"acd" : "a\\(b\\)?c\\1d"', {OUT => ''}, {EXIT => 1}],
162 ['bre62', '-- "-5" : "-\\{0,1\\}[0-9]*\$"', {OUT => '2'}],
164 ['fail-b', '9 9', {ERR => "$prog: syntax error\n"},
166 ['fail-c', {ERR => "$prog: missing operand\n"
167 . "Try `$prog --help' for more information.\n"},
171 # Append a newline to end of each expected `OUT' string.
180 if ref $e eq 'HASH' and exists $e->{OUT};
184 my $save_temps = $ENV{SAVE_TEMPS};
185 my $verbose = $ENV{VERBOSE};
187 my $fail = run_tests ($program_name, $prog, \@Tests, $save_temps, $verbose);