diff options
Diffstat (limited to 'testsuite/awk.tests')
-rwxr-xr-x | testsuite/awk.tests | 19 |
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" | |||
16 | testing "awk -F case 6" "awk -F '[#]' '{ print NF }'" "4\n" "" "z#abc##zz\n" | 16 | testing "awk -F case 6" "awk -F '[#]' '{ print NF }'" "4\n" "" "z#abc##zz\n" |
17 | testing "awk -F case 7" "awk -F '[#]' '{ print NF }'" "5\n" "" "z##abc##zz\n" | 17 | testing "awk -F case 7" "awk -F '[#]' '{ print NF }'" "5\n" "" "z##abc##zz\n" |
18 | 18 | ||
19 | # conditions and operators | ||
20 | testing "awk if operator == " "awk 'BEGIN{if(23==23) print \"foo\"}'" "foo\n" "" "" | ||
21 | testing "awk if operator != " "awk 'BEGIN{if(23!=23) print \"bar\"}'" "" "" "" | ||
22 | testing "awk if operator >= " "awk 'BEGIN{if(23>=23) print \"foo\"}'" "foo\n" "" "" | ||
23 | testing "awk if operator < " "awk 'BEGIN{if(2 < 13) print \"foo\"}'" "foo\n" "" "" | ||
24 | testing "awk if string == " "awk 'BEGIN{if(\"a\"==\"ab\") print \"bar\"}'" "" "" "" | ||
25 | |||
19 | # 4294967295 = 0xffffffff | 26 | # 4294967295 = 0xffffffff |
20 | testing "awk bitwise op" "awk '{ print or(4294967295,1) }'" "4.29497e+09\n" "" "\n" | 27 | testing "awk bitwise op" "awk '{ print or(4294967295,1) }'" "4.29497e+09\n" "" "\n" |
21 | optional DESKTOP | 28 | optional 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 | ||
46 | testing "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. |
41 | testing "awk gsub falls back to non-extended-regex" \ | 53 | testing "awk gsub falls back to non-extended-regex" \ |
@@ -205,4 +217,11 @@ end d | |||
205 | testing "awk handles empty ()" \ | 217 | testing "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 | ||
220 | testing "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 | |||
208 | exit $FAILCOUNT | 227 | exit $FAILCOUNT |