diff options
Diffstat (limited to 'testsuite/awk.tests')
-rwxr-xr-x | testsuite/awk.tests | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/testsuite/awk.tests b/testsuite/awk.tests index 8e72dd38f..0db99ab21 100755 --- a/testsuite/awk.tests +++ b/testsuite/awk.tests | |||
@@ -22,6 +22,12 @@ testing "awk hex const 1" "awk '{ print or(0xffffffff,1) }'" "4.29497e+09\n" "" | |||
22 | testing "awk hex const 2" "awk '{ print or(0x80000000,1) }'" "2.14748e+09\n" "" "\n" | 22 | testing "awk hex const 2" "awk '{ print or(0x80000000,1) }'" "2.14748e+09\n" "" "\n" |
23 | testing "awk oct const" "awk '{ print or(01234,1) }'" "669\n" "" "\n" | 23 | testing "awk oct const" "awk '{ print or(01234,1) }'" "669\n" "" "\n" |
24 | 24 | ||
25 | # long field seps requiring regex | ||
26 | testing "awk long field sep" "awk -F-- '{ print NF, length(\$NF), \$NF }'" \ | ||
27 | "2 0 \n3 0 \n4 0 \n5 0 \n" \ | ||
28 | "" \ | ||
29 | "a--\na--b--\na--b--c--\na--b--c--d--" | ||
30 | |||
25 | # '@(samp|code|file)\{' is an invalid extended regex (unmatched '{'), | 31 | # '@(samp|code|file)\{' is an invalid extended regex (unmatched '{'), |
26 | # but gawk 3.1.5 does not bail out on it. | 32 | # but gawk 3.1.5 does not bail out on it. |
27 | testing "awk gsub falls back to non-extended-regex" \ | 33 | testing "awk gsub falls back to non-extended-regex" \ |