aboutsummaryrefslogtreecommitdiff
path: root/testsuite/awk.tests
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/awk.tests')
-rwxr-xr-xtestsuite/awk.tests19
1 files changed, 19 insertions, 0 deletions
diff --git a/testsuite/awk.tests b/testsuite/awk.tests
index 5a323047d..f9c3b6b4d 100755
--- a/testsuite/awk.tests
+++ b/testsuite/awk.tests
@@ -16,6 +16,13 @@ testing "awk -F case 5" "awk -F '[#]' '{ print NF }'" "4\n" "" "#abc##zz\n"
16testing "awk -F case 6" "awk -F '[#]' '{ print NF }'" "4\n" "" "z#abc##zz\n" 16testing "awk -F case 6" "awk -F '[#]' '{ print NF }'" "4\n" "" "z#abc##zz\n"
17testing "awk -F case 7" "awk -F '[#]' '{ print NF }'" "5\n" "" "z##abc##zz\n" 17testing "awk -F case 7" "awk -F '[#]' '{ print NF }'" "5\n" "" "z##abc##zz\n"
18 18
19# conditions and operators
20testing "awk if operator == " "awk 'BEGIN{if(23==23) print \"foo\"}'" "foo\n" "" ""
21testing "awk if operator != " "awk 'BEGIN{if(23!=23) print \"bar\"}'" "" "" ""
22testing "awk if operator >= " "awk 'BEGIN{if(23>=23) print \"foo\"}'" "foo\n" "" ""
23testing "awk if operator < " "awk 'BEGIN{if(2 < 13) print \"foo\"}'" "foo\n" "" ""
24testing "awk if string == " "awk 'BEGIN{if(\"a\"==\"ab\") print \"bar\"}'" "" "" ""
25
19# 4294967295 = 0xffffffff 26# 4294967295 = 0xffffffff
20testing "awk bitwise op" "awk '{ print or(4294967295,1) }'" "4.29497e+09\n" "" "\n" 27testing "awk bitwise op" "awk '{ print or(4294967295,1) }'" "4.29497e+09\n" "" "\n"
21optional DESKTOP 28optional DESKTOP
@@ -36,6 +43,11 @@ testing "awk long field sep" "awk -F-- '{ print NF, length(\$NF), \$NF }'" \
36 "" \ 43 "" \
37 "a--\na--b--\na--b--c--\na--b--c--d--" 44 "a--\na--b--\na--b--c--\na--b--c--d--"
38 45
46testing "awk -F handles escapes" "awk -F'\\x21' '{print \$1}'" \
47 "a\n" \
48 "" \
49 "a!b\n"
50
39# '@(samp|code|file)\{' is an invalid extended regex (unmatched '{'), 51# '@(samp|code|file)\{' is an invalid extended regex (unmatched '{'),
40# but gawk 3.1.5 does not bail out on it. 52# but gawk 3.1.5 does not bail out on it.
41testing "awk gsub falls back to non-extended-regex" \ 53testing "awk gsub falls back to non-extended-regex" \
@@ -205,4 +217,11 @@ end d
205testing "awk handles empty ()" \ 217testing "awk handles empty ()" \
206 "awk 'BEGIN {print()}' 2>&1" "awk: cmd. line:1: Empty sequence\n" "" "" 218 "awk 'BEGIN {print()}' 2>&1" "awk: cmd. line:1: Empty sequence\n" "" ""
207 219
220testing "awk FS assignment" "awk '{FS=\":\"; print \$1}'" \
221 "a:b\ne\n" \
222 "" \
223 "a:b c:d\ne:f g:h"
224
225# testing "description" "command" "result" "infile" "stdin"
226
208exit $FAILCOUNT 227exit $FAILCOUNT